添加2个text，一个command，一个 WebBrowser

Dim vDoc,vTag @H_404_3@Dim i As Integer

Private Sub Command1_Click() @H_404_3@Set vDoc = WebBrowser1.Document @H_404_3@For i = 0 To vDoc.All.length - 1 @H_404_3@If UCase(vDoc.All(i).tagName) = "INPUT" Then @H_404_3@Set vTag = vDoc.All(i) @H_404_3@If vTag.Type = "text" Then @H_404_3@Select Case vTag.Name @H_404_3@Case "username" @H_404_3@vTag.Value = Text1 '用户名 @H_404_3@End Select @H_404_3@End If @H_404_3@If vTag.Type = "password" Then @H_404_3@Select Case vTag.Name @H_404_3@Case "password" @H_404_3@vTag.Value = Text2 '密码 @H_404_3@End Select @H_404_3@End If @H_404_3@If vTag.Name = "remUser" Then '如果不要记住用户名，此句删除 @H_404_3@vTag.Click @H_404_3@End If @H_404_3@If vTag.Type = "submit" Then '如果不要点击按钮登陆，把此if的代码删除 @H_404_3@vTag.Click @H_404_3@End If @H_404_3@End If @H_404_3@Next i @H_404_3@End Sub

Private Sub Form_Load() @H_404_3@WebBrowser1.Navigate "http://mail.163.com/" End Sub