Dim url As String = "" url = "https://google.com/patents/" & ListBox1.SelectedItem.ToString() Dim thread As New Thread(Sub() Using browser As New WebBrowser() browser.ScrollBarsEnabled = False browser.ScriptErrorsSuppressed = True browser.AllowNavigation = True browser.Navigate(url) AddHandler browser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf DocumentCompleted) While browser.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() End While End Using End Sub) thread.SetApartmentState(ApartmentState.STA) thread.Start() thread.Join() ===================================== Private Sub DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Dim browser As WebBrowser = TryCast(sender, WebBrowser) Dim webCont As String = browser.Document.Body.InnerHtml PlaceHolder2.Controls.Add(New Literal() With {.Text = webCont}) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)