引用刚刚学会，如何提交表单，将TEXT3.TEXT放入到百度的搜索框去，当做关键字来搜索，这点找了好多地方，也不太明白，求大侠相助！



Private Sub Form_Load()
 WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub Command1_Click()

Dim a, b, c As String

 w1 = "c:\1.txt": w2 = "c:\2.txt": w3 = "c:\3.txt"

 Open w1 For Input As #1
 While Not EOF(1)
 Line Input #1, a
Text1.Text = a
 Wend
 Close #1

 Open w2 For Input As #2
 While Not EOF(2)
 Line Input #2, b
 Text2.Text = StrReverse(b)
 Wend
 Close #2

 

 Text3.Text = Text1.Text & "-" & Text2.Text
 c = Text3.Text
  
  
  
Open w3 For Output As #3
 Print #3, c
 Close #3
 
 End Sub


后面不知道如何办了。？？？？？？？？？

自己弄了点：


    Set doc = WebBrowser1.Document
    Dim i As Integer
For i = 0 To doc.All.length - 1
        If UCase(doc.All(i).tagname) = "INPUT" Then
            Set Item = doc.All(i)
            If Item.Type = "text" Then
                Select Case Item.Name
                    Case "wd"
                        Item.Value = Text3.Text  '输入用户名
                    
                    End Select
            ElseIf Item.Type = "submit" Then
                Item.Click
            End If
        End If
    Next i


上面的能用，可是还是有些不明白。有更好的办法吗？