Vb.Net等网页浏览器完成导航

Question

我该如何等待webbrowser加载页面？
我尝试：

webbrowser1.navigate(url) 
msgbox("done") 

Answer 1

Do While wb.ReadyState <> WebBrowserReadyState.Complete 
    Application.DoEvents() 
Loop 

Answer 2

这是当我有同样的问题我使用的方法。通过添加处理程序，您不必使用定时器来处理不必要的处理，而是在文档加载后立即触发事件。不要被名称documentcompleted愚弄，它实际上正在等待网页加载。

AddHandler (webbrowser1.DocumentCompleted), AddressOf WebpageLoaded 
webbrowser1.Navigate(url) 

Public Sub WebpageLoaded(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 
    MessageBox.Show("Done") 
End Sub 

我不是说这是最好的一段路要走，但它的工作很适合我:)

Answer 3

我继承WebBrowser控件的新类：

Public Class WebBrowserSyncFW 
     Inherits WebBrowser 

     Public Async Function NavigateSync(ByVal urlString As String, Optional ByVal timeoutmillisec As Integer = 30000) As Task(Of Boolean) 
      Dim IsLoaded As Boolean = False 

      Me.ScriptErrorsSuppressed = True 
      Me.Navigate(urlString) 

      AddHandler Me.DocumentCompleted, Sub(sender As Object, e As WebBrowserDocumentCompletedEventArgs) 
               IsLoaded = True 
              End Sub 

      For i = 1 To timeoutmillisec/100 
       Await Task.Delay(100).ConfigureAwait(False) 

       If IsLoaded = True Then Return True 
      Next 

      Return False 
     End Function 

    End Class 

用法：

 If Await WebBrowserSyncFW1.NavigateSync("http://www.youtube.com") Then 
      MsgBox("Page is loaded!", MsgBoxStyle.Information) 
     Else 
      MsgBox("Timeout!", MsgBoxStyle.Exclamation) 
     End If