打开QQ并且让它自己输入用户名和密码的vbs脚本

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