包含vb.netqq空间的词条
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
分享文章:包含vb.netqq空间的词条
文章位置:http://pwwzsj.com/article/hoejjh.html