关于时钟停止 以及时钟跟线程选择问题

小色色

我是个连小白都不是

这个是一个例子源码 我现在遇到一个时钟停止设置的问题

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

时钟1.时钟周期 ＝ 5000
如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)
信息框 (“不存在!”, 0, )
信息框 (“存在!”, 0, )

子程序名	返回值类型	公开	备 注
远程文件是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
网页	文本型

变量名	类 型	静态	数组	备 注
IXMLHTTP	对象

IXMLHTTP.创建 (“msxml2.XMLHTTP”, )
IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)
IXMLHTTP.方法 (“send”, )
如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)
IXMLHTTP.清除 ()
返回 (真)
IXMLHTTP.清除 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()
如果 (信息框 (“不存在”, 0, ) ＝ #确认钮 )
返回 ()
时钟1.时钟周期 ＝ 0

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 5000<br /> .如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)<br />     信息框 (“不存在!”, 0, )<br /> .否则<br />     信息框 (“存在!”, 0, )<br /> .如果结束<br /> <br /> <br /> .子程序 远程文件是否存在, 逻辑型<br /> .参数 网页, 文本型<br /> .局部变量 IXMLHTTP, 对象<br /> <br /> IXMLHTTP.创建 (“msxml2.XMLHTTP”, )<br /> IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)<br /> IXMLHTTP.方法 (“send”, )<br /> .如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)<br />     IXMLHTTP.清除 ()<br />     返回 (真)<br /> .否则<br />     IXMLHTTP.清除 ()<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()<br /> <br /> .如果 (信息框 (“不存在”, 0, ) ＝ #确认钮)<br />     返回 ()<br /> .否则<br />     时钟1.时钟周期 ＝ 0<br /> .如果结束

源码是要用来 检测网站或者网址是否存在的
我是要 弹出不存在信息框 后 时钟就停止
现在情况是弹出不存在框了 循环还在继续

附源码
易语言检测网站是否存在源码.rar (1.8 KB, 下载次数: 0)

2017-1-9 17:54 上传

点击文件名下载附件



补充内容 (2017-1-9 18:01):
对应我的这个例子 如果监控多个文件或者网址  用定时还是线程呢 还有就是 弹出信息框 如何发出声音提醒呢

半世琉璃

  

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

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

时钟1.时钟周期 ＝ 1000
如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)
时钟1.时钟周期 ＝ 0
调试输出 (信息框 (“不存在!”, 0, , ))
信息框 (“存在!”, 0, , )

子程序名	返回值类型	公开	备 注
远程文件是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
网页	文本型

变量名	类 型	静态	数组	备 注
IXMLHTTP	对象

IXMLHTTP.创建 (“msxml2.XMLHTTP”, )
IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)
IXMLHTTP.方法 (“send”, )
如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)
IXMLHTTP.清除 ()
返回 (真)
IXMLHTTP.清除 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> .如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)<br />     时钟1.时钟周期 ＝ 0<br />     调试输出 (信息框 (“不存在!”, 0, , ))<br /> .否则<br />     信息框 (“存在!”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 远程文件是否存在, 逻辑型<br /> .参数 网页, 文本型<br /> .局部变量 IXMLHTTP, 对象<br /> <br /> IXMLHTTP.创建 (“msxml2.XMLHTTP”, )<br /> IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)<br /> IXMLHTTP.方法 (“send”, )<br /> .如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)<br />     IXMLHTTP.清除 ()<br />     返回 (真)<br /> .否则<br />     IXMLHTTP.清除 ()<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()

已经测试没有错误。另外你用了信息框  又用了时钟。。  当文件存在的时候      如果你信息框不及时关闭   那弹出的信息框就会越来越多。。。。。

半世琉璃

  

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

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

时钟1.时钟周期 ＝ 5000
如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)
时钟1.时钟周期 ＝0
信息框 (“不存在!”, 0, , )
信息框 (“存在!”, 0, )

子程序名	返回值类型	公开	备 注
远程文件是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
网页	文本型

变量名	类 型	静态	数组	备 注
IXMLHTTP	对象

