首页 > QQ技巧 > 正文

简单vbs实现一键快速登录QQ

时间:2010-05-02 11:33 作者:QQ地带 我要评论

号码太多,输入QQ密码麻烦,下面用脚本实现一键快速登录QQ。先把下面的代码复制到文本里。

Dim Program1
Program1="QQ路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

"QQ路径"改成你QQ的安装路径,获取办法,右键点击桌面快捷方式,查看属性,如图:

 

把里面的路径复制出来就是了,比如的代码就是:
 
Dim Program1
Program1="D:\Program Files\Tencent\QQ\Bin\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
 
然后把文本重命名为QQ.vbs,当然为了区分,可以命名为你的QQ号.vbs

顶一下
(1)
100%
踩一下
(0)
0%

Google提供的广告