Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.ScriptErrorsSuppressed = True '网页错误提示 【屏蔽】
WebBrowser1.Navigate("https://blog.csdn.net")
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If (e.CurrentProgress > 0) And (e.MaximumProgress > 0) Then
ElseElseIf WEBB1.ReadyState = WebBrowserReadyState.Complete Then '加载完成 判断
TextBox1.Text = WebBrowser1.Document.Body.InnerText
End If
End Sub