1

こんにちは、Internet Explorer を開き、Web サイトに移動し、ユーザー ID とパスワードを入力して、最後にログイン ボタンをクリックするコードを思いつきました。

コードは次のとおりです。

Public Sub LOGIN()

    Dim objIE As SHDocVw.InternetExplorer 
    Dim htmlDoc As MSHTML.HTMLDocument 
    Dim htmlInput As MSHTML.HTMLInputElement
    Dim htmlColl As MSHTML.IHTMLElementCollection

    Set objIE = New SHDocVw.InternetExplorer

    With objIE
        .Navigate "https://website.co.in" ' Main page
        .Visible = 1
        Do While .READYSTATE <> 4: DoEvents: Loop
        Application.Wait (Now + TimeValue("0:00:02"))

        Set htmlDoc = .document
        Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
        Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
        For Each htmlInput In htmlColl
            If htmlInput.Name = "UserName" Or htmlInput.Type = "text" Then
                htmlInput.Value = "Adidas"
            Else
               If htmlInput.Name = "password" Then
                 htmlInput.Value = "Daddy123"

                End If
            End If
        Next htmlInput

        Set htmlDoc = .document
        Set htmlColl = htmlDoc.getElementsByTagName("input")
        Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
        For Each htmlInput In htmlColl
            If Trim(htmlInput.Type) = "submit" Then
                htmlInput.Click
                Exit For
            End If
        Next htmlInput
    End With
End Sub

しかし、このスクリプトを作成した Web サイトは Internet Explorer をサポートしていないため、同じものを Firefox で開きたいと考えています。私は無知で、これまで何も試していません。私を助けてください。

4

1 に答える 1

4

Firefox は COM オブジェクトを公開しないため、IE を制御する方法で制御することはできません。ただし、 SeleniumやAutoItなど、他の自動化ツールを使用して目標を達成できる場合があります。

別のオプションとして、 Fiddlerなどで認証トラフィック (つまり、「ログイン」ボタンをクリックしたときに発生する通信) を傍受し、VBScript を使用してXMLHTTPRequestでログインを自動化することもできます。

Set req = CreateObject("MSXML2.XMLHTTP.6.0")
req.open "POST", "http://www.example.org/", False
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.send "field1=foo&field2=bar&..."
于 2013-03-26T11:38:47.900 に答える