用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,即自动填表并提交。