vb6：按代碼在HTMLDocument上單擊按鈕，然後等待頁面加載

Question

我使用mshtml.tlb加載/解析html，我想將它擴展爲通過代碼單擊元素。例如，問題是在加載過程中陷入困境。點擊一個按鈕。 在我的具體情況下，我想執行用戶登錄。

這裏是我的代碼：

Dim WithEvents m_doc As HTMLDocument 

' load page 
Set m_docNU = New HTMLDocument 
Set m_doc = m_docNU.createDocumentFromUrl(m_url, vbNullString) 

Do While m_doc.readyState = "loading" Or m_doc.readyState = "interactive" 
DoEvents 
Loop 

set txtUsername = m_doc.getElementById("username") 
set txtPasswort = m_doc.getElementById("passwort") 
set myButton = m_doc.getElementById("submit") 

myButton.click 

現在，這裏的大問號：如何繼續vb6-像「等待頁面加載」？ 我試着按照上面的方法使用while while循環和檢查readyState，但由於某種原因readyState在點擊按鈕後沒有改變。

有什麼想法嗎？

感謝

PS：是不是有一個更優雅的方式在do while循環？例如。使用進度條？

Answer 1

• 使用vb.net

• wBrowser是webbroser對象

  While wBrowser.ReadyState <> WebBrowserReadyState.Complete 
      Application.DoEvents() 
  End While