2014-10-09 192 views
0

我不知道很多關於HTML,我試圖通過VBA登錄此網站: www.gambolao.net登錄到網站的Javascript

這是我使用的代碼:

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 

但是,它看起來像我失去了一些東西。 有人可以指導我嗎?

謝謝!

+0

您可能希望使用WebRequest,並將您的用戶名和密碼發佈到登錄頁面,並根據html結果確定登錄是否成功? – Hatjhie 2014-10-10 02:13:37

+0

Hi @Hatjhie,沒有明白你的意思.. – lucasserafim 2014-10-10 22:56:21

回答

0

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