包含vb.netqq空间的词条

VB 自动登录QQ空间的问题

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

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

相关问答

Q1: 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();

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

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

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

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

有的话告诉我一声 呵呵

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

;0.1394569642559953

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

刷新下变一次

Q4: 求使用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