求助易语言线程【单线程循环崩溃】

Ruter

.版本 2


                句柄 ＝ _线程_启动 (&报时)
                句 ＝ _线程_启动 (&自定义报时)






.版本 2


_线程_进入许可区 (报时许可证)
.如果真 (读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, ) ＝ “0”)
    本次报时 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, )
    写配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, 到文本 (到整数 (本次报时) ＋ 1))
.如果真结束
.如果真 (读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, ) ≠ “0”)
    节名数组 ＝ 取配置节名 (取运行目录 () ＋ 配置 ＋ “\群内报时.ini”)
    整点 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “整点”, “状态”, )
    半点 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “半点”, “状态”, )
    时间段内容 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “时间段”, “内容”, )
    正则.创建 (“(.*?)，”, 时间段内容)
    .如果真 (取数组下标 (节名数组, ) ≥ 1)
        .如果真 (正则.取匹配数量 () ≥ 1)
            .计次循环首 (正则.取匹配数量 (), n)
                文本 ＝ 正则.取子匹配文本 (n, 1)
                小时 ＝ 取文本之间 (文本, “”, “点”)
                分钟 ＝ 取文本之间 (文本, “”, “分”)
                .如果真 (取小时 (取现行时间 ()) ＝ 到整数 (小时) 且 取分钟 (取现行时间 ()) ＝ 到整数 (分钟) 且 取秒 (取现行时间 ()) ＝ 35)
                    .计次循环首 (取数组成员数 (节名数组), n)


                    .计次循环尾 ()
                .如果真结束


            .计次循环尾 ()
        .如果真结束
        .如果真 (取分钟 (取现行时间 ()) ＝ 0 且 取秒 (取现行时间 ()) ＝ 0 且 整点 ＝ “开启”)
            .计次循环首 (取数组成员数 (节名数组), n)
            .计次循环尾 ()
        .如果真结束
        .如果真 (取分钟 (取现行时间 ()) ＝ 30 且 取秒 (取现行时间 ()) ＝ 0 且 半点 ＝ “开启”)
            .计次循环首 (取数组成员数 (节名数组), n)


            .计次循环尾 ()
        .如果真结束
        .如果真 (成功 ＞ 0)


        .如果真结束


    .如果真结束


.如果真结束
延时 (1000)


_线程_退出许可区 (报时许可证)
句柄 ＝ _线程_启动 (&报时)


.版本 2


_线程_进入许可区 (报时1许可证)
.如果真 (读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, ) ＝ “0”)
    本次报时 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, )
    写配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, 到文本 (到整数 (本次报时) ＋ 1))
.如果真结束
.如果真 (读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “本次报时”, “次数”, ) ≠ “0”)
    节名数组 ＝ 取配置节名 (取运行目录 () ＋ 配置 ＋ “\群内报时.ini”)
    整点 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “整点”, “状态”, )
    半点 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “半点”, “状态”, )
    时间段内容 ＝ 读配置项 (取运行目录 () ＋ 配置 ＋ “\报时配置.ini”, “时间段”, “内容”, )
    正则.创建 (“(.*?)，”, 时间段内容)
    .如果真 (取数组下标 (节名数组, ) ≥ 1)
        .如果真 (正则.取匹配数量 () ≥ 1)
            .计次循环首 (正则.取匹配数量 (), n)
                文本 ＝ 正则.取子匹配文本 (n, 1)
                小时 ＝ 取文本之间 (文本, “”, “点”)
                分钟 ＝ 取文本之间 (文本, “”, “分”)
                .如果真 (取小时 (取现行时间 ()) ＝ 到整数 (小时) 且 取分钟 (取现行时间 ()) ＝ 到整数 (分钟) 且 取秒 (取现行时间 ()) ＝ 35)
                    .计次循环首 (取数组成员数 (节名数组), n)


                    .计次循环尾 ()
                .如果真结束


            .计次循环尾 ()
        .如果真结束
        .如果真 (取分钟 (取现行时间 ()) ＝ 0 且 取秒 (取现行时间 ()) ＝ 0 且 整点 ＝ “开启”)
            .计次循环首 (取数组成员数 (节名数组), n)
            .计次循环尾 ()
        .如果真结束
        .如果真 (取分钟 (取现行时间 ()) ＝ 30 且 取秒 (取现行时间 ()) ＝ 0 且 半点 ＝ “开启”)
            .计次循环首 (取数组成员数 (节名数组), n)


            .计次循环尾 ()
        .如果真结束
        .如果真 (成功 ＞ 0)


        .如果真结束


    .如果真结束


.如果真结束
延时 (1000)
_线程_退出许可区 (报时1许可证)
句柄 ＝ _线程_启动 (&报时1)

求解。。。。。脑仁都爆了，肯定进入死胡同了，但是没有系统化的学习过，所以卡住了，求各位大大帮忙！

梦之情

厉害啊，线程中套线程。不用信号量稳得住吗？

Ruter

一个用的时候还可以，但是两个一起用的话，就卡崩了我这个是编译成dll的，我用窗口程序，试了一下，是可以的。但是编译成dll后，人家的软件已加载就是卡死····

耳东言己

精益论坛 因您更精彩

Ruter

梦之情 发表于 2016-12-10 11:23
厉害啊，线程中套线程。不用信号量稳得住吗？

???,半路出家,没太听懂?