Private Sub Form_Load()
WebBrowser1.Navigate "http://www.
End Sub
Private Sub WebBrowser1_DownloadComplete()
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 "user" '填写用户名的文本框的值
              vTag.Value = "aaa"
        End Select
     End If

    If vTag.Type = "password" Then        '检测密码框类型
       Select Case vTag.Name
           Case "pass"                  '密码框的值
            vTag.Value = "12"
       End Select
    End If

End If
Next i
[bo]SendKeys "{enter}"[/bo]
End Sub

这样不行,因为你的焦点不在WebBrowser1控件中的"提交"按钮中.

应怎样改.我在它的源文件中找不到提交标签.

用keybd_event (13,0,0,0)

学习

先建一个类模块
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2

然后，这样，我就实验成功了
 
'每隔一秒中模拟一次鼠标事件
Private Sub Timer1_Timer()
If Option_Tag = 3 Then
    '两次连续的鼠标左键单击事件 构成一次鼠标双击事件
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    Call keybd_event(13, 0, 0, 0)
    Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)
  ElseIf Option_Tag = 2 Then
    '模拟鼠标右键单击事件
    mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
ElseIf Option_Tag = 4 Then
     DoEvents
     Call keybd_event(13, 0, 0, 0)
     Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)
   Else
   '调用了mouse_event函数，其参数的设置见前面说明
    '如果同时要模拟两个鼠标事件，可以用 Or 将两个参数连接
    '这里是 鼠标左键按下 和松开两个事件的组合即一次单击
     mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End If
End Sub