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

可以定时打开QQ并且让它自己输入用户名和密码的脚本
复制代码 代码如下:
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}"