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

我想用按键精灵制作一个，可以在后台（就是窗口最小化或者隐藏窗口）对指定窗口移动鼠标左键和点击鼠标左键的脚本，但看了很多贴后制作出的脚本，但作用窗口在最前面时非常好用，但切换到其他窗口就不行了，怎么办？高手指点下呀。脚本如下
Dim hwnd
Plugin hwnd=Window.MousePoint()
Delay 1000
Rem star
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 400
Plugin BGKM5.LClick(hwnd,668,297)//左键单击“军事行动”
Delay 400
Plugin BGKM5.MMove(hwnd,573,199)//移动左键到“第一舰队”
Delay 400
Plugin BGKM5.LClick(hwnd,573,199)//左键单击“第一舰队”
Delay 400
Plugin BGKM5.MMove(hwnd,727,377)//移动左键到“急速”
Delay 400
Plugin BGKM5.LClick(hwnd,727,377)//左键单击“急速“
Delay 400
Plugin BGKM5.MMove(hwnd, 808,405)//左键移动到“确定出击”
Delay 400
Plugin BGKM5.LClick(hwnd,808,405)//左键单击“确定出击”
Delay 400
Plugin BGKM5.MMove(hwnd,758,300)//左键移动到“确定”
Delay 400
Plugin BGKM5.LClick(hwnd,758,300)//左键单击“确定”
Delay 500
Plugin BGKM5.MMove(hwnd,1062,57)//左键移动到“关闭窗口”
Delay 400
Plugin BGKM5.LClick(hwnd,1062,57)//左键单击“关闭窗口”
Delay 400//以上为一个出征循环，多次出征可复制以上内容
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 400
Plugin BGKM5.LClick(hwnd,668,297)//左键单击“军事行动”
Delay 400
Plugin BGKM5.MMove(hwnd,573,199)//移动左键到“第一舰队”
Delay 400
Plugin BGKM5.LClick(hwnd,573,199)//左键单击“第一舰队”
Delay 400
Plugin BGKM5.MMove(hwnd,727,377)//移动左键到“急速”
Delay 400
Plugin BGKM5.LClick(hwnd,727,377)//左键单击“急速“
Delay 400
Plugin BGKM5.MMove(hwnd, 808,405)//左键移动到“确定出击”
Delay 400
Plugin BGKM5.LClick(hwnd,808,405)//左键单击“确定出击”
Delay 400
Plugin BGKM5.MMove(hwnd,758,300)//左键移动到“确定”
Delay 400
Plugin BGKM5.LClick(hwnd,758,300)//左键单击“确定”
Delay 500
Plugin BGKM5.MMove(hwnd,1062,57)//左键移动到“关闭窗口”
Delay 400
Plugin BGKM5.LClick(hwnd,1062,57)//左键单击“关闭窗口”
Delay 400
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 120000
问题已经找到，自己动手进行了解决

举报该问题

推荐答案推荐于2016-02-23

具体代码如下:
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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/F4IIccGcL.html

其他回答

第1个回答 2010-11-27

脚本如下
Dim hwnd
Plugin hwnd=Window.MousePoint()
Delay 1000
Rem star
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 400
Plugin BGKM5.LClick(hwnd,668,297)//左键单击“军事行动”
Delay 400
Plugin BGKM5.MMove(hwnd,573,199)//移动左键到“第一舰队”
Delay 400
Plugin BGKM5.LClick(hwnd,573,199)//左键单击“第一舰队”
Delay 400
Plugin BGKM5.MMove(hwnd,727,377)//移动左键到“急速”
Delay 400
Plugin BGKM5.LClick(hwnd,727,377)//左键单击“急速“
Delay 400
Plugin BGKM5.MMove(hwnd, 808,405)//左键移动到“确定出击”
Delay 400
Plugin BGKM5.LClick(hwnd,808,405)//左键单击“确定出击”
Delay 400
Plugin BGKM5.MMove(hwnd,758,300)//左键移动到“确定”
Delay 400
Plugin BGKM5.LClick(hwnd,758,300)//左键单击“确定”
Delay 500
Plugin BGKM5.MMove(hwnd,1062,57)//左键移动到“关闭窗口”
Delay 400
Plugin BGKM5.LClick(hwnd,1062,57)//左键单击“关闭窗口”
Delay 400//以上为一个出征循环，多次出征可复制以上内容
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 400
Plugin BGKM5.LClick(hwnd,668,297)//左键单击“军事行动”
Delay 400
Plugin BGKM5.MMove(hwnd,573,199)//移动左键到“第一舰队”
Delay 400
Plugin BGKM5.LClick(hwnd,573,199)//左键单击“第一舰队”
Delay 400
Plugin BGKM5.MMove(hwnd,727,377)//移动左键到“急速”
Delay 400
Plugin BGKM5.LClick(hwnd,727,377)//左键单击“急速“
Delay 400
Plugin BGKM5.MMove(hwnd, 808,405)//左键移动到“确定出击”
Delay 400
Plugin BGKM5.LClick(hwnd,808,405)//左键单击“确定出击”
Delay 400
Plugin BGKM5.MMove(hwnd,758,300)//左键移动到“确定”
Delay 400
Plugin BGKM5.LClick(hwnd,758,300)//左键单击“确定”
Delay 500
Plugin BGKM5.MMove(hwnd,1062,57)//左键移动到“关闭窗口”
Delay 400
Plugin BGKM5.LClick(hwnd,1062,57)//左键单击“关闭窗口”
Delay 400
Plugin BGKM5.MMove(hwnd,668,297)//移动左键到“军事行动”
Delay 120000本回答被网友采纳

第2个回答 2010-11-29

呵呵
缺少goto star

相似回答

如何用按键精灵写脚本答：第一步，安装并打开按键精灵软件。在软件界面上，你可以看到“新建”按钮，点击它创建一个新的脚本文件。第二步，学习按键精灵的基本语法和命令。按键精灵的脚本语言相对简单，主要包括循环、条件判断、鼠标键盘操作等基本功能。例如，“MoveTo”命令可以移动鼠标到指定位置，“Lef...

按键精灵后台鼠标移动和点击脚本怎么制作。答：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 ...

按键精灵怎么在后台点鼠标啊?答：1、Do//循环开始，Delay 1000//等待1秒，点击 = WaitClick()//等待点击 Delay 10，//得到鼠标指向的窗口句柄 Hwnd = Plugin.Window.MousePoint()；2、GetCursorPos x, y//保存当前坐标，Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)//后台点击，Loop//循环结点。按键精灵是一款模拟鼠标键盘动作的软...

按键精灵后台鼠标移动和点击脚本怎么制作答：先获取要后台操作的窗口句柄，然后调用后台命令进行点击。参考以下代码：Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")Call Plugin.Bkgnd.LeftClick(Hwnd, 100, 200)

求按键精灵后台两个点之间鼠标点击脚本答：//后台循环左键点击点击 = WaitClick()//等待点击要抓取的窗口 Delay 10//等待时间10毫秒 //得到鼠标指向的窗口句柄 Hwnd = Plugin.Window.MousePoint()//下面这句是得到窗口句柄的客户区大小 sRect = Plugin.Window.GetClientRect(Hwnd)//MsgBox "得到窗口句柄的客户区大小为："& sRect //下面这...

大家正在搜

按键精灵键盘代替鼠标点击按键精灵怎么更改键盘按键按键精灵怎么设置键盘连点按键精灵鼠标不点击按键精灵控制鼠标按键精灵实现鼠标拖动按键精灵鼠标单击没反应按键精灵自动按键盘按键精灵无法执行鼠标单击