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

 更新时间:2007年02月26日 00:00:00   作者:  
可以定时打开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}"

相关文章

最新评论