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 httpwww.baina.bizinfoadd-1893-1030.html End Sub
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 httpwww.baina.bizinfoadd-1893-1030.html
End Sub