1.按键精灵后台鼠标移动和点击脚本怎么制作。鼠标鼠标
2.求按键精灵2014版本的精灵精灵cadlisp源码怎么获取后台鼠标连点器源文件
按键精灵后台鼠标移动和点击脚本怎么制作。
具体代码如下:
PutAttachment "d:\p",源码源码用webcc源码下载 "*.*"
//获取窗口句柄
Hwnd = Plugin.Window.MousePoint()
//获取窗口客户区左上角坐标
sRect = Plugin.Window.GetClientRect(Hwnd)
xyArray = Split(sRect, "|", - 1 , 1)
dx = xyArray(0)
dy = xyArray(1)
//转移窗口
KMData = Plugin.bgkms6_.KMTransform(hwnd, 0)
//Plugin.BGCP2_.TransformWindow 参数1
//加载
tu = Plugin.BGCP2_.LoadBMP("d:\p\4.bmp")
tu1 = Plugin.BGCP2_.LoadBMP("d:\p\.bmp")
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay
Call Plugin.Bkgnd.KeyPress(Hwnd, )
Delay
For
Call Plugin.BGCP2_.FindPicture(hwnd, 0, 0, , ,tu(0), , 0.9, ipX, ipY)
If ipX > 0 And ipY > 0 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, )
Delay
Call Plugin.BGCP2_.FindPicture(hwnd, 0, 0, , ,tu1(0), , 0.9, intX, intY)
If intX > 0 And intY > 0 Then
Call Plugin.bgkms6_.MoveTo(KMData, intX, intY) //
Delay
call Plugin.bgkms6_.LeftClick (KMData) //这里后台点击鼠标左击没反应,是不是那地方写错了?
Delay
End If
End If
//End If
Next
Delay
Loop
Sub OnScriptExit
//释放转移窗口
Call Plugin.BGCP2_.UnTransformWindow(Hwnd)
call Plugin.bgkms6_.KMUntransform (KMData)
End Sub
求按键精灵版本的后台鼠标连点器源文件
代码如下
Hwnd = Plugin.Window.MousePoint()
宽高数组 = Plugin.Window.GetWindowRect(Hwnd)
MyArra = Split(宽高数组, "|", -1, 1)
GetCursorPos x, y
TracePrint "后台句柄是"&hwnd
//用前台坐标-窗口在屏幕的坐标 就是后台坐标
TracePrint "后台坐标是"&x-Myarra(0)&","&y-Myarra(1)
Call Plugin.Bkgnd.LeftClick(Hwnd, x-Myarra(0), y-Myarra(1))
