按键精灵 游戏脚本 传奇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正式版的.