VB自动填表 大神都来看看啊

Question

Private Sub Command1_Click()
Dim vDoc As Object
Set vDoc = WebBrowser1.Document.childNodes(1)
Dim vBody As Object
Set vBody = vDoc.childNodes(1)
Dim i As Long
Dim vInput As Object
For i = 0 To vBody.getElementsByTagName("INPUT").length - 1
Set vInput = vBody.getElementsByTagName("INPUT")(i)
If vInput.Name = "int_4" Then
vInput.Value = Combo1.Text
End If
If vInput.Name = "title" Then
vInput.Value = Text1.Text
End If
If vInput.Name = "numeric_1" Then
vInput.Value = Text3.Text
End If
If vInput.Name = "text" Then
vInput.Value = Text6.Text
End If
If vInput.Name = "tel" Then
vInput.Value = Text5.Text
End If
If vInput.Name = "realname" Then
vInput.Value = Text4.Text
End If
If vInput.Name = "submit1" Then
vInput.Value = "发布"
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baina.biz/infoadd-1893-1030.html"
End Sub

Answer 1

http://www.autohotkey.com