按键精灵后台鼠标移动和点击脚本怎么制作-
具体代码如下:
PutAttachment "d:\p", "*.*"
//获取窗口句柄
Hwnd = Plugin.Window.MousePoint()
//获取窗口客户区左上角坐标
sRect = Plugin.Window.GetClientRect(Hwnd)
xyArray = Split(sRect, "|", - 1 , 1)
dx = xyArray(0)
dy = xyArray(1)
//转移窗口
KMData = Plugin.bgkms6_10.KMTransform(hwnd, 0)
//Plugin.BGCP2_02.TransformWindow 参数1
//加载图片
tu = Plugin.BGCP2_02.LoadBMP("d:\p\4.bmp")
tu1 = Plugin.BGCP2_02.LoadBMP("d:\p\12.bmp")
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 3000
For 60
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu(0), 30, 0.9, ipX, ipY)
If ipX > 0 And ipY > 0 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 1000
Call Plugin.BGCP2_02.FindPicture(hwnd, 0, 0, 1024, 768 ,tu1(0), 30, 0.9, intX, intY)
If intX > 0 And intY > 0 Then
Call Plugin.bgkms6_10.MoveTo(KMData, intX, intY) //
Delay 1000
call Plugin.bgkms6_10.LeftClick (KMData) //这里后台点击鼠标左击没反应,是不是那地方写错了?
Delay 200
End If
End If
//End If
Next
Delay 100
Loop
Sub OnScriptExit
//释放转移窗口
Call Plugin.BGCP2_02.UnTransformWindow(Hwnd)
call Plugin.bgkms6_10.KMUntransform (KMData)
End Sub
Plugin hwnd =Window.MousePoint()
Rem Start
Delay 30000
Plugin Bkgnd.LeftClick(hwnd,867,679)
Plugin Bkgnd.KeyDown(hwnd,17)
Plugin Bkgnd.KeyPress(hwnd,86)
Plugin Bkgnd.KeyUp(hwnd,17)
Plugin Bkgnd.KeyPress(hwnd,13)
Plugin Bkgnd.KeyPress(hwnd,13)
Plugin Bkgnd.LeftClick(hwnd,940,600)
Goto Start
注意,后台鼠标点击需要获得窗口的坐标点才行,屏幕坐标和窗口坐标是不一样的,因此在前台可以用鼠标点击的东西转到后台就不行了,所以我建议下载个“小烦窗口查看器”,可以用它来扫描要找的窗口坐标,打开查看器后可以看到当前鼠标位置的两个坐标值,一个是“坐标”,一个是“鼠标坐标”,“坐标”是指当前窗口的坐标,后台点击需要找的就是这个坐标,“鼠标坐标”就是屏幕的坐标,和按键的抓点功能相同。打开查看器,把鼠标指向要找的点,取出它的窗口坐标后填到脚本里就可以用了。
先获取要后台操作的窗口句柄,然后调用后台命令进行点击。
参考以下代码:
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Call Plugin.Bkgnd.LeftClick(Hwnd, 100, 200)