dim program 
program="c:/Program Files/Tencent/qq/QQ.exe"  '你的qq路徑
set Wshell=CreateObject("Wscript.Shell") 
set oexec=Wshell.Exec(program) 
wscript.Sleep 2000 
Wshell.AppActivate "QQTang" 
Wshell.SendKeys "+{TAB}" 
Wshell.SendKeys "QQ號碼" 
wscript.Sleep 1000 
Wshell.SendKeys "{TAB}" 
Wshell.SendKeys "QQ密碼" 
wscript.Sleep 1000 
Wshell.SendKeys "{ENTER}"