跪求按键精灵9后台鼠标连点脚本
2个回答
展开全部
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
启动脚本时记录鼠标所指向的当前窗口及坐标后转换成后台坐标,最后根据后台坐标执行后台左键双击,每秒循环一次
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询