Dim Program1
WScript.Sleep 60000
Program1= "%ProgramFiles%\Tencent\QQ\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "cncn"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
这个是VBS脚本,那个 WScript.Sleep 60000 就是延时!你自己看看!(这个是自动登陆QQ延时)
那是应为你的电脑在非正常下关过机,所以启动会延长!
XP下面是没有办法的
作个批处理,用SLEEP命令