你问题代码都写错了,还好我看的懂。
Dim hwnd
Plugin Hwnd =Window.MousePoint() ' 得到鼠标指向的窗口句柄
Plugin Bkgnd.KeyPress(hwnd,49) ' 按键<1>
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,50) ' 按键<2>
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,112) ' 按键
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,113) ' 按键
Delay 1000
按你要求写的,应该能看的懂吧。
dim i=0
Plugin Hwnd = Window.Find(0, "qq炫舞")
While i=0
Delay 1000
Plugin Window.SendKeyPress(Hwnd, 49,1)
Delay 1000
Window.SendKeyPress(Hwnd, 50,1)
Delay 60000
Window.SendKeyPress(Hwnd, 112,1)
Delay 120000
Window.SendKeyPress(Hwnd, 113,1)
EndWhile
// 如果你玩的是QQ炫舞,游戏你自已改