Vb.Net Ждите завершения веб-браузера

Question

Как я могу подождать, пока веб-браузер загрузит страницу?
я пытался:

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

Answer 1

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

Answer 2

Это подход, который я использовал, когда я был с той же проблемой. Добавляя обработчик, вам не нужно использовать таймер для ненужной обработки, вместо этого событие будет срабатывать, как только документ будет загружен. Не обманывайтесь именем документа, завершенным, он действительно ждет загрузки веб-страницы.

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