图登录qq空间登陆qq空间-【新闻】

发布时间：2021-04-05 16:13:11 阅读：次来源：牙膏厂家

Private Sub Command1_Click()

空间.Hide

登陆.Show

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate ("http://qzone.qq.com/")

Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1 '检测所有标签

If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签 Set vTag = vDoc.All(i)

If vTag.Type = "text" Then

vTag.Value = 登陆.Text1 '这个是输入到用户名中得值 End If

If vTag.Type = "password" Then

vTag.Value = "111222333" '这个是输入到密码框中的值 End If

If vTag.Type = "submit" Then

vTag.Click

End If

Next i

End Sub

***************************************************************************

http://ptlogin2.qq.com/getimage?aid=15000101&0.1394569642559953

登录qq空间登陆qq空间

http://ptlogin2.qq.com/getimage?aid=3000801&0.43878429697395826

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

vb如何获取百度验证码图片本工程需要Microsoft Internet Transfer Control 6.0控件 '-----------------------窗体上一个inet、一个picture、一个command

Private Sub Command1_Click()

Dim Buff() As Byte

Inet1.URL = "https://passport.qzone.qq.com/?verifypic"

Buff() = Inet1.OpenURL(, icByteArray)

p = App.Path + "\temp.jpg"

Open p For Binary As #1

For i = 0 To UBound(Buff)

Put #1, , Buff(i)

Close #1

Picture1.Picture = LoadPicture(p)

Kill p

End Sub

登录qq空间登陆qq空间

Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

List1.Clear

For i = 0 To vDoc.All.length - 1

If UCase(vDoc.All(i).tagName) = "INPUT" Then

"password" Then

"IMGod@paradise.com"

End

Next i

Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = List1.AddItem vTag.Name Select Case vTag.Name Case "Name" vTag.Value = "IMGod" Case "NickName" vTag.Value = "IMGod" Case "Password" vTag.Value = "IMGodpass" Case "EMail" vTag.Value = End Select ElseIf vTag.Type = "submit" Then vTag.Click End If If