[网络连接] 批处理如何自动登录QQ空间？

cjiabing

这两天搞了一个自动访问QQ空间的东东，挺好玩的，但有一个致命的问题，就是IE无法自动登录QQ空间，不支持自动登录独立打开的IE进程。后来使用其它浏览器，可以手动登录一次后面自动登录，但不能关闭浏览器进程，使得访问量多了打开的网页也多，耗机子得很！~用过一个无忧登陆软件，可以登录QQ，但无法自动登录空间、校友、城市达人之类的。看看各位有什么好建议，VB、JS、第三方都可以。
另外，这种（49+0=50位？）“c265e4bd629300c5649dbed9649c590952fd7f1c9e7c93a9”的编码方式是什么？它通常是以c265e4bd629300c5、48a5beee9d1bd、523f808094cf57e等位开头的……可以用来正常访问，但我想转换为正常的QQ号码，个人是否可行？

cjiabing

晕，没人懂这个啊！
试过几个论坛里的自动登录，不懂是我不会还不行，没见有成功的

Spring

经过我试验发现，QQ更改了登陆验证方式，需要两次请求，并且第一次会在浏览器存储 session，因此批处理无法实现这个登陆了。

而在测试用 VBS 自动登录时，发现他有时候有验证码，有时候又没有，暂时理解为网速慢的时候有验证码，需要手动输入才行，乳沟没有的话就自动登陆了，下面是代码：

QQWebLogin "QQ校友", "88888888", "mima123456"

'* 默认支持 "QQ空间"、"QQ校友"、"城市达人"。
'* 其它请自己添加。
'*----------------------------------------------
Function QQWebLogin(Target, QQNumber, Password)
	Dim URL, URLMapping
	Set URLMapping = CreateObject("Scripting.Dictionary")
		URLMapping.Add "QQ空间", "http%3A%2F%2Fuser.qzone.qq.com%2F" & QQNumber
		URLMapping.Add "QQ校友", "http%3A%2F%2Fxiaoyou.qq.com%2F"
		URLMapping.Add "城市达人", "http%3A%2F%2Fcity.qq.com%2F"
	Items = URLMapping.Items
	URL = Items(0)
	If URLMapping.Exists(Target) Then URL = URLMapping.Item(Target)
	URL = "http://ui.ptlogin2.qq.com/cgi-bin/login?" & _
	  "link_target=blank&appid=15000101&hide_title_bar=1&no_verifyimg=1&s_url=" & _
	  URL & "&f_url=loginerroralert&target=top&qlogin_jumpname=jump" & _
	  "&qlogin_param=u1%3Dhttp%3A//qzone.qq.com/new.html&ptcss=0"
	With CreateObject("InternetExplorer.Application")
		.Navigate URL
		Do Until .ReadyState = 4
			WScript.Sleep 421
		Loop
		Set img = .document.getElementsByTagName("img")(0)
		.document.all.u.value = QQNumber
		WScript.Sleep 421
		.document.all.p.value = Password
		WScript.Sleep 421
		If Not Len(img.src) > 17 Then
			.document.all.login_button.click
			WScript.Sleep 421
		End If
		.Visible = True
	End With
End Function
复制代码

cjiabing

不错，验证码是个难关，前面的程序也可以输入，但是密码错误，密码正确的时候会显示验证码，看来只能用世界之窗了