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循环并检查readyState，但由于某种原因，单击按钮后readyState不会改变..

任何想法？

感谢

ps：是否有更优雅的方式而不是do while-loop？例如。使用进度条？

Answer 1

• 使用vb.net

• wBrowser是一个webbroser对象

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