求QQ网页自动登录代码

求QQ网页自动登录代码

源代码如下：

Dim WshShell, QQPath, QQselect
QQPath="c:\Progra~1\Tencent\QQ\CoralQQ.exe"
Set
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys
"+{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"

复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“ProgramFiles”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了.红色为QQ.exe所在硬盘的路径，蓝色改为QQ号码，绿色改为此QQ号码的密码。

WScript.Sleep 2000
QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe"'QQ所在路径
Set
WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run
QQPath
WScript.Sleep 2000
WshShell.AppActivate
"QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{TAB}"
WshShell.SendKeys "123456789"
WScript.Sleep 200
WshShell.SendKeys
"{ENTER}"2014-03-23

这是QQ互联啊，你本地登录QQ后，就直接互联了啊，然后就点击头像直接登录了 啊，何必那么麻烦啊，你电脑上莫非没有QQ软件么，你先上QQ就可以了啊2013-10-19

QQ有快速登录，为什么不用快速登录呢？如果你想在网址上加代码登录，那这肯定是不可能的，这个方法也许在很多年前可以，不过现在肯定不行。那样的方式是不安全的，2013-10-19

用浏览器记住账号密码
先登录qq再打开网页，再点快速登陆
只能这样2013-10-21