网页自动提交模拟器

Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标,
添加一个WebBrowser1到Form1
commmand1 模拟登录    command2模拟取超链接
-----------------------------------------------------------------------------
Private Sub Command1_Click()
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" or vTag.Type = "password" Then '看看是不是我们需要的
'        Select Case vTag.Name '按标签的名字,对号操做
'        Case "EMAILADD"
'           vTag.Value = "myemail@home.com" '这里写入你的e-mail
'        Case "PASSWD"
'           vTag.Value = "password" '这里写入你的密码
'        End Select
'    ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value = "订阅" Then
'    '找到提交按钮
'        vTag.Select '也可以没有这个
'        vTag.Click '点击提交了，一切都OK了
'    End If
 
    If vTag.id = "userName" or vTag.Name = "userName" Then '用户名
           vTag.Value = "lianxiangpanjin"
    End If
    If vTag.Type = "password" And vTag.Name = "password" Then '密码
           vTag.Value = "123456789"
    End If
    If vTag.Type = "submit" And vTag.Value = "登录" Then '提交
            vTag.Select
           vTag.Click
    End If
End If



Next i
End Sub

Private Sub Command2_Click()
Dim vTag, vDoc
Dim Allcount, i
'List1.Clear
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).TagName) = "A" Then '找到URL
vTag = vDoc.Item(i).href
'If InStr(vTag, "http://www.is21.cn") Then '检测URL中是否含有http://dhunter.51.net
'List1.AddItem vDoc.Item(i).href '如果有,则添加到list1中
Debug.Print vDoc.Item(i).href
'End If
End If
Next i
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.163.com/"

End Sub

[本日志由 admin 于 2008-05-16 09:34 AM 编辑]
文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=251
Tags: