Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
Dim A As String = WebBrowser1.Document.GetElementById("mainTitle").InnerHtml
Dim B As String = WebBrowser1.Document.GetElementById("likelyCauses").InnerHtml
Dim C As String = WebBrowser1.Document.GetElementById("causeNotConnected").InnerHtml
WebBrowser1.Url = New Uri("file:///c:\Error.bmp") 'ضع الصورة هنا
Catch ex As Exception
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
Dim A As String = WebBrowser1.Document.GetElementById("mainTitle").InnerHtml
Dim B As String = WebBrowser1.Document.GetElementById("likelyCauses").InnerHtml
Dim C As String = WebBrowser1.Document.GetElementById("causeNotConnected").InnerHtml
WebBrowser1.Url = New Uri("file:///c:\Error.bmp") 'ضع الصورة هنا
Catch ex As Exception