Question

我不太了解HTML，我试图通过vba登录这个网站： www.gambolao.net

这就是我正在使用的代码：

Sub Login()
    Dim IEexp As InternetExplorer
    Set IEexp = New InternetExplorer
    IEexp.Visible = True
    IEexp.navigate "http://www.gambolao.net"

    Do While IEexp.readyState <> 4: DoEvents: Loop

    Dim userName As HTMLInputElement
    Set userName = IEexp.document.getElementByName("username")

    Dim userPW As HTMLInputElement
    Set userPW = IEexp.document.getElementById("password")

    userName.innerText = "myUsername"
    userPW.innerText = "myPassword"

    IEexp.document.getElementById("submit").Click

    IEexp.Quit
    Set IEexp = Nothing
End Sub

然而，看起来我错过了一些东西。请有人指导我吗？

谢谢！

Answer 1

enter code here我们来试试吧。由于我没有测试代码，请告诉我它是否正常工作。请参阅突出显示的帖子：

Sub Login()
    Dim IEexp As InternetExplorer
    Set IEexp = New InternetExplorer
    IEexp.Visible = True
    IEexp.navigate "http://www.gambolao.net"

    Do While IEexp.readyState <> 4: DoEvents: Loop

    Dim userName As HTMLInputElement
    Set userName = IEexp.document.getElementByName("username")

    Dim userPW As HTMLInputElement
    Set userPW = **IEexp.document.getElementByName("pw")**

    userName.innerText = "myUsername"
    userPW.innerText = "myPassword"

    **IEexp.document.getElementByName("pw")[0].nextSibling.click()**

    IEexp.Quit
    Set IEexp = Nothing
End Sub

登录网站Javascript

1 个答案: