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

2024-09-07 17:32:52

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

VB填充IE上的輸入框并提交
假設(shè)登錄頁(yè)面的HTML代碼如下：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>testPage</title>
</head>

<body>

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

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

然后打開(kāi)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