3个回答
|Plugin ck=Window.GetKeyFocusWnd()
Delay 15
Plugin Window.SendKeyPress(ck,65)
Delay 15
Plugin BGKM5.LClick(ck,526,284)
Delay 20
For 3
Plugin Window.SendKeyPress(ck,27)
Delay 20
EndFor
修改：忘7a686964616fe78988e69d8331333238653839了说，526,284是屏幕坐标，你需要把它改成窗口坐标。把鼠标移到点击处，用下面的脚本获取窗口坐标。
Plugin hw=Window.MousePoint()
//获取当前窗口句柄
VBSCall GetCursorPos(x,y)
//获取鼠标当前屏幕绝对坐标
Plugin winxy=BGKM5.ScrToCli(hw,x,y)
//换算鼠标当前屏幕绝对坐标－－>鼠标相对于窗口的坐标，以“X|Y”格式的字符串表示
VBS StrXY_len = InStr(winxy,"|")
VBS wdx=Left(winxy,StrXY_len-1)
wdx=int(wdx)
VBS wdY=Right(winxy,StrXY_len-1)
wdy=int(wdy)
MessageBox wdx&","&wdy
hwnd = plugin.window.mousepoint()rem startdelay 100call plugin.bkgnd.keypress(hwnd, 13)delay 100call plugin.bkgnd.keypress(hwnd, 13)delay 100call plugin.bkgnd.keydown(hwnd, 50)delay 1500call plugin.bkgnd.keyup(hwnd, 50)delay 1500call plugin.bkgnd.keyup(hwnd, 50)call plugin.bkgnd.keypress(hwnd, 13)call plugin.bkgnd.keypress(hwnd, 13)delay 100call plugin.bkgnd.keypress(hwnd, 56)delay 3000goto start
1楼的回答很好，可是需要下载 361的后台插件……我下面这个是用 7.0版写的，你可以到按键精灵7a686964616fe4b893e5b19e31333238653839官网下载，如果鼠标移动位置不正确，就把 这里所有的 “284” 都换成 “261”
//下面这句是得到鼠标指向的窗口句柄
Plugin Hwnd = Window.MousePoint()
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：65)按下
Plugin Bkgnd.KeyDown(Hwnd, 65)
Delay 15
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：65)弹起
Plugin Bkgnd.KeyUp(Hwnd, 65)
Delay 15
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：526, 284)处
Plugin Bkgnd.MoveTo(Hwnd, 526, 284)
Delay 15
//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：526, 284)处发送一个鼠标左键单击
Plugin Bkgnd.LeftClick(Hwnd, 526, 284)
Delay 15
For 3
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：27)按下
Plugin Bkgnd.KeyDown(Hwnd, 27)
Delay 20
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：27)弹起
Plugin Bkgnd.KeyUp(Hwnd, 27)
Delay 20
EndFor