关于按键精灵的问题

　　对不起昨天本人脑子比较热，出错了...
　　以我现在的技术，Im可能 做到这个,所以送你两个脚本(定时和计时)，祝你好运...

　　启动键和循环键（就是不停按的键）不要相同
　　无聊自己做的（本来是我同学让我帮他挂sg做的...）：
　　UserVar a=DropList{不定时:24|0时:0|1时:1|2时:2|3时:3|4时:4|5时:5|6时:6|7时:7|8时:8|9时:9|10时:10|11时:11|12时:12|13时:13|14时:14|15时:15|16时:16|17时:17|18时:18|19时:19|20时:20|21时:21|22时:22|23时:23}=0 小时
　　UserVar b=DropList{不定时:60|0分:0|1分:1|2分:2|3分:3|4分:4|5分:5|6分:6|7分:7|8分:8|9分:9|10分:10|11分:11|12分:12|13分:13|14分:14|15分:15|16分:16|17分:17|18分:18|19分:19|20分:20|21分:21|22分:22|23分:23|24分:24|25分:25|26分:26|27分:27|28分:28|29分:29|30分:30|31分:31|32分:32|33分:33|34分:34|35分:35|36分:36|37分:37|38分:38|39分:39|40分:40|41分:41|42分:42|43分:43|44分:44|45分:45|46分:46|47分:47|48分:48|49分:49|50分:50|51分:51|52分:52|53分:53|54分:54|55分:55|56分:56|57分:57|58分:58|59分:59}=0 分钟
　　Rem 1
　　VBS Dim MyTime, MyHour
　　If a<24 and b<60
　　While a<24
　　VBS MyHour = Hour(now)
　　Gosub 小时
　　EndWhile
　　Else
　　Goto end
　　EndIf
　　Rem end
　　EndScript
　　Sub 小时
　　If myhour=a
　　While b<60
　　VBS MyMinute = Minute(Now)
　　Gosub 分钟
　　EndWhile
　　Else
　　Delay 1000
　　EndIf
　　Return 小时
　　EndScript
　　Sub 分钟
　　If myminute=b
　　VBSCall call RunApp("shutdown -s -t 00") （这里可以加入你定时的时间到后执行的代码，VBSCall call RunApp("shutdown -s -t 00")这句的意思是关机）

　　Goto 2
　　Else
　　Delay 1000
　　EndIf
　　Return 分钟
　　EndScript
　　Rem 2
　　VBS d=b+8
　　If d>60
　　VBS a=a+1
　　VBS b=d-60
　　If a>24
　　VBS a=0
　　VBS b=d
　　Else
　　EndIf
　　Else
　　VBS b=d
　　Goto 1
　　EndIf
　　EndScript
　　用这个人不在也能定时挂机了~~
　　上面那个是定时的，
　　再给你个计时的脚本吧
　　UserVar Vit1=0 计时(以秒为单位)
　　VBS a=0
　　VBS b=vit1*1000
　　Rem 1
　　Delay 100
　　While a<100000000000000000
　　VBS a=a+100
　　If a>=b
　　Goto 2
　　Else
　　Goto 1
　　EndIf
　　EndFor
　　Rem 2
　　VBSCall Call RunApp("Shutdown.exe -s")（这里可以加入你定时的时间到后执行的脚本，该句的意思同上）

　　脚本复制进按键精灵，就可以用了，最好的脚本永远都是自己做的，加油啊