.版本 2
.支持库 shellEx
.支持库 EThread
.支持库 eAPI
.支持库 iext
.程序集 窗口程序集_窗口1
.程序集变量 F1, 整数型
.程序集变量 F3, 整数型
.程序集变量 F4, 整数型
.程序集变量 全局窗口句柄, 整数型
.程序集变量 线程id, 整数型
.程序集变量 跳出判定, 整数型
.子程序 _窗口1_创建完毕, , , 本源码来自易语言资源网(www.eyuyan.la)
F1 ＝ 注册热键 (窗口1.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F1键)
F3 ＝ 注册热键 (窗口1.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F3键)
F4 ＝ 注册热键 (窗口1.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F4键)
' 状态条1.加入栏目 (, , , , )
未闻花名_皮肤加载 (5)
组合框_点击类型.现行选中项 ＝ 0
跳出判定 ＝ 0
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.局部变量 窗口坐标, 精易_坐标
.如果真 (参数一 ＝ F1)
.如果 (选择框_后台模式.选中 ＝ 真)
窗口坐标 ＝ 鼠标_取窗口坐标 (全局窗口句柄)
编辑框_坐标X.内容 ＝ 到文本 (窗口坐标.横)
编辑框_坐标Y.内容 ＝ 到文本 (窗口坐标.纵)
.否则
窗口坐标 ＝ 鼠标_取窗口坐标 (全局窗口句柄)
编辑框_坐标X.内容 ＝ 到文本 (窗口坐标.横)
编辑框_坐标Y.内容 ＝ 到文本 (窗口坐标.纵)
.如果结束
.如果真结束
.如果真 (参数一 ＝ F3)
.如果真 (按钮_开始.禁止 ＝ 假)
按钮_开始.禁止 ＝ 真
按钮_结束.禁止 ＝ 假
跳出判定 ＝ 0
线程id ＝ 线程_启动 (&子程序_开始脚本)
时钟3.时钟周期 ＝ 1000
.如果真结束
.如果真结束
.如果真 (参数一 ＝ F4)
.如果真 (按钮_结束.禁止 ＝ 假)
按钮_开始.禁止 ＝ 假
按钮_结束.禁止 ＝ 真
跳出判定 ＝ 1
关闭线程句柄 (线程id)
强制结束线程 (线程id)
时钟3.时钟周期 ＝ 0
.如果真结束
.如果真结束
.子程序 _选择框_后台模式_被单击
.如果真 (选择框_后台模式.选中 ＝ 真)
信息框 (“点击选择窗口后将自动选择本选项！”, 0, , )
选择框_后台模式.选中 ＝ 假
.如果真结束
.子程序 _按钮_获取句柄_被单击
信息框 (“请在3秒内将鼠标移动到所在窗口内！”, 0, , )
程序_延时 (3000)
全局窗口句柄 ＝ 取鼠标所在窗口句柄 ()
信息框 (“窗口选择成功！”, 0, , )
选择框_后台模式.选中 ＝ 真
.子程序 _按钮_插入坐标_被单击
.如果 (编辑框_坐标X.内容 ＝ “” 或 编辑框_坐标Y.内容 ＝ “”)
信息框 (“请获取坐标位置后在来加入坐标！”, 0, , )
.否则
子程序_超级列表框 (组合框_点击类型.取项目文本 (组合框_点击类型.现行选中项) ＋ “(x:” ＋ 编辑框_坐标X.内容 ＋ “ y:” ＋ 编辑框_坐标Y.内容 ＋ “)”, 编辑框_备注内容.内容)
.如果结束
.子程序 子程序_超级列表框
.参数 标题一, 文本型
.参数 标题二, 文本型
.局部变量 r, 整数型
r ＝ 超级列表框_动作.插入表项 (, , , , , )
超级列表框_动作.置标题 (r, 0, 标题一)
超级列表框_动作.置标题 (r, 1, 标题二)
.子程序 _按钮_插入延时_被单击
.如果 (编辑框_间隔时间.内容 ＝ “”)
子程序_超级列表框 (“延时1000毫秒”, 编辑框_备注内容.内容)
.否则
子程序_超级列表框 (“延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”, 编辑框_备注内容.内容)
.如果结束
.子程序 _按钮_开始_被单击
按钮_开始.禁止 ＝ 真
按钮_结束.禁止 ＝ 假
跳出判定 ＝ 0
线程id ＝ 线程_启动 (&子程序_开始脚本)
时钟3.时钟周期 ＝ 1000
.子程序 子程序_开始脚本
.局部变量 i, 整数型
.局部变量 动作, 文本型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 延时间隔, 整数型
.局部变量 循环次数, 整数型
.局部变量 已循环次数, 整数型
已循环次数 ＝ 0
.如果真 (单选框_循环.选中 ＝ 真)
.循环判断首 ()
.计次循环首 (超级列表框_动作.取表项数 (), i)
.如果真 (跳出判定 ＝ 1)
超级列表框_动作.置标题 (i － 1, 2, “”)
跳出循环 ()
.如果真结束
超级列表框_动作.置标题 (i － 1, 2, “执行中”)
动作 ＝ 超级列表框_动作.取标题 (i － 1, 0)
.如果真 (寻找文本 (动作, “左键单击”, , 假) ≠ -1)
x ＝ 到整数 (文本_取出中间文本 (动作, “x:”, “ y”, ))
y ＝ 到整数 (文本_取出中间文本 (动作, “y:”, “)”, ))
' 鼠标_单击 (全局窗口句柄, x, y, 1)
鼠标_消息 (全局窗口句柄, x, y, 1, 1)
.如果真结束
.如果真 (寻找文本 (动作, “右键单击”, , 假) ≠ -1)
x ＝ 到整数 (文本_取出中间文本 (动作, “x:”, “ y”, ))
y ＝ 到整数 (文本_取出中间文本 (动作, “y:”, “)”, ))
' 鼠标_单击 (全局窗口句柄, x, y, 2)
鼠标_消息 (全局窗口句柄, x, y, 1, 2)
.如果真结束
.如果真 (寻找文本 (动作, “延时”, , 假) ≠ -1)
延时间隔 ＝ 到整数 (文本_取出中间文本 (动作, “延时”, “毫秒”, ))
程序_延时 (延时间隔)
.如果真结束
程序_延时 (10)
超级列表框_动作.置标题 (i － 1, 2, “”)
.计次循环尾 ()
已循环次数 ＝ 已循环次数 ＋ 1
状态条1.置文本 (0, “已循环次数：” ＋ 到文本 (已循环次数))
.如果真 (跳出判定 ＝ 1)
' 状态条1.置文本 (0, )
跳出循环 ()
.如果真结束
' 程序_延时 (50)
.循环判断尾 (1 ＝ 1)
按钮_开始.禁止 ＝ 假
按钮_结束.禁止 ＝ 真
.如果真结束
.如果真 (跳出判定 ＝ 1)
' 状态条1.置文本 (0, )
返回 ()
.如果真结束
.如果真 (单选框_次数.选中 ＝ 真)
.如果 (编辑框_循环次数.内容 ＝ “”)
循环次数 ＝ 1
.否则
循环次数 ＝ 到整数 (编辑框_循环次数.内容)
.如果结束
.计次循环首 (循环次数, )
.计次循环首 (超级列表框_动作.取表项数 (), i)
.如果真 (跳出判定 ＝ 1)
超级列表框_动作.置标题 (i － 1, 2, “”)
跳出循环 ()
.如果真结束
超级列表框_动作.置标题 (i － 1, 2, “执行中”)
动作 ＝ 超级列表框_动作.取标题 (i － 1, 0)
.如果真 (寻找文本 (动作, “左键单击”, , 假) ≠ -1)
x ＝ 到整数 (文本_取出中间文本 (动作, “x:”, “ y”, ))
y ＝ 到整数 (文本_取出中间文本 (动作, “y:”, “)”, ))
' 鼠标_单击 (全局窗口句柄, x, y, 1)
鼠标_消息 (全局窗口句柄, x, y, 1, 1)
.如果真结束
.如果真 (寻找文本 (动作, “右键单击”, , 假) ≠ -1)
x ＝ 到整数 (文本_取出中间文本 (动作, “x:”, “ y”, ))
y ＝ 到整数 (文本_取出中间文本 (动作, “y:”, “)”, ))
' 鼠标_单击 (全局窗口句柄, x, y, 2)
鼠标_消息 (全局窗口句柄, x, y, 1, 2)
.如果真结束
.如果真 (寻找文本 (动作, “延时”, , 假) ≠ -1)
延时间隔 ＝ 到整数 (文本_取出中间文本 (动作, “延时”, “毫秒”, ))
程序_延时 (延时间隔)
.如果真结束
程序_延时 (10)
超级列表框_动作.置标题 (i － 1, 2, “”)
.计次循环尾 ()
已循环次数 ＝ 已循环次数 ＋ 1
状态条1.置文本 (0, “已循环次数：” ＋ 到文本 (已循环次数))
.如果真 (跳出判定 ＝ 1)
' 状态条1.置文本 (0, )
跳出循环 ()
.如果真结束
' 程序_延时 (5000)
.计次循环尾 ()
按钮_开始.禁止 ＝ 假
按钮_结束.禁止 ＝ 真
.如果真结束
.子程序 _按钮_结束_被单击
按钮_开始.禁止 ＝ 假
按钮_结束.禁止 ＝ 真
跳出判定 ＝ 1
关闭线程句柄 (线程id)
强制结束线程 (线程id)
时钟3.时钟周期 ＝ 0
.子程序 _窗口1_将被销毁
跳出判定 ＝ 1
关闭线程句柄 (线程id)
强制结束线程 (线程id)
.子程序 _按钮_保存脚本_被单击
.局部变量 i, 整数型
.局部变量 n, 文本型
.局部变量 写入的内容, 文本型
.局部变量 循环次数, 整数型
输入框 (“请输入欲保存的文件名” ＋ #换行符 ＋ “默认保存运行目录”, “脚本配置提示您：”, , n, , )
循环次数 ＝ 超级列表框_动作.取表项数 ()
.计次循环首 (循环次数, i)
' 写到文件 (取运行目录 () ＋ “\” ＋ n ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\” ＋ n ＋ “.txt”), 到字节集 (超级列表框_动作.取标题 (i － 1, 0) ＋ “-” ＋ 超级列表框_动作.取标题 (i － 1, 1)), 到字节集 (#换行符))
.如果 (i ＝ 1)
写入的内容 ＝ 超级列表框_动作.取标题 (i － 1, 0) ＋ “-” ＋ 超级列表框_动作.取标题 (i － 1, 1)
.否则
写入的内容 ＝ 写入的内容 ＋ #换行符 ＋ 超级列表框_动作.取标题 (i － 1, 0) ＋ “-” ＋ 超级列表框_动作.取标题 (i － 1, 1)
.如果结束
.如果真 (i ＝ 循环次数)
写到文件 (取运行目录 () ＋ “\” ＋ n ＋ “.txt”, 到字节集 (写入的内容))
.如果真结束
' 写到文件 (取运行目录 () ＋ “\” ＋ n ＋ “.txt”, 到字节集 (超级列表框_动作.取标题 (i － 1, 0) ＋ “-” ＋ 超级列表框_动作.取标题 (i － 1, 1)), 到字节集 (#换行符))
.计次循环尾 ()
.子程序 _按钮_打开脚本_被单击
.局部变量 sj, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 c, 整数型
.局部变量 sjj, 文本型, , "0"
通用对话框1.打开 ()
sj ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
超级列表框_动作.全部删除 ()
.计次循环首 (取数组成员数 (sj), i)
.如果真 (sj [i] ≠ “”)
sjj ＝ 分割文本 (sj [i], “-”, )
c ＝ 超级列表框_动作.插入表项 (, , , , , )
超级列表框_动作.置标题 (c, 0, sjj [1])
.如果真 (取数组成员数 (sjj) ＝ 2)
超级列表框_动作.置标题 (c, 1, sjj [2])
.如果真结束
.如果真结束
.计次循环尾 ()
.子程序 _超级列表框_动作_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (菜单, , )
.子程序 _删除该行_被选择
超级列表框_动作.删除表项 (超级列表框_动作.现行选中项)
.子程序 _删除全部_被选择
超级列表框_动作.全部删除 ()
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
网页_打开指定网址 (“http://www.luojiangtao.cn/index.php/2023/08/02/dgnsbldq/”)
.子程序 _时钟3_周期事件
.如果真 (选择框_后台模式.选中 ＝ 真 且 窗口_句柄是否有效 (全局窗口句柄) ＝ 假)
按钮_开始.禁止 ＝ 假
按钮_结束.禁止 ＝ 真
跳出判定 ＝ 1
关闭线程句柄 (线程id)
强制结束线程 (线程id)
时钟3.时钟周期 ＝ 0
.如果真结束
.子程序 _向前加入延时_被选择
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_间隔时间.内容 ＝ “”)
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项, , , , , )
超级列表框_动作.置标题 (r, 0, “延时1000毫秒”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (“延时1000毫秒”, “”)
.否则
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项, , , , , )
超级列表框_动作.置标题 (r, 0, “延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (“延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”, “”)
.如果结束
.子程序 _向后加入延时_被选择
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_间隔时间.内容 ＝ “”)
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项 ＋ 1, , , , , )
超级列表框_动作.置标题 (r, 0, “延时1000毫秒”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (“延时1000毫秒”, “”)
.否则
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项 ＋ 1, , , , , )
超级列表框_动作.置标题 (r, 0, “延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (“延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”, “”)
.如果结束
.子程序 _向前加入坐标_被选择
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_坐标X.内容 ＝ “” 或 编辑框_坐标Y.内容 ＝ “”)
信息框 (“请获取坐标位置后在来加入坐标！”, 0, , )
.否则
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项, , , , , )
超级列表框_动作.置标题 (r, 0, 组合框_点击类型.取项目文本 (组合框_点击类型.现行选中项) ＋ “(x:” ＋ 编辑框_坐标X.内容 ＋ “ y:” ＋ 编辑框_坐标Y.内容 ＋ “)”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (组合框_点击类型.取项目文本 (组合框_点击类型.现行选中项) ＋ “(x:” ＋ 编辑框_坐标X.内容 ＋ “ y:” ＋ 编辑框_坐标Y.内容 ＋ “)”, “”)
.如果结束
.子程序 _向后加入坐标_被选择, , , 本源码来自易语言资源网(www.eyuyan.la)
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_坐标X.内容 ＝ “” 或 编辑框_坐标Y.内容 ＝ “”)
信息框 (“请获取坐标位置后在来加入坐标！”, 0, , )
.否则
r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项 ＋ 1, , , , , )
超级列表框_动作.置标题 (r, 0, 组合框_点击类型.取项目文本 (组合框_点击类型.现行选中项) ＋ “(x:” ＋ 编辑框_坐标X.内容 ＋ “ y:” ＋ 编辑框_坐标Y.内容 ＋ “)”)
超级列表框_动作.置标题 (r, 1, 编辑框_备注内容.内容)
.如果结束
.子程序 _转换为坐标_被选择
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_坐标X.内容 ＝ “” 或 编辑框_坐标Y.内容 ＝ “”)
信息框 (“请获取坐标位置后在来加入坐标！”, 0, , )
.否则
' r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项, , , , , )
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 0, 组合框_点击类型.取项目文本 (组合框_点击类型.现行选中项) ＋ “(x:” ＋ 编辑框_坐标X.内容 ＋ “ y:” ＋ 编辑框_坐标Y.内容 ＋ “)”)
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 1, 编辑框_备注内容.内容)
.如果结束
.子程序 _转换为延时_被选择
.局部变量 r, 整数型
.如果真 (超级列表框_动作.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果 (编辑框_间隔时间.内容 ＝ “”)
' r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项 ＋ 1, , , , , )
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 0, “延时1000毫秒”)
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 1, 编辑框_备注内容.内容)
' 子程序_超级列表框 (“延时1000毫秒”, “”)
.否则
' r ＝ 超级列表框_动作.插入表项 (超级列表框_动作.现行选中项 ＋ 1, , , , , )
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 0, “延时” ＋ 编辑框_间隔时间.内容 ＋ “毫秒”)
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 1, 编辑框_备注内容.内容)
.如果结束
.子程序 _删除备注_被选择, , , 易语言学习资源、源码下载站：www.eyuyan.la
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 1, “”)
.子程序 _修改备注_被选择, , , 易语言学习资源、源码下载站：www.eyuyan.la
超级列表框_动作.置标题 (超级列表框_动作.现行选中项, 1, 编辑框_备注内容.内容)
新库软件 
