简介

类型

自助VBS登陆脚本

简介

QQ聊天、QQ游戏现在是上网者最普遍要做的事情。登陆QQ每次都要输入账号、密码、有时候聊天聊的很相投的时候，断电了，还要再次登陆QQ，打开后聊天的内容找不到了。密码总是说不对，可能是被盗了。

QQ在线登陆器：是一种可以快速登录多个QQ号码，不用每次登录都输入密码的自动登陆软件。其工作原理即预先设置好QQ密码，在下次需要登陆这个QQ号的时候只需鼠标一点即可直接登陆。

类型

现在最普通的QQ登陆器有[无忧登陆]：

说明：QQ上线登陆器除了能帮您自动登陆QQ，还可以自动登陆论坛、网页、博客、邮箱等想有想登陆的东西。不需要每次都输入密码，只要一点就可以了。非常方便。此高强度的登陆方式可以完全跨越登陆界。还可以自动保存QQ登陆的账号与密码，登陆时非常安全。它有自带的杀毒软件卡巴斯基。

杀毒方法：

自动杀毒，也可也安装其它的杀毒软件。

自助VBS登陆脚本

Dim Program1

Program1= "QQ所在目录（要包含QQ.EXE）"

Set WshShell=createobject("wscript.shell")

Set oExec=WshShell.Exec(Program1)

WScript.Sleep 3000

WshShell.AppActivate "这里随便打"

WshShell.SendKeys "+{TAB}"

WshShell.SendKeys "要登陆的帐号"

WScript.Sleep 200

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "对应的密码"

WScript.Sleep 200

WshShell.SendKeys "{ENTER}"

将此脚本保存为.vbs便大功告成了！

只要运行脚本就会自动打开并登陆QQ！不过由于是明文保存，所以存在泄漏密码的可能！如果有能力的可以制造脚本用来创建这个脚本，这样你就可以对帐号密码进行可逆加密了。不过对于即不会输出脚本有害怕泄漏的人还有一个特别的办法。只是将密码处变成一个变量，然后用指令弹出对话框手动输入下密码就可以了。不过有种多此一举的感觉，我也就不改脚本了。

PS:此脚本收集自网络除注释外无变更。