做了一个按键精灵后台鼠标操作的程序,只有全屏的时候有用,最小化或者改变窗口形状就不动了,下面是代码
DimhwndHwnd=Plugin.Window.MousePoint()sRect=Plugin.Window.GetClientRect(Hwnd)Delay100...
Dim hwnd
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Delay 100
Call Plugin.Bkgnd.MoveTo(Hwnd, 908, 245)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd, 908, 245)
Delay 100
Call Plugin.Bkgnd.MoveTo(Hwnd, 456, 396)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 456, 396)
Delay 14700
Call Plugin.Bkgnd.MoveTo(Hwnd, 542, 443)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 542, 443)
Delay 200 展开
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Delay 100
Call Plugin.Bkgnd.MoveTo(Hwnd, 908, 245)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd, 908, 245)
Delay 100
Call Plugin.Bkgnd.MoveTo(Hwnd, 456, 396)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 456, 396)
Delay 14700
Call Plugin.Bkgnd.MoveTo(Hwnd, 542, 443)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 542, 443)
Delay 200 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询