我以前寫過按鍵掛機,原理是隔壹段時間用壹次狀態.
現在改壹下,改為隔壹段時間按鍵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正式版的.