这个子程序设置启停 启动了不停止

322265

哪位大神帮忙解决一下


补充内容 (2026-6-6 16:45):
.版本 2
.支持库 spec

.子程序 _趴窝
.局部变量 i, 整数型

.判断开始 (趴窝 ＝ 真)


    .计次循环首 (1000, i)
        .如果真 (是否停止 ＝ 真)
            是否停止 ＝ 假  ' 复位标记
            跳出循环 ()

        .如果真结束

        延迟 (500)

        dm.键盘_单击 (13)
        功能_发送文字消息 (窗口句柄, “/nests”)
        dm.键盘_单击 (13)
        dm.键盘_按住 (16)
        dm.键盘_按住 (87)
        延迟 (500)

    .计次循环尾 ()
    dm.键盘_弹起 (16)
    dm.键盘_弹起 (87)
    返回 ()

.默认
    趴窝 ＝ 假
    是否停止 ＝ 真

BruceJoysky1987

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否停止	逻辑型
是否运行	逻辑型
趴窝	逻辑型

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

是否停止 ＝ 假
是否运行 ＝ 假

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

如果 (是否运行 ＝ 假)
' 未运行，开始运行
是否运行 ＝ 真
是否停止 ＝ 假
启动线程 (&_趴窝, , )
按钮1.标题 ＝ “停止”
' 正在运行，停止运行
是否停止 ＝ 真

子程序名	返回值类型	公开	备 注
_趴窝

变量名	类 型	静态	数组	备 注
i	整数型

判断循环首 (是否停止 ＝ 假)
i ＝ i ＋ 1
如果真 (i ％ 1000 ＝ 0)
跳出循环 ()

延迟 (500)
调试输出 (i)
' dm.键盘_单击 (13)
' 功能_发送文字消息 (窗口句柄, “/nests”)
' dm.键盘_单击 (13)
' dm.键盘_按住 (16)
' dm.键盘_按住 (87)
' 延迟 (500)
处理事件 ()
判断循环尾 ()
' 循环结束，重置状态
是否运行 ＝ 假
是否停止 ＝ 假
按钮1.标题 ＝ “开始”
调试输出 (“循环已停止”)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否停止, 逻辑型<br /> .程序集变量 是否运行, 逻辑型<br /> .程序集变量 趴窝, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 是否停止 ＝ 假<br /> 是否运行 ＝ 假<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (是否运行 ＝ 假)<br />     ' 未运行，开始运行<br />     是否运行 ＝ 真<br />     是否停止 ＝ 假<br />     启动线程 (&_趴窝, , )<br />     按钮1.标题 ＝ “停止”<br /> .否则<br />     ' 正在运行，停止运行<br />     是否停止 ＝ 真<br /> .如果结束<br /> <br /> <br /> .子程序 _趴窝<br /> .局部变量 i, 整数型<br /> <br /> .判断循环首 (是否停止 ＝ 假)<br />     i ＝ i ＋ 1<br /> <br />     .如果真 (i ％ 1000 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     延迟 (500)<br /> <br />     调试输出 (i)<br />     ' dm.键盘_单击 (13)<br />     ' 功能_发送文字消息 (窗口句柄, “/nests”)<br />     ' dm.键盘_单击 (13)<br />     ' dm.键盘_按住 (16)<br />     ' dm.键盘_按住 (87)<br />     ' 延迟 (500)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> <br /> ' 循环结束，重置状态<br /> 是否运行 ＝ 假<br /> 是否停止 ＝ 假<br /> 按钮1.标题 ＝ “开始”<br /> 调试输出 (“循环已停止”)

用这个吧，。。
刚刚脑抽了，没睡醒，写错了

a47785788

发一段AI写的代码，想问啥

322265

a47785788 发表于 2026-6-6 16:49
发一段AI写的代码，想问啥

这个子程序启动了停不了  再说了 这是AI写的吗 你从哪看出来的

bttp0059

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否停止	逻辑型
趴窝	逻辑型

子程序名	返回值类型	公开	备 注
_趴窝

变量名	类 型	静态	数组	备 注
i	整数型
次数	整数型

判断循环首 (趴窝 ＝ 真)
如果真 (是否停止 ＝ 真)
是否停止 ＝ 假
跳出循环 ()
次数 ＝ 次数 ＋ 1
调试输出 (“第” ＋ 到文本 (次数) ＋ “操作了13”)
调试输出 (“第” ＋ 到文本 (次数) ＋ “按住了16，87”)
处理事件 ()
判断循环尾 ()
调试输出 (“结束：” ＋ 到文本 (次数) ＋ “放开了16，87”)

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

趴窝 ＝ 真
是否停止 ＝ 假
_趴窝 ()

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

是否停止 ＝ 真

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否停止, 逻辑型<br /> .程序集变量 趴窝, 逻辑型<br /> <br /> .子程序 _趴窝<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> <br /> <br /> .判断循环首 (趴窝 ＝ 真)<br />     .如果真 (是否停止 ＝ 真)<br />         是否停止 ＝ 假 <br />         跳出循环 ()<br />     .如果真结束<br />     次数 ＝ 次数 ＋ 1<br />     调试输出 (“第” ＋ 到文本 (次数) ＋ “操作了13”)<br />     调试输出 (“第” ＋ 到文本 (次数) ＋ “按住了16，87”)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 调试输出 (“结束：” ＋ 到文本 (次数) ＋ “放开了16，87”)<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 趴窝 ＝ 真<br /> 是否停止 ＝ 假<br /> _趴窝 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 是否停止 ＝ 真

没大漠 也不知道你点击的操作是什么 但不影响写一个停止

322265

bttp0059 发表于 2026-6-6 18:38
[e=4].版本 2
.支持库 spec

哥 我的意思是一个按钮可以控制我这个程序的启停

BruceJoysky1987

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否停止	逻辑型
趴窝	逻辑型

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

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

判断 (是否停止 ＝ 真)
_趴窝 ()
是否停止 ＝ 假

子程序名	返回值类型	公开	备 注
_趴窝

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (是否停止 ＝ 真)
返回 ()

判断循环首 (是否停止)
i ＝ i ＋ 1
如果真 (i ％ 1000 ＝ 0)
跳出循环 ()
' 延迟 (500)
' dm.键盘_单击 (13)
' 功能_发送文字消息 (窗口句柄, “/nests”)
' dm.键盘_单击 (13)
' dm.键盘_按住 (16)
' dm.键盘_按住 (87)
' 延迟 (500)
处理事件 ()
判断循环尾 ()
' dm.键盘_弹起 (16)
' dm.键盘_弹起 (87)
趴窝 ＝ 假
是否停止 ＝ 假

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否停止, 逻辑型<br /> .程序集变量 趴窝, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .判断开始 (是否停止 ＝ 真)<br />     _趴窝 ()<br /> .默认<br />     是否停止 ＝ 假<br /> .判断结束<br /> <br /> <br /> .子程序 _趴窝<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (是否停止 ＝ 真)<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断循环首 (是否停止)<br />     i ＝ i ＋ 1<br />     .如果真 (i ％ 1000 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     ' 延迟 (500)<br /> <br />     ' dm.键盘_单击 (13)<br />     ' 功能_发送文字消息 (窗口句柄, “/nests”)<br />     ' dm.键盘_单击 (13)<br />     ' dm.键盘_按住 (16)<br />     ' dm.键盘_按住 (87)<br />     ' 延迟 (500)<br /> 处理事件 ()<br /> .判断循环尾 ()<br /> ' dm.键盘_弹起 (16)<br /> ' dm.键盘_弹起 (87)<br /> 趴窝 ＝ 假<br /> 是否停止 ＝ 假

一样的道理咯


补充内容 (2026-6-6 19:49):
.版本 2

.子程序 _按钮1_被单击

.判断开始 (是否停止 ＝ 假)
    是否停止 ＝ 真
    _趴窝 ()
.默认
    是否停止 ＝ 假
.判断结束

bttp0059

322265 发表于 2026-6-6 19:15
哥 我的意思是一个按钮可以控制我这个程序的启停

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
趴窝	逻辑型
是否停止	逻辑型

子程序名	返回值类型	公开	备 注
_趴窝

变量名	类 型	静态	数组	备 注
次数	整数型

判断循环首 (趴窝 ＝ 真)
如果真 (是否停止 ＝ 真)
是否停止 ＝ 假
跳出循环 ()
次数 ＝ 次数 ＋ 1
调试输出 (“第” ＋ 到文本 (次数) ＋ “操作了13”)
调试输出 (“第” ＋ 到文本 (次数) ＋ “按住了16，87”)
处理事件 ()
判断循环尾 ()
调试输出 (“结束：” ＋ 到文本 (次数) ＋ “放开了16，87”)

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

如果 (按钮1.标题 ≠ “停止”)
按钮1.标题 ＝ “停止”
趴窝 ＝ 真
是否停止 ＝ 假
_趴窝 ()
按钮1.标题 ＝ “开启”
是否停止 ＝ 真

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

按钮1.标题 ＝ “开启”

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 趴窝, 逻辑型<br /> .程序集变量 是否停止, 逻辑型<br /> <br /> .子程序 _趴窝<br /> .局部变量 次数, 整数型<br /> <br /> .判断循环首 (趴窝 ＝ 真)<br /> <br />     .如果真 (是否停止 ＝ 真)<br /> <br />         是否停止 ＝ 假<br />         跳出循环 ()<br />     .如果真结束<br />     次数 ＝ 次数 ＋ 1<br />     调试输出 (“第” ＋ 到文本 (次数) ＋ “操作了13”)<br />     调试输出 (“第” ＋ 到文本 (次数) ＋ “按住了16，87”)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 调试输出 (“结束：” ＋ 到文本 (次数) ＋ “放开了16，87”)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> <br /> .如果 (按钮1.标题 ≠ “停止”)<br />     按钮1.标题 ＝ “停止”<br />     趴窝 ＝ 真<br />     是否停止 ＝ 假<br />     _趴窝 ()<br />     按钮1.标题 ＝ “开启”<br /> .否则<br />     是否停止 ＝ 真<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 按钮1.标题 ＝ “开启”

一个按钮的开始和停止

322265

BruceJoysky1987 发表于 2026-6-6 19:57
[e=1].版本 2
.支持库 EThread
.支持库 spec

用不了 停不了

普通玩家

看看是这样吗