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}"