用vb自动填写并提交网页表单
、新建工程
2、加入控件WebBrowser1和按钮command1
3、在command1的click事件中加入如下代码
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" Then ''看看是不是我们需要的
Select Case vTag.Name
Case "subject" ''写标题,不同的网页表单,vTag.name的值不同,要查看网页源码并根据实际更改。下同。
vTag.Value = "你的文章标题"
End Select
If vTag.Type = "textarea" Then ''写发言内容,textarea表示文本区域
Select Case vTag.Name
Case "body" ''body是文本区域的name,从网页源码中查知。
vTag.Value = "你的文章内容"
End Select
If vTag.Type = "checkbox" And vTag.Value = "130" Then
vTag.Checked = "checked"
End If
If vTag.Type = "submit" And vTag.Value = "发表" Then ''找到发表按钮。
vTag.Select ''也可以没有这个
vTag.Click ''点击提交了,一切都OK了
End If
End If
End If
End If
Next i
End Sub
在form1的load事件中是如下代码:
Private Sub Form_Load()
WebBrowser1.Navigate "http://goal28.ziqu.com/fcgi-bin/addboard.f...bookname=250006" ''软件一启
动就导航到这个地址
End Sub
运行软件,点击command1,即自动填表并提交。