按键精灵9时间设置问题

//设置部分，记录窗口句柄到对应变量中
i=0
VBS Dim h(8)
Rem 设置
WaitKey k
If k>=49 and k<=57
Plugin h(i)=Window.Foreground()
If i>=8
Goto 设置结束
EndIf
i=i+1
Goto 设置
ElseIf k=48
Goto 设置结束
Else
Goto 设置
EndIf
Rem 设置结束
msgbox "已经为"&i&"个窗口设置了激活快捷键，设置结束"
//运行部分
Rem 运行
WaitKey k
If k>=49 and k<=57
i=k-49
Plugin Window.Active(h(i))
EndIf
Goto 运行

随手写了一个，没怎么测试，用了按键自带的窗口插件，窗口激活好象不太好用，对某些窗口无效，如果不能激活你那个游戏的窗口的话就需要另外找插件了。
使用方法，激活脚本后先进行设置，把你需要设置快捷键的窗口打开，按下快捷键就行了，快捷键可用1-9，设置完后按0结束设置，会有提示窗口弹出来，提示你设置了几个窗口，不需要提示的话把msgbox那句删了就行，设置完毕就进入使用阶段了，再按下你刚才设置好的快捷键就能激活对应的窗口了。