IXMLHTTP.创建 (“msxml2.XMLHTTP”, )
IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)
IXMLHTTP.方法 (“send”, )
如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)
IXMLHTTP.清除 ()
返回 (真)
IXMLHTTP.清除 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()
如果 (信息框 (“不存在”, 0, , ) ＝ #确认钮 )
时钟1.时钟周期 ＝0
返回 ()
时钟1.时钟周期 ＝ 0

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 5000<br /> .如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)<br />     时钟1.时钟周期 ＝0<br />     信息框 (“不存在!”, 0, , )<br /> .否则<br />     信息框 (“存在!”, 0, )<br /> .如果结束<br /> <br /> <br /> .子程序 远程文件是否存在, 逻辑型<br /> .参数 网页, 文本型<br /> .局部变量 IXMLHTTP, 对象<br /> <br /> IXMLHTTP.创建 (“msxml2.XMLHTTP”, )<br /> IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)<br /> IXMLHTTP.方法 (“send”, )<br /> .如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)<br />     IXMLHTTP.清除 ()<br />     返回 (真)<br /> .否则<br />     IXMLHTTP.清除 ()<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()<br /> .如果 (信息框 (“不存在”, 0, , ) ＝ #确认钮)<br />     时钟1.时钟周期 ＝0<br />     返回 ()<br /> .否则<br />     时钟1.时钟周期 ＝ 0<br /> .如果结束

补充内容 (2017-1-9 19:41):
写错了

半世琉璃

  

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

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

时钟1.时钟周期 ＝ 1000
如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)
时钟1.时钟周期 ＝ 0
调试输出 (信息框 (“不存在!”, 0, , ))
信息框 (“存在!”, 0, , )

子程序名	返回值类型	公开	备 注
远程文件是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
网页	文本型

变量名	类 型	静态	数组	备 注
IXMLHTTP	对象

IXMLHTTP.创建 (“msxml2.XMLHTTP”, )
IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)
IXMLHTTP.方法 (“send”, )
如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)
IXMLHTTP.清除 ()
返回 (真)
IXMLHTTP.清除 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> .如果 (远程文件是否存在 (编辑框1.内容) ＝ 假)<br />     时钟1.时钟周期 ＝ 0<br />     调试输出 (信息框 (“不存在!”, 0, , ))<br /> .否则<br />     信息框 (“存在!”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 远程文件是否存在, 逻辑型<br /> .参数 网页, 文本型<br /> .局部变量 IXMLHTTP, 对象<br /> <br /> IXMLHTTP.创建 (“msxml2.XMLHTTP”, )<br /> IXMLHTTP.方法 (“open”, “HEAD”, 网页, 假)<br /> IXMLHTTP.方法 (“send”, )<br /> .如果 (IXMLHTTP.读数值属性 (“Status”, ) ＝ 200)<br />     IXMLHTTP.清除 ()<br />     返回 (真)<br /> .否则<br />     IXMLHTTP.清除 ()<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()

时钟周期放在信息框上面   因为信息框一弹出来 子程序代码不会继续往下执行 除非关闭了信息框   所以时钟不会停止   


补充内容 (2017-1-9 19:46):
另外  你的信息框就只有一个确认按钮  所以没必要

补充内容 (2017-1-9 19:47):
另外  你的信息框就只有一个确认按钮  所以没必要去判断信息框是否按下了确认按钮。。。而且 时钟事件里 也无需再去弹出信息框   你只需要调用按钮的单击事件就行

小色色

hongzb1302 发表于 2017-1-9 19:40
[e=2].版本 2

.程序集 窗口程序集_启动窗口

错误(39): 为某支持库命令提供了过多的参数。
编译现行易程序失败或被中止!

再看看哪里的问题

半世琉璃

小色色 发表于 2017-1-9 19:49
错误(39): 为某支持库命令提供了过多的参数。
编译现行易程序失败或被中止!

后面蓝色框框内的

半世琉璃

小色色 发表于 2017-1-9 19:49
错误(39): 为某支持库命令提供了过多的参数。
编译现行易程序失败或被中止!

看楼层：板凳。。。里的代码

EdipseWang

虽然我也是新手，我觉得红框中的命令应该写在箭头指向的位置

小色色

hongzb1302 发表于 2017-1-9 20:00
[e=3].版本 2
.支持库 spec

大神    看来 信息框不好用  那就不用弹出信息框了 改成 如果存在 继续循环检测 ；检测到不存在 停止时钟并就打开任意一个网页   这样好实现吗  上传个例子可以吗

半世琉璃

小色色 发表于 2017-1-9 20:23
大神    看来 信息框不好用  那就不用弹出信息框了 改成 如果存在 继续循环检测 ；检测到不存在 停止时钟 ...

你直接把存在的信息框去掉不就好了吗？？？   至于打开任意一个网页是怎么个任意法？