VB与IE浏览器交互——自动填表
VB填充IE上的輸入框并提交 ? ?
? 假設登錄頁面的HTML代碼如下： ?
? ?
? <!DOCTYPE ? HTML ? PUBLIC ? "-//W3C//DTD ? HTML ? 4.0 ? Transitional//EN"> ?
? ?
? <html> ?
? <head> ?
? ? <title>testPage</title> ?
? </head> ?
? ?
? <body> ?
? ?
? <FORM ? name=chh ? method ? = ? "POST" ? action ? = ? "login.asp"> ?
? ?
? ? ? <table ? width="100%" ? border="0" ? cellspacing="0" ? cellpadding="2"> ?
? ? ? ? ? <tr> ? ?
? ? ? ? ? ? ? <td ? width="31%" ? align="center">用戶：</td> ?
? ? ? ? ? ? ? <td ? width="69%" ? align="left"> ? ?
? ? ? ? ? ? ? ? <input ? name="LoginName" ? type="text" ? id="LoginName" ? size="12"> ? ?
? ? ? ? ? ? ? </td> ?
? ? ? ? ? </tr> ?
? ? ? ? ? <tr> ? ?
? ? ? ? ? ? ? <td ? width="31%" ? align="center">密碼：</td> ?
? ? ? ? ? ? ? <td ? width="69%" ? align="left"> ? ?
? ? ? ? ? ? ? ? <input ? name="LoginPassword" ? type="password" ? id="LoginPassword" ? size="12"> ? ?
? ? ? ? ? ? ? </td> ?
? ? ? ? ? </tr> ?
? ? ? </table> ?
? <input ? type ? = ? "submit" ? id ? = ? "clickme" ? value ? = ? "提交"> ?
? </FORM> ?
? </body> ?
? </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???
?
怎么編程把用戶名，密碼提交到網頁上的登錄頁？
首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
假設你的HTML頁面表單代碼如下：
注意其中元素的type、Name、value屬性。然后VB中的代碼如下：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://chen/chat/newuser.htm"
End Sub
?
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
List1.AddItem vTag.Name
Select Case vTag.Name
Case "Name"
vTag.Value = "IMGod"
Case "NickName"
vTag.Value = "IMGod"
Case "Password"
vTag.Value = "IMGodpass"
Case "EMail"
vTag.Value = "IMGod@paradise.com"
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub
點擊Command1就可以自動填表并提交了。
?
總結
以上是生活随笔為你收集整理的VB与IE浏览器交互——自动填表的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 读《【白硕】什么是语言学里的“事实”？》
- 下一篇： 微信：把元宇宙装进小程序