我所篇程序。。。。。。
Dim hwnd
Plugin hwnd=Window.MousePoint()
Plugin Window.Active(hwnd)
Plugin s = Window.GetClientRect(hwnd)
Rem 开始
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYarray(1)
Plugin Bkgnd.RightClick(hwnd,517-dx,451-dy)
Delay 30
Plugin Bkgnd.RightClick(hwnd,517-dx,451-dy)
Delay 30
Plugin Bkgnd.RightClick(hwnd,517-dx,451-dy)
Delay 10
Plugin Window.SendKeyPress(hwnd,76)
Delay 1500
Plugin Window.SendKeyPress(hwnd,76)
Delay 10000
Goto 开始
哪一位大侠帮我看一下,为什么实现不了后台的动作呢?!
我篇了好多鼠标的动作都实现不了。现在都删了!
用到下面的这话句:“Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击
Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击”
好像也起不到什么作用!
键盘的后台操作我已篇了好几个成功的程序!只是有要用到鼠标的语句就没有反应!
有没有哪个高手可以教我一下!!!!!!
希望能送我一段后台鼠标左键点屏幕中点的等程序!!!
可以给个理由:“为什么不能通过吗!?!?!?!??”