易语言探测网站文件是否存在，不存在就销毁

龙凤祥

例如，打开软件就访问

这个图片

如果可以访问判断是否zc

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (取反 (网页_网络文件是否存在 (“www.tianxindq.com/felix1.txt”)))
判断是否zc ()
销毁 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (取反 (网页_网络文件是否存在 (“www.tianxindq.com/felix1.txt”)))<br />     判断是否zc ()<br /> .否则<br />     销毁 ()

如果访问不到就销毁（）窗口

大司命

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix.txt”))
判断是否zc ()
销毁 ()

.子程序 __启动窗口_创建完毕<br /> .如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix.txt”))<br />     判断是否zc ()<br /> .否则<br />     销毁 ()<br /> .如果结束

冯古屋

你不是已经写好了吗？

龙凤祥

冯古屋 发表于 2018-8-24 12:42
你不是已经写好了吗？

可是没有效果，删除文件还是能打开

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (取反 (网页_网络文件是否存在 (“www.tianxindq.com/felix.txt”)))
判断是否zc ()
销毁 ()

子程序名	返回值类型	公开	备 注
判断是否zc

编辑框1.内容 ＝ 到文本 (取硬盘特征字 () ÷ 取磁盘总空间 () × 53.1415926 × 16.29513 ＋ 55)
编辑框2.内容 ＝ 到文本 (读入文件 (“C:” ＋ “/配置.sys”))
_按钮1_被单击 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (编辑框2.内容 ＝ 到文本 (到数值 (编辑框1.内容) × 3.141592614159 × 1.13))
写到文件 (“C:” ＋ “/配置.sys”, 到字节集 (编辑框2.内容))
延时 (100)
载入 (选择窗口, , 假)
销毁 ()
信息框 (“未zc,请zc”, #警告图标, , )
编辑框2.获取焦点 ()
_启动窗口.可视 ＝ 真

子程序名	返回值类型	公开	备 注
_按钮2_被单击

信息框 (“请zc”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> .如果 (取反 (网页_网络文件是否存在 (“www.tianxindq.com/felix.txt”)))<br />     判断是否zc ()<br /> .否则<br />     销毁 ()<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 判断是否zc<br /> <br /> 编辑框1.内容 ＝ 到文本 (取硬盘特征字 () ÷ 取磁盘总空间 () × 53.1415926 × 16.29513 ＋ 55)<br /> 编辑框2.内容 ＝ 到文本 (读入文件 (“C:” ＋ “/配置.sys”))<br /> _按钮1_被单击 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (编辑框2.内容 ＝ 到文本 (到数值 (编辑框1.内容) × 3.141592614159 × 1.13))<br />     写到文件 (“C:” ＋ “/配置.sys”, 到字节集 (编辑框2.内容))<br />     延时 (100)<br />     载入 (选择窗口, , 假)<br />     销毁 ()<br /> .否则<br />     信息框 (“未zc,请zc”, #警告图标, , )<br />     编辑框2.获取焦点 ()<br />     _启动窗口.可视 ＝ 真<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 信息框 (“请zc”, 0, , )

千百度°

HTTP读文件也可以的

大司命

龙凤祥 发表于 2018-8-24 12:48
可是没有效果，删除文件还是能打开

  

[/quote]
{:4_255:} [b]取反[/b]去掉即可~
[b]补充内容 (2018-8-24 13:07):[/b]
[e=5]

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix.txt”))
判断是否zc ()
销毁 ()

.版本 2</blockquote></div><br /> <br /> <img src="static/image/smiley/mao/CPC-BQ0128-5050.gif" smilieid="255" border="0" alt="" /> <strong>取反</strong>去掉即可~<br /> <br /> <strong>补充内容 (2018-8-24 13:07):</strong><br /> [e=5]<br /> .子程序 __启动窗口_创建完毕<br /> .如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix.txt”))<br />     判断是否zc ()<br /> .否则<br />     销毁 ()<br /> .如果结束

wangzi1017

销毁 换成 结束

う网淅乄

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix1.txt”))
判断是否zc ()
销毁 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (网页_网络文件是否存在 (“http://www.tianxindq.com/felix1.txt”))<br />     判断是否zc ()<br /> .否则<br />     销毁 ()