VB自动登录discuz论坛

ggp 程序 2013-04-01 565 次浏览

Private Sub Command1_Click()
WebBrowser1.Navigate “http://www.xxx.com/logging.php?action=login” ’这里是登陆页面
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = WebBrowser1.Document
Dim i As Integer ’设置一个长度未知变量

For i = 0 To doc.All.length – 1’给i赋值
If UCase(doc.All(i).tagname) = “INPUT” Then’寻找input部分
Set Item = doc.All(i)
If Item.Type = “text” Or Item.Type = “password” Then’在input部分里寻找type问text或者type为password部分。大家看我给大家提取的网页源码的
Select Case Item.Name ’判断比较名称
Case “username” ’注意:这里的text改为网页上用户名那个文本框的名字
Item.Value = “ggp0531” ’输入用户名
Case “password” ’注意:这里的password改为用密码那个文本框的名字
Item.Value = “******” ’输入密码
End Select ’如果有验证码部分。。此次还需要判断。并输入验证码~这里不讨论。
ElseIf Item.Type = “submit” Then ’寻找提交的按钮
Item.Click ’单击提交按钮拉~
End If
End If
Next i
End Sub

回顶部