VB填充IE上的輸入框并提交
發(fā)表時間:2024-02-25 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]回答一個網(wǎng)友的問題,假設(shè)登錄頁面的HTML代碼如下:?? ??? ????? 用戶: ????? ????? ? ????? ??? ??? ????? 密碼: ????? ????? ? ????? ??? ? 很簡單的頁面,在上面有一個登錄的Form,一個用戶名輸入框Lo...
回答一個網(wǎng)友的問題,假設(shè)登錄頁面的HTML代碼如下:
?
?
???
????? 用戶:
?????
????? ?
?????
???
???
????? 密碼:
?????
????? ?
?????
???
?
很簡單的頁面,在上面有一個登錄的Form,一個用戶名輸入框LoginName,一個密碼輸入框LoginPassword和一個提交按鈕clickme
?
然后用IE打開這個頁面,注意頁面的title設(shè)置為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