[مبتدئ]

sooriaty03 كتب :تفضل أخي
هذا هو الكود

كود :

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

        End Try
    End Sub

بالتوفيق

جزاك الله الف خير اخى