Question

百思不得其解，求高手赐教——按键精灵后台鼠标点击问题

我写了一小段脚本，经过测试在photo里可以实现，但是切到其他窗口就不运行了，在我想应用脚本的网页里根本不管用，是不是命令有问题，还是坐标不准确，求高手赐教

dim Hwnd
Hwnd = Plugin.Window.MousePoint()
Rem a
Delay 1000
Call Plugin.Web.LeftClick(1300,144)
Delay 1000
Call Plugin.Web.LeftClick(919,66)
Delay 1000
Call Plugin.Web.LeftClick(1212,812)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 758, 458)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 412, 387)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 1212, 812)
Goto a
追问里面的第四行我加了一个s=1122,不加的时候是dx = XYArray(0)
dy = XYArray(1)
这两行越界，加完之后变成dy = XYArray(1)
这行越界，崩溃了。。。挺简单一功能想实现为啥这么复杂

Answer 1

dim Hwnd '定义变量
Hwnd = Plugin.Window.MousePoint() '获得鼠标所在位置句柄，你想在网页中运行后台就要先切换到网页，然后再运行脚本，脚本一旦运行，其它位置脚本均不会产生效应

Call Plugin.Web.LeftClick(1300,144) '这个命令为网页鼠标左键单击，不是后台的鼠标单击

Call Plugin.Bkgnd.LeftClick(Hwnd, 758, 458) '这个命令是后台鼠标单击

你上面的脚本不全是后台脚本，如果要在后台运行，需要将其全部改成后台脚本，当然坐标一定要正确。。。。

追问

Hwnd = Plugin.Window.MousePoint()
Rem a
sRect = Plugin.Window.GetClientRect(Hwnd)
s = 1122
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYArray(1)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 1290-dx, 796-dy)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 919-dx, 721-dy)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 1215-dx, 811-dy)
Goto a
又修改了一下，恩调试的时候出现下标越界

追答

Hwnd = Plugin.Window.MousePoint()
s = Plugin.Window.GetClientRect(Hwnd)
(s = 1122) '这里的s是什么意思？句柄吗？？ 好像多余了 去掉试下
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYArray(1)
Delay 2000
Rem a
Call Plugin.Bkgnd.LeftClick(Hwnd, 1290-dx, 796-dy)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 919-dx, 721-dy)
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd, 1215-dx, 811-dy)
Goto a

你可以试下脚本，再出现越界，就把 后台鼠标点击偏移dx，dy 全部去掉再试下

Answer 2

你是按照屏幕坐标来定坐标位置的话。那就错了。