希望高手帮我写个按键精灵后台执行源代码

这是我第二次给人免费做脚本了 呵呵 有些郁闷中。。。。就是分数低了些 以后不做这样亏本的事了·· 呵呵··

学习按键脚本制作 请百度 游龙学院 第四个

后台脚本如下：可用已测试。。。 请自行复制到按键代码区。。

Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
//这里是将获得的窗口移到坐标 0 0处，你可以选择不要
Plugin winRect=Window.GetWindowRect(hwnd)
//根据"|"分开winRect
xy= Split(winRect, "|", -1, 1)
Rem 开始
Gosub 按键1
Delay 2400000
//延时 40分钟
Gosub 按键2
Delay 2400000
Gosub 按键3
Delay 2400000
Gosub 按键4
Delay 2400000
Gosub 按键5
Delay 2400000
Goto 开始
Sub 按键1
Plugin Bkgnd.Keydown(hwnd,81)
//按住Q不放
Plugin Bkgnd.Keypress(hwnd,49)
Return
Sub 按键2
Plugin Bkgnd.Keydown(hwnd,81)
//按住Q不放
Plugin Bkgnd.Keypress(hwnd,50)
Return
Sub 按键3
Plugin Bkgnd.Keydown(hwnd,81)
//按住Q不放
Plugin Bkgnd.Keypress(hwnd,51)
Return
Sub 按键4
Plugin Bkgnd.Keydown(hwnd,81)
//按住Q不放
Plugin Bkgnd.Keypress(hwnd,52)
Return
Sub 按键5
Plugin Bkgnd.Keydown(hwnd,81)
//按住Q不放
Plugin Bkgnd.Keypress(hwnd,53)
Return

///前台正常了再最小化(后台)
Delay 1000
Plugin hh=Window.MousePoint()
Delay 2000
For 2400
Plugin Bkgnd.KeyPress(hh,81)
Delay 1000
EndFor
Plugin Bkgnd.KeyPress(hh,49)
For 2400
Plugin Bkgnd.KeyPress(hh,81)
Delay 1000
EndFor
Plugin Bkgnd.KeyPress(hh,50)
For 2400
Plugin Bkgnd.KeyPress(hh,81)
Delay 1000
EndFor
Plugin Bkgnd.KeyPress(hh,51)
For 2400
Plugin Bkgnd.KeyPress(hh,81)
Delay 1000
EndFor
Plugin Bkgnd.KeyPress(hh,52)
For 2400
Plugin Bkgnd.KeyPress(hh,81)
Delay 1000
EndFor
Plugin Bkgnd.KeyPress(hh,53)

3