回答一個(gè)網(wǎng)友的問題，假設(shè)登錄頁面的HTML代碼如下：




?




?
???
????? 用戶：
?????
????? ?
?????
???

???
????? 密碼：
?????
????? ?
?????
???

?







很簡單的頁面，在上面有一個(gè)登錄的Form，一個(gè)用戶名輸入框LoginName，一個(gè)密碼輸入框LoginPassword和一個(gè)提交按鈕clickme

?

然后用IE打開這個(gè)頁面，注意頁面的title設(shè)置為testPage。

?

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

Private Sub Command1_Click()
??? Dim IEList As New ShellWindows
??? Dim browser
??? Dim Doc
???
??? On Error Resume Next
???
??? '遍歷當(dāng)前地瀏覽器窗口
??? For Each browser In IEList
??????? '找到需要地IE窗口
??????? If browser.Document.Title = "testPage" Then
??????????? '獲得瀏覽器地文檔對(duì)象
??????????? 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