VB 自动登录QQ空间的问题

给你个提示仅供参考，有没有注意到登录空间时地址栏上出现的那大串地址？

我们提供的服务有：成都网站设计、成都做网站、微信公众号开发、网站优化、网站认证、仁化ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的仁化网站制作公司

其实，直接用VB登录它就可以打开空间了，有时候，我经常用这种方法在不登录QQ的情况下打开的

vb在浏览器控件中打开了qq空间怎么 写程序让她自己登陆我的账号密码

可以使用javascript代码输入账号密码，并登录。

浏览器控件执行js代码方法为：

WebBrowser1.Navigate("javascript:js代码")

经测试，qq空间网页可以使用元素id操作，每一步对应的js代码如下

切换到用户名密码登录方法：

document.getElementById("switcher_plogin").click();

输入用户名：

document.getElementById("u").value=123;

输入密码：

document.getElementById("p").value=123;

点击登录：

document.getElementById("login_button").click();

VB做登陆QQ空间的一个问题

刷新页面后,WebBrowser.Refresh,再给Image1.image重新赋值就能获取当前图片了

Vb 如何登陆QQ空间并点击进入“好友管理”

我比较奇怪的是QQ登陆时的密码是经过加密后传送的你作对加密算法么

有的话告诉我一声 呵呵

你的那个问题 我给你个地址 自己去看

;0.1394569642559953

这个就是QQ空间登录的验证码

刷新下变一次

求使用VB登录QQ空间代码，谢谢，高分悬赏

Private Sub Command1_Click()

If ValidQQNumber(Text1.Text) Then

WebBrowser1.Navigate "http://" Text1.Text ".qzone.qq.com/"

Else

MsgBox "请输入你正确的QQ号", vbExclamation

End If

End Sub

Private Sub Form_Resize()

If Me.WindowState = vbMinimized Then Exit Sub

WebBrowser1.Left = 0

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top

End Sub

Function ValidQQNumber(ByVal QQNum As String) As Boolean

Dim FoundMatch As Boolean

Dim myRegExp As Object

Set myRegExp = CreateObject("VBScript.RegExp")

myRegExp.IgnoreCase = True

myRegExp.Pattern = "^[1-9]\d{4,9}$"

FoundMatch = myRegExp.Test(QQNum)

ValidQQNumber = FoundMatch

End Function