跪求按键精灵9后台鼠标连点脚本

2024-11-06 15:26:34
推荐回答(2个)
回答1:

Dim Hwnd,坐标
Hwnd = Plugin.Window.MousePoint()
GetCursorPos x, y
坐标 = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray = Split(坐标, "|")
intX = x - Clng(MyArray(0)) : intY = y - Clng(MyArray(1))
Do
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, intX, intY)
Delay 1000
Loop

启动脚本时记录鼠标所指向的当前窗口及坐标后转换成后台坐标,最后根据后台坐标执行后台左键双击,每秒循环一次

回答2:

分太少,没人愿意做···你自己看教程,慢慢学拜