亲们看清楚要求再回复哦 求类似按键精灵的PC端自动点击工具，但是我的需求是，一键 [color=]同时点击 PC屏幕上的几个不同位置的点位（大概10个左右）， [color=]注意是同时点击 ， 我不知道有没有这样的工具，集思广益一下，手机端有多点触控，PC端多点击感觉应该也可以吧 多点, 几个
按键精灵可以实现吗？做十个线程，每个线程单击一个位置。然后同时运行？ [Asm] 纯文本查看 复制代码//注：按键精灵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
前台的按键精灵。界面一个输入框,，名字为坐标。用“”“/”分割抓取的坐标，类似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 按键精灵可以实现吗？做十个线程，每个线程单击一个位置。然后同时运行？ [mw_shl_code=asm,false]//注： ... 有没有按键精灵脚本语言的文档？
