求PC端自动点击器
亲们看清楚要求再回复哦求类似按键精灵的PC端自动点击工具，但是我的需求是，一键同时点击PC屏幕上的几个不同位置的点位（大概10个左右），注意是同时点击，
我不知道有没有这样的工具，集思广益一下，手机端有多点触控，PC端多点击感觉应该也可以吧 感谢大家的回复，我有空会挨个测试一下，如果是按键精灵类需要编程的，最好提供开箱即用的代码，我把坐标替换一下就能用的那种，谢谢 按键精灵不行么？我记得是可以自己写的，时间写一样就是了 本帖最后由 greatpeng 于 2024-5-6 14:11 编辑
按键精灵可以实现吗？做十个线程，每个线程单击一个位置。然后同时运行？
//注：按键精灵8.20版“BeginThread”新增 返回值参数
MessageBox "多线程命令属于高级命令功能，不推荐新手使用。"
//所谓多线程并不是同时做一件相同的事情，而是不分前后顺序执行脚本。
Dimenv Hwnd1 //定义环境变量（多线程需要）
RunApp "notepad.exe" //启动3个记事本测试用
RunApp "notepad.exe"
RunApp "notepad.exe"
Delay 2000 //等待3个记事本工具打开
Hwnd = Plugin.Window.Search("无标题 - 记事本") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|") //分解句柄
If UBound(MyArray) >= 0 Then //判断是否搜到句柄？
For i = 0 To UBound(MyArray) - 1
hwndEx = Clng(MyArray(i)) //类型转换
Call Plugin.Window.Move(hwndEx, i * 200 + 100, i * 200 + 100) //调整窗口位置
Call Plugin.Window.Active(hwndEx) //激活前面
Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0) //获取可打字的窗口句柄
BeginThread 打字 //启动线程
Delay 100 //启动线程需要点时间
Next
End If
//以下是【无限循环】防止全部脚本停止。
Do
Delay 1000
Loop
//以下是【测试用】子程序例子
Sub 打字()
//首先获取环境变量句柄
Hwnd2 = Hwnd1
//然后开始循环或者无限循环需要执行的脚本内容
For i=0 to 20
Call Plugin.Bkgnd.SendString(Hwnd2, i)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd2, 13)
Delay 200
Next
End Sub autohotkey可以，根据教程可以自己设置需求：https://www.autohotkey.com/ 按键精灵可以的。易语言。点击10个坐标，完全可以。 前台的按键精灵。界面一个输入框,，名字为坐标。用“”“/”分割抓取的坐标，类似20,20/30,30/40,50/7,80
Dimenv 线程id
Dim id(),x,y
坐标 = Form1.坐标.Text
tmp = split(坐标, "/")
个数 = UBound(tmp)
ReDim id(个数)
TracePrint (个数+1)
For i = 0 To 个数
tmp2 = split(tmp(i), ",")
TracePrint tmp(i) & ":" & tmp2(0) & "--" & tmp2(1)
x = tmp2(0)
y=tmp2(1)
id(i) = BeginThread(点击(x,y))
线程id=id(i)
next
Sub 点击(x,y)
MoveTo cint(x), cint(y)
TracePrint 线程id
Do
LeftClick 1
Delay 1000
TracePrint 线程id
Loop
End Sub
Sub OnThreadExit()
TracePrint 线程id
End Sub
greatpeng 发表于 2024-5-6 14:10
按键精灵可以实现吗？做十个线程，每个线程单击一个位置。然后同时运行？
//注： ...
有没有按键精灵脚本语言的文档？ 傲雪不傲霜 发表于 2024-5-7 21:07
autohotkey可以，根据教程可以自己设置需求：https://www.autohotkey.com/
这个只有英文版吗，看的头大
页:
[1]