按键精灵 语法错误：脚本 聊天 ，第2行，第6个字符：（错误码0）没有找到合法的符号。

Question

Dim hwnd
Call Plugin hwnd = Window.GetKeyFocusWnd()
Call Plugin s=Window.GetClientRect(hwnd)
XYArray = Split(s, "|", - 1 , 1)
dx=XYArray(0)
dy = XYArray(1)

Call Plugin Bkgnd.MoveTo(hwnd, 57-dx, 300-dy)
For 1000

Call Plugin Bkgnd.LeftClick(hwnd, 1)

Call Plugin Bkgnd.MoveTo (hwnd, 365-dx, 787-dy)
Call Plugin Bkgnd.LeftClick (hwnd, 1)

Delay 1000
Call Plugin Bkgnd.MoveTo (hwnd, 409-dx, 845-dy)

Call Plugin Bkgnd.KeyDown (hwnd, 17, 1)
Call Plugin Bkgnd.KeyPress (hwnd, 86, 1)
Call Plugin Bkgnd.KeyUp (hwnd, 17, 1)

Delay 500
Call Plugin Bkgnd.MoveTo(hwnd, 409-dx, 845-dy)
Call Plugin Bkgnd.LeftClick(hwnd, 2)
Delay 500
Call Plugin Bkgnd.MoveTo(hwnd, 57-dx, 300-dy)
Delay 500
Call Plugin Bkgnd.MouseWheel (hwnd, -1)
Delay 500
Call Plugin Bkgnd.MoveR (hwnd, 0, 4)

Next

语法错误：脚本
聊天 ，第2行，第6个字符：（错误码0）没有找到合法的符号。
语法错误：脚本
聊天 ，第3行，第6个字符：（错误码0）没有找到合法的符号。
语法错误：脚本
聊天 ，第8行，第6个字符：（错误码0）没有找到合法的符号。
语法错误：脚本
聊天 ，第8行，第18个字符：（错误码0）没有找到合法的符号。

Answer 1

我靠 你这是什么代码啊 乱七八糟的 难道是旧版本的按键精灵？
Dim hwnd
hwnd = Window.GetKeyFocusWnd()
s = Window.GetClientRect(hwnd)
XYArray = Split(s, "|", - 1 , 1)
dx=XYArray(0)
dy = XYArray(1)
Call Plugin.Bkgnd.MoveTo(Hwnd, 57 - dx, 300 - dy)
For 1000
Call Plugin.Bkgnd.LeftClick(hwnd, 1 )//这句有问题
Call Plugin.Bkgnd.MoveTo(Hwnd, 365-dx, 787-dy)
Call Plugin.Bkgnd.LeftClick(hwnd, 1)//这句有问题
Delay 1000
Call Plugin.Bkgnd.MoveTo(Hwnd, 409 - dx, 845 - dy)
Call Plugin.Bkgnd.KeyDown(Hwnd, 17)//本来是(hwnd, 17, 1) 我估计后面的“1”应该是按的次数 所以我省略了，按键没这个语法
Call Plugin.Bkgnd.KeyPress(Hwnd, 86)
Call Plugin.Bkgnd.KeyUp(hwnd, 17)
Delay 500
Call Plugin.Bkgnd.MoveTo(Hwnd, 409 - dx, 845 - dy)
Call Plugin.Bkgnd.LeftClick(hwnd, 2)//这句也有问题
Delay 500
Call Plugin.Bkgnd.MoveTo(Hwnd, 57-dx, 300-dy)
Delay 500
Call Plugin.Bkgnd.MouseWheel(hwnd, -1)//这句也不知道是什么意思
Delay 500
Call Plugin.Bkgnd.MoveTo(hwnd, 0, 4)
Next
反正是我按照你这个来的 对不对我也不知道追问

= = 我新手....那该怎么改？我就想一边打字 同时让按键精灵操纵另一边的网页自动发消息.
Call Plugin.Bkgnd.LeftClick(hwnd, 1 )这个我想左键单击...Call Plugin.Bkgnd.MouseWheel(hwnd, -1)鼠标滑轮往下拨一下...

追答

网页的我不懂 你找别人吧

追问

和网页没关系 就是在网页上点来点去 和游戏什么一样.

追答

你还是先吧命令都搞清楚在写脚本

Answer 2

Dim hwnd
hwnd = Window.GetKeyFocusWnd()
s=Window.GetClientRect(hwnd)
XYArray = Split(s, "|", - 1 , 1)
dx=XYArray(0)
dy = XYArray(1)

Call Plugin. Bkgnd.MoveTo(hwnd, 57-dx, 300-dy)
For 1000

Call Plugin. Bkgnd.LeftClick(hwnd, 1)

Call Plugin. Bkgnd.MoveTo (hwnd, 365-dx, 787-dy)
Call Plugin. Bkgnd.LeftClick (hwnd, 1)

Delay 1000
Call Plugin. Bkgnd.MoveTo (hwnd, 409-dx, 845-dy)

Call Plugin. Bkgnd.KeyDown (hwnd, 17, 1)
Call Plugin. Bkgnd.KeyPress (hwnd, 86, 1)
Call Plugin. Bkgnd.KeyUp (hwnd, 17, 1)

Delay 500
Call Plugin. Bkgnd.MoveTo(hwnd, 409-dx, 845-dy)
Call Plugin. Bkgnd.LeftClick(hwnd, 2)
Delay 500
Call Plugin. Bkgnd.MoveTo(hwnd, 57-dx, 300-dy)
Delay 500
Call Plugin. Bkgnd.MouseWheel (hwnd, -1)
Delay 500
Call Plugin. Bkgnd.MoveR (hwnd, 0, 4)

Next