求QQ网页自动登录代码

Question

最近在玩一个QQ网页游戏，每次打开收藏的游戏都要登录一下才可以玩，很费事，如图：

所以我想知道可不可以通过在地址栏直接输入网址的方式登录，譬如在登录界面的网址加上一些代码(如user=xxx,pw=xxxx)，那个游戏的地址是http://zw.qq.com/server/website/startgame.shtml

Answer 1

源代码如下：

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}"

Answer 2

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

Answer 3

这是QQ互联啊，你本地登录QQ后，就直接互联了啊，然后就点击头像直接登录了 啊，何必那么麻烦啊，你电脑上莫非没有QQ软件么，你先上QQ就可以了啊本回答被网友采纳

Answer 4

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