几秒?你的机器配置还不错啊,
我以前写过按键挂机,原理是隔一段时间用一次状态.
现在改一下,改为隔一段时间按键CTRL+alt
dim temp,RunTime,TimeNow,interval
interval=10
//设置时间间隔,这里设为10秒
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
//取得当前时间
RunTime=DateAdd("s",interval,TimeNow)
//求得执行Ctrl+ALT的时间
Rem start
Delay 50
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
temp= DateDiff("s",TimeNow,RunTime)
//求得离执行时间还有多少秒
If temp<1
Gosub ch
EndIf
delay 50
Goto start
//循环
Sub ch
KeyDown 17,1
//按下ctrl
KeyPress 18,1
//其中ALT对应键值为18,若tab则应为9,CTRL为17,一次循环只按1次
KeyUp 17,1
//放开Ctrl
RunTime=DateAdd("s",interval,TimeNow)
Return
//=======================
我不知道你按Ctrl+alt有什么用.
我只知道,窗口切换用ALt+TAB
------------------
//下面是每隔10秒按一次ALT+TAB的代码
dim temp,RunTime,TimeNow,interval
interval=10
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
RunTime=DateAdd("s",interval,TimeNow)
Rem start
Delay 10
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
temp= DateDiff("s",TimeNow,RunTime)
If temp<1
Gosub ch
EndIf
Delay 50
Goto start
Sub ch
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
RunTime=DateAdd("s",interval,TimeNow)
Return
注:在我的机子测试通过(10秒自动按一次ALT+TAB实现换窗口)
我用的按键精灵是6.10正式版的.
温馨提示:答案为网友推荐,仅供参考