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- 像“等到页面加载”？ 我已经尝试使用 do while-loop 并检查 readyState，但由于某种原因，readyState 在单击按钮后没有改变..

有什么想法吗？

谢谢

ps：有没有比 do while 循环更优雅的方法？例如。使用进度条？

Answer 1

• 使用 vb.net

• wBrowser 是一个网络浏览器对象

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