文章附件下载：www.pan38.com/dow/share.p… 提取密码：6537
从某网淘来的，非常牛X的一个鼠标连点击，能录制键盘和鼠标，我今天就大家分享出来
.版本 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_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型
网页_打开指定网址 (“www.luojiangtao.cn/index.php/2…)
.子程序 _时钟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, 编辑框_备注内容.内容)
