按键精灵后台鼠标点击

发布于2022-01-12 19:25:48

Dim hwndHwnd = Plugin.Window.MousePoint()//激活窗口Call Plugin.Window.Active(hwnd)//移动窗口到(0, 0)位置Call Plugin.Window.Move(h

1个回答
admin
网友回答2022-01-12
1.你取的句柄是不是可以输入的句柄,一般要最大化最小化窗口之类的命令是对父窗口的操作,用父窗口的句柄,而点击是子窗口的2.你鼠标点击的坐标是否减去了窗口左上角的坐标?前台鼠标点击是相对于屏幕左上角(0,0)而言的而后台是相对于窗口左上角坐标而言的,我建议你先用这段,如果不行就是句柄的问题Hwnd = Plugin.Window.MousePoint()sRect = Plugin.Window.GetClientRect(Hwnd) //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 dim MyArray MyArray = Split(sRect, "|") //下面这句将字符串转换成数值 L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)): B = Clng(MyArray(3))//激活窗口Call Plugin.Window.Active(hwnd)//移动窗口到(0, 0)位置Call Plugin.Window.Move(hwnd, 0, 0)Call Plugin.Window.Size(hwnd, 1024, 768)//向后台窗口句柄(变量:Hwnd)的客户区域(坐标:934, 119)处发送一个鼠标左键单击Call Plugin.Bkgnd.LeftClick(Hwnd, 934-L, 119-T)

回到
顶部