皮皮网

1.按键精灵后台鼠标移动和点击脚本怎么制作。鼠标鼠标
2.求按键精灵2014版本的精灵精灵编译新源码后台鼠标连点器源文件

按键精灵后台鼠标移动和点击脚本怎么制作。

       具体代码如下:

       PutAttachment "d:\p",源码源码用armsys6410源码 "*.*"

       //获取窗口句柄

       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))