为什么我做的掉线提醒久了不起作用

smithlau

我写了个小程序提醒我掉线的问题，但是我发现久了它就不起作用了，非常的奇怪
判断语句我用了线程，然后加了个循环，让他一直处于判断状态，线程用的易语言自己带的那个，判断网络状况是用的精易模块
主要代码如下：
.版本 2
.支持库 EThread
.子程序 子程序
.局部变量 许可证, 整数型
许可证3 ＝ 创建进入许可证 ()
进入许可区 (许可证)
.判断循环首 (选择框.选中 ＝ 真)
    .如果 (系统_是否已联网 () ＝ 假)
        _启动窗口.位置 ＝ 1
        程序_延时 (1, 1)
        播放音乐 (#掉线提示音, )
        状态标签.标题 ＝ “请注意，你已经掉线！”
       .否则
        返回 ()
    .如果结束
.判断循环尾 ()
退出许可区 (许可证)
删除进入许可证 (许可证)
以上是判断部分，然后对于这个功能的开启我就用了一个选择框，当打钩的时候自动执行线程
之前我也问过，有人说是不是没有执行线程的那句话，我晕这怎么可能会忘。。。
麻烦高手们帮我解决下这个问题，如果实在不能解决有没有其他方法来判断掉线的情况，希望附上源代码，谢谢

fsjoe

你代码我看了一下，发现一个奇怪的地方
判断循环首 (选择框.选中 ＝ 真)
    .如果 (系统_是否已联网 () ＝ 假)
        _启动窗口.位置 ＝ 1
        程序_延时 (1, 1)
        播放音乐 (#掉线提示音, )
        状态标签.标题 ＝ “请注意，你已经掉线！”
       .否则
        返回 ()
    .如果结束
.判断循环尾 ()
这段代码中，如果你是想它不断循环，为啥要用返回（）？
返回（）后，线程就结束了。如果估计没错，问题就出在这

拜佛成魔

.版本 2

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000


.子程序 _时钟1_周期事件

.如果真 (选择框1.选中 ＝ 真)
    .如果 (系统_是否已联网 () ＝ 真)
        标签1.标题 ＝ “已经联网”
    .否则
        标签1.标题 ＝ “网络断开”
    .如果结束

.如果真结束

拿去试试