循环结束后程序卡死

charis

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
hqwz	整数型		热键
tjdj	整数型		热键
tjyj	整数型		热键
ksyx	整数型		热键
tzyx	整数型		热键
bcjb	整数型		热键
sfxh	逻辑型		是否循环
ckjb	整数型		窗口句柄
bqjb	整数型		标签句柄
tzxh	逻辑型		停止信号

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

ckjb ＝ _启动窗口.取窗口句柄 ()
bqjb ＝ 提示标签.取窗口句柄 ()
hqwz ＝ 注册热键 (ckjb, bqjb, 0, #F1键 )
tjdj ＝ 注册热键 (ckjb, bqjb, 0, #F2键 )
tjyj ＝ 注册热键 (ckjb, bqjb, 0, #F3键 )
ksyx ＝ 注册热键 (ckjb, bqjb, 0, #F4键 )
tzyx ＝ 注册热键 (ckjb, bqjb, 0, #F5键 )
bcjb ＝ 注册热键 (ckjb, bqjb, 0, #F6键 )
tzxh ＝ 假
sfxh ＝ 假

子程序名	返回值类型	公开	备 注
_提示标签_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
线程句柄	整数型

判断 (参数一 ＝ hqwz)
脚本编辑框.加入文本 (获取当前位置 () ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )
判断 (参数一 ＝ tjdj)
脚本编辑框.加入文本 (“sbdj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )
判断 (参数一 ＝ tjyj)
脚本编辑框.加入文本 (“sbyj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )
判断 (参数一 ＝ ksyx)
启动线程 (&开始运行, , 线程句柄)
tzxh ＝ 假
判断 (参数一 ＝ tzyx)
强制结束线程 (线程句柄)
停止运行 ()
判断 (参数一 ＝ bcjb)
保存脚本 ()

子程序名	返回值类型	公开	备 注
开始运行

执行脚本 (脚本编辑框.内容)

子程序名	返回值类型	公开	备 注
停止运行

tzxh ＝ 真
信息框 (“已停止脚本运行”, 64, “停止”, )

子程序名	返回值类型	公开	备 注
保存脚本

保存通用对话框.初始目录 ＝ 取运行目录 ()
保存通用对话框.打开 ()
写到文件 (保存通用对话框.文件名, 到字节集 (脚本编辑框.内容))

子程序名	返回值类型	公开	备 注
获取当前位置	文本型

返回 (“yd,” ＋ 到文本 (取鼠标水平位置 ()) ＋ “.” ＋ 到文本 (取鼠标垂直位置 ()) ＋ “”)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

撤销热键 (ckjb, bqjb)

子程序名	返回值类型	公开	备 注
_获取位置按钮_被单击

脚本编辑框.加入文本 (获取当前位置 () ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )

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

脚本编辑框.加入文本 (“sbdj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )

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

脚本编辑框.加入文本 (“sbyj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
执行脚本
参数名	类 型	参考	可空	数组	备 注
脚本内容	文本型

变量名	类 型	静态	数组	备 注
执行进度	整数型
代码数组	文本型		0
指令	文本型		0
当前行	文本型
X	整数型
tmp	文本型		0
Y	整数型

tzxh ＝ 假
代码数组 ＝ 分割文本 (脚本内容, #换行符, )
循环判断首 ()
计次循环首 (取数组成员数 (代码数组), 执行进度)
如果 (tzxh ＝ 真)
跳出循环 ()
当前行 ＝ 删全部空 (代码数组 [执行进度])
指令 ＝ 分割文本 (当前行, “,”, )
判断 (指令 [1] ＝ “yd”)
tmp ＝ 分割文本 (指令 [2], “.”, )
X ＝ 到整数 (tmp [1])
Y ＝ 到整数 (tmp [2])
鼠标_移动 (, X, Y)
判断 (指令 [1] ＝ “ys”)
延迟 (到整数 (指令 [2]))
判断 (指令 [1] ＝ “sbdj”)
模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 0)
判断 (指令 [1] ＝ “sbyj”)
模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 2)


处理事件 ()

计次循环尾 ()
循环判断尾 (sfxh ＝ 真)

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

tzxh ＝ 假
开始运行 ()

子程序名	返回值类型	公开	备 注
_循环选择框_被单击

sfxh ＝ 真

子程序名	返回值类型	公开	备 注
_停止运行按钮_被单击

停止运行 ()

i支持库列表	支持库注释
shellEx	扩展功能支持库一
EThread	多线程支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 shellEx<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 hqwz, 整数型, , , 热键<br /> .程序集变量 tjdj, 整数型, , , 热键<br /> .程序集变量 tjyj, 整数型, , , 热键<br /> .程序集变量 ksyx, 整数型, , , 热键<br /> .程序集变量 tzyx, 整数型, , , 热键<br /> .程序集变量 bcjb, 整数型, , , 热键<br /> .程序集变量 sfxh, 逻辑型, , , 是否循环<br /> .程序集变量 ckjb, 整数型, , , 窗口句柄<br /> .程序集变量 bqjb, 整数型, , , 标签句柄<br /> .程序集变量 tzxh, 逻辑型, , , 停止信号<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ckjb ＝ _启动窗口.取窗口句柄 ()<br /> bqjb ＝ 提示标签.取窗口句柄 ()<br /> hqwz ＝ 注册热键 (ckjb, bqjb, 0, #F1键)<br /> tjdj ＝ 注册热键 (ckjb, bqjb, 0, #F2键)<br /> tjyj ＝ 注册热键 (ckjb, bqjb, 0, #F3键)<br /> ksyx ＝ 注册热键 (ckjb, bqjb, 0, #F4键)<br /> tzyx ＝ 注册热键 (ckjb, bqjb, 0, #F5键)<br /> bcjb ＝ 注册热键 (ckjb, bqjb, 0, #F6键)<br /> tzxh ＝ 假<br /> sfxh ＝ 假<br /> <br /> <br /> .子程序 _提示标签_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 线程句柄, 整数型<br /> <br /> .判断开始 (参数一 ＝ hqwz)<br />     脚本编辑框.加入文本 (获取当前位置 () ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> .判断 (参数一 ＝ tjdj)<br />     脚本编辑框.加入文本 (“sbdj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> .判断 (参数一 ＝ tjyj)<br />     脚本编辑框.加入文本 (“sbyj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> .判断 (参数一 ＝ ksyx)<br />     启动线程 (&开始运行, , 线程句柄)<br />     tzxh ＝ 假<br /> .判断 (参数一 ＝ tzyx)<br />     强制结束线程 (线程句柄)<br />     停止运行 ()<br /> .判断 (参数一 ＝ bcjb)<br />     保存脚本 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 开始运行<br /> <br /> 执行脚本 (脚本编辑框.内容)<br /> <br /> .子程序 停止运行<br /> <br /> tzxh ＝ 真<br /> 信息框 (“已停止脚本运行”, 64, “停止”, )<br /> <br /> .子程序 保存脚本<br /> <br /> 保存通用对话框.初始目录 ＝ 取运行目录 ()<br /> 保存通用对话框.打开 ()<br /> 写到文件 (保存通用对话框.文件名, 到字节集 (脚本编辑框.内容))<br /> <br /> .子程序 获取当前位置, 文本型<br /> <br /> 返回 (“yd,” ＋ 到文本 (取鼠标水平位置 ()) ＋ “.” ＋ 到文本 (取鼠标垂直位置 ()) ＋ “”)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 撤销热键 (ckjb, bqjb)<br /> <br /> <br /> .子程序 _获取位置按钮_被单击<br /> <br /> 脚本编辑框.加入文本 (获取当前位置 () ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> <br /> .子程序 _添加单击按钮_被单击<br /> <br /> 脚本编辑框.加入文本 (“sbdj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> <br /> .子程序 _添加右击按钮_被单击<br /> <br /> 脚本编辑框.加入文本 (“sbyj” ＋ #换行符 ＋ “ys,” ＋ 延时编辑框.内容 ＋ “” ＋ #换行符)<br /> <br /> .子程序 执行脚本<br /> .参数 脚本内容, 文本型<br /> .局部变量 执行进度, 整数型<br /> .局部变量 代码数组, 文本型, , "0"<br /> .局部变量 指令, 文本型, , "0"<br /> .局部变量 当前行, 文本型<br /> .局部变量 X, 整数型<br /> .局部变量 tmp, 文本型, , "0"<br /> .局部变量 Y, 整数型<br /> <br /> tzxh ＝ 假<br /> 代码数组 ＝ 分割文本 (脚本内容, #换行符, )<br /> .循环判断首 ()<br />     .计次循环首 (取数组成员数 (代码数组), 执行进度)<br />         .如果 (tzxh ＝ 真)<br />             跳出循环 ()<br />         .否则<br />             当前行 ＝ 删全部空 (代码数组 [执行进度])<br />             指令 ＝ 分割文本 (当前行, “,”, )<br />             .判断开始 (指令 [1] ＝ “yd”)<br />                 tmp ＝ 分割文本 (指令 [2], “.”, )<br />                 X ＝ 到整数 (tmp [1])<br />                 Y ＝ 到整数 (tmp [2])<br />                 鼠标_移动 (, X, Y)<br />             .判断 (指令 [1] ＝ “ys”)<br />                 延迟 (到整数 (指令 [2]))<br />             .判断 (指令 [1] ＝ “sbdj”)<br />                 模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 0)<br />             .判断 (指令 [1] ＝ “sbyj”)<br />                 模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 2)<br />             .默认<br /> <br />             .判断结束<br />             处理事件 ()<br />         .如果结束<br /> <br /> <br />     .计次循环尾 ()<br /> <br /> .循环判断尾 (sfxh ＝ 真)<br /> <br /> <br /> <br /> .子程序 _开始运行按钮_被单击<br /> <br /> tzxh ＝ 假<br /> 开始运行 ()<br /> <br /> .子程序 _循环选择框_被单击<br /> <br /> sfxh ＝ 真<br /> <br /> .子程序 _停止运行按钮_被单击<br /> <br /> 停止运行 ()

代码如上，现启用循环后，热键结束运行会程序卡住。请教一下各位大佬

轨迹轨迹

加入 程序延时

charis

轨迹轨迹 发表于 2025-5-21 11:07
加入 程序延时

请问是在那个位置加入呢