求大神发个易语言的"鼠标连点源码"

xionghuaxin

求大神发个易语言的"鼠标连点源码"   最好加多一个“点击间设置隔框“”，就完美了，原作者发了个封装好的，我想要个.e的源码文件学习学习，感谢大侠的帮助。

小懒虫丶

[Asm] 纯文本查看 复制代码

.版本 2
.支持库 shellEx

.程序集 窗口程序集_启动窗口
.程序集变量 F5, 整数型
.程序集变量 F6, 整数型
.程序集变量 x, 整数型
.程序集变量 y, 整数型
.程序集变量 计数, 整数型

.子程序 __启动窗口_创建完毕

F5 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键)
F6 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)


.子程序 _时钟1_周期事件

鼠标_移动 (, x, y)
鼠标_按键 (1, 1)
计数 ＝ 计数 ＋ 1

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ F5)
    x ＝ 取鼠标水平位置 ()
    y ＝ 取鼠标垂直位置 ()
    编辑框1.内容 ＝ 到文本 (x)
    编辑框2.内容 ＝ 到文本 (y)
    返回 ()
.如果真结束
.如果真 (参数一 ＝ F6)
    时钟1.时钟周期 ＝ 0
    按钮1.禁止 ＝ 假
.如果真结束


.子程序 __启动窗口_将被销毁

撤销热键 (_启动窗口.取窗口句柄 (), F5)
撤销热键 (_启动窗口.取窗口句柄 (), F6)

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

.如果 (编辑框1.内容 ＝ “” 且 编辑框2.内容 ＝ “”)
    信息框 (“请选取坐标后开启！！！”, 0, “未选取坐标”, )
    返回 ()

.否则
    .如果 (编辑框3.内容 ＝ “”)
        编辑框3.内容 ＝ “1000”
        时钟1.时钟周期 ＝ 到整数 (编辑框3.内容)
        鼠标_移动 (, x, y)
        计数 ＝ 0
        按钮1.禁止 ＝ 真
    .否则
        时钟1.时钟周期 ＝ 到整数 (编辑框3.内容)
        鼠标_移动 (, x, y)
        计数 ＝ 0
        按钮1.禁止 ＝ 真
    .如果结束

.如果结束





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

标签5.标题 ＝ 到文本 (计数)

[indent]

xionghuaxin 发表于 2024-2-24 23:07
我精易是v10.1.5无法运行，我要晕死
那不好意思了，我的还是5.92，

ETH

https://share.weiyun.com/5H2uqey

我也是分享的论坛里的

如果你玩易语言 可以去专门的论坛去搜素相关的  我记得有一个精易

xionghuaxin

ETH 发表于 2024-2-24 17:01
https://share.weiyun.com/5H2uqey

我也是分享的论坛里的

谢谢这是个后台的程序，我需要可以前台控制的

xionghuaxin

xionghuaxin 发表于 2024-2-24 18:50
谢谢这是个后台的程序，我需要可以前台控制的

并且这款不能采集鼠标当前坐标位置

小懒虫丶

简单写了一下，可以自己改动一下https://wwb.lanzouq.com/iGVjL1pa9pbc

xionghuaxin

小懒虫丶 发表于 2024-2-24 22:44
简单写了一下，可以自己改动一下https://wwb.lanzouq.com/iGVjL1pa9pbc

我精易是v10.1.5无法运行，我要晕死

xionghuaxin

小懒虫丶 发表于 2024-2-25 07:33
[mw_shl_code=asm,true].版本 2
.支持库 shellEx

完美的解决了问题，非常详细，学习到了，感谢感谢！

xionghuaxin

xionghuaxin 发表于 2024-2-24 23:07
我精易是v10.1.5无法运行，我要晕死

想加个F2键开启，以下是代码，不知道哪里的问题，无法实现，请大侠指教



.版本 2
.支持库 shellEx

.程序集 窗口程序集_启动窗口
.程序集变量 F2, 整数型
.程序集变量 F5, 整数型
.程序集变量 F6, 整数型
.程序集变量 x, 整数型
.程序集变量 y, 整数型
.程序集变量 计数, 整数型

.子程序 __启动窗口_创建完毕

F2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
F5 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键)
F6 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)

.子程序 _时钟1_周期事件

鼠标_移动 (, x, y)
鼠标_按键 (1, 1)
计数 ＝ 计数 ＋ 1

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ F5)
    x ＝ 取鼠标水平位置 ()
    y ＝ 取鼠标垂直位置 ()
    编辑框1.内容 ＝ 到文本 (x)
    编辑框2.内容 ＝ 到文本 (y)
    返回 ()
.如果真结束
.如果真 (参数一 ＝ F6)
    时钟1.时钟周期 ＝ 0
    按钮1.禁止 ＝ 假
.如果真结束


.子程序 __启动窗口_将被销毁

撤销热键 (_启动窗口.取窗口句柄 (), F2)
撤销热键 (_启动窗口.取窗口句柄 (), F5)
撤销热键 (_启动窗口.取窗口句柄 (), F6)

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

.如果 (编辑框1.内容 ＝ “” 且 编辑框2.内容 ＝ “”)
    信息框 (“请选取坐标后开启！！！”, 0, “未选取坐标”, )
    返回 ()

.否则
    .如果 (编辑框3.内容 ＝ “”)
        编辑框3.内容 ＝ “1000”
        时钟1.时钟周期 ＝ 到整数 (编辑框3.内容)
        鼠标_移动 (, x, y)
        计数 ＝ 0
        按钮1.禁止 ＝ 真
    .否则
        时钟1.时钟周期 ＝ 到整数 (编辑框3.内容)
        鼠标_移动 (, x, y)
        计数 ＝ 0
        按钮1.禁止 ＝ 真
    .如果结束

.如果结束


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

标签5.标题 ＝ 到文本 (计数)

小懒虫丶

xionghuaxin 发表于 2024-2-25 11:37
想加个F2键开启，以下是代码，不知道哪里的问题，无法实现，请大侠指教

在标签事件里
如果真（参数一=F2）
按钮1 _被单击()
就是开启了 ，没在电脑旁 ，自己试一下