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.Name = "user" Then '表单的NAME的值
vTag.Value = user '需要填入的值
End If
If vTag.Name = "pass" Then '表单的NAME的值
vTag.Value = pass '需要填入的值
End If
If vTag.value= "登录" Then '表单的NAME的值
vTag.click '点击按钮
End If
'可以在这里多添加几个要填入的项目