帮忙看看WebBrowser的这段代码，为什么不自动填入到网页输入框呢？谢谢
Option Explicit
Private Const Form_ID = 1
Dim Code(9) As String
Dim Current As Long
Private Sub Form_Load()
Form1.MousePointer = 11
Code(0) = "1351076 ": Code(1) = "1351076 ": Code(2) = "1351076 "
Code(3) = "1351076 ": Code(4) = "1351076 ": Code(5) = "1351076 "
Code(6) = "1351076 ": Code(7) = "1351076 ": Code(8) = "1351076 "
Current = 0
WebBrowser1.Navigate "http://www.hao123.com/haoserver/showjicc.htm "
End Sub
Private Sub WebBrowser1_Document(ByValpDisp As Object, URL As Variant)
Dim i, k
Text2 = WebBrowser1.LocationURL
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
On Error Resume Next
Select Case Text2
Case "http://www.hao123.com/haoserver/showjicc.htm "
For i = 0 To WebBrowser1.Document.Forms(mobile).length - 1
If WebBrowser1.Document.Forms( "mobile ")(i).Name = "code " Then _
WebBrowser1.Document.Forms( "mobile ")(i).Value = Code(Current)
If WebBrowser1.Document.Forms(cl)(i).Name = "target " Then
For k = 0 To WebBrowser1.Document.Forms(cl)(i).length - 1
If WebBrowser1.Document.Forms(cl)(i).Options(k).Text = "移动 " Then
WebBrowser1.Document.Forms(cl)(i).Options(k).Selected = True
Exit For
End If
Next k
End If
If WebBrowser1.Document.Forms(ok)(i).Value = " 提交 " Then _
WebBrowser1.Document.Forms(ok)(i).Click
Next
只拿了一段过来，谢谢大家帮我看看啊！
[解决办法]
'试试这个
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
Set vTag = vDoc.All(i)
If vTag.Type = "text " Then
Select Case vTag.Name
Case "wd "
vTag.Value = Text1.Text
End Select
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.baidu.com "
End Sub
