按鍵精靈 遊戲腳本 傳奇3G

我以前寫過按鍵掛機,原理是隔壹段時間用壹次狀態.

現在改壹下,改為隔壹段時間按鍵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正式版的.