VB填充IE上的输入框并提交

回答一个网友的问题，假设登录页面的HTML代码如下：




?




?
???
????? 用户：
?????
????? ?
?????
???

???
????? 密码：
?????
????? ?
?????
???

?







很简单的页面，在上面有一个登录的Form，一个用户名输入框LoginName，一个密码输入框LoginPassword和一个提交按钮clickme

?

然后用IE打开这个页面，注意页面的title设置为testPage。

?

然后打开VB，在工程中引用Microsoft internet controls：

Private Sub Command1_Click()
??? Dim IEList As New ShellWindows
??? Dim browser
??? Dim Doc
???
??? On Error Resume Next
???
??? @#遍历当前地浏览器窗口
??? For Each browser In IEList
??????? @#找到需要地IE窗口
??????? If browser.Document.Title = "testPage" Then
??????????? @#获得浏览器地文档对象
??????????? Set Doc = browser.Document
???????????
??????????? @#填写用户名字段
??????????? Doc.body.All("LoginName").Value = "eddie"
??????????? @#填写密码字段
??????????? Doc.body.All("LoginPassword").Value = "123456"
???????????
??????????? @#提交
??????????? Doc.body.All("clickme").Click
??????? End If
??? Next
End Sub

原文转自：http://www.ltesting.net