请教高手我的按键精灵9脚本怎么改成可以后台运行（间隔时间自动使用技能）

Question

VBSBegin
Sub UseSkill(ByVal KeyCode,ByVal ColdTime,ByVal EffTime)
'KeyCode 快捷键按键码, ColdTime 冷却时间，EffTime 效果持续时间
Execute "T = T" & KeyCode
'执行语句块，取得时间 T
If DateDiff("s",T,Now()) >= EffTime Then
KeyPress KeyCode,1
Execute "T" & KeyCode & "=Now()"
'执行语句块，每个技能使用时间的变量名，用 T 加 按键码表示
Delay ColdTime*1000
'延迟，注意换算单位
End If
End Sub
VBSEnd
//按快捷键1(按键码49)，冷却时间1.5秒，效果持续时间为1800秒
//按快捷键2(按键码50)，冷却时间1.5秒，效果持续时间为1800秒
//按快捷键3(按键码51)，冷却时间1.5秒，效果持续时间为1800秒
//按快捷键4.。。。。。。。。。。。。。。。。。。。。。。。
Rem start
Delay 100
UseSkill 49,1.5,1800
UseSkill 50,1.5,1800
UseSkill 51,1.5,1800
UseSkill 52,1.5,1800
UseSkill 53,1.5,1800
UseSkill 54,1.5,1800
UseSkill 55,1.5,1800
UseSkill 56,1.5,300
UseSkill 57,1.5,300
UseSkill 48,1.5,300
Goto start

Answer 1

上半部分的VBS执行块是定义函数，下半部分是函数的调用，把定义函数中的前台按键改成后台按键就可以了。启动的时候把鼠标移到需要后台操作的窗口上。代码如下：
VBSBegin
Sub UseSkill(KeyCode, ColdTime, EffTime)
Hwnd = Plugin.Window.MousePoint()
Execute "T = T" & KeyCode
If DateDiff("s",T,Now()) >= EffTime Then
Call Plugin.Bkgnd.KeyPress(Hwnd, KeyCode)
Execute "T" & KeyCode & "=Now()"
Delay ColdTime*1000
End If
End Sub
VBSEnd
Hwnd = Plugin.Window.MousePoint()
Do
Delay 100
UseSkill 49,1.5,1800
UseSkill 50,1.5,1800
UseSkill 51,1.5,1800
UseSkill 52,1.5,1800
UseSkill 53,1.5,1800
UseSkill 54,1.5,1800
UseSkill 55,1.5,1800
UseSkill 56,1.5,300
UseSkill 57,1.5,300
UseSkill 48,1.5,300
Loop

Answer 2

我草，还是VBS，你就说要自动按什么键就行了，我做出来，可以自动设置间隔时间

追问

按键码对应的按键是1-9（按键码49-按键码57），0键的按键码是48

追答

我还不知道按键码啊，我问的是你要按什么键，F123456？

追问

不好意思，我就需要按1-0键这10个键。

追答

你是需要一路从1按到0还是那个技能好了按哪个？刚刚完成突然想到这个问题。我QQ:915756139
加我的时候注明身份