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