[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته



إيش رأيك بالحيلة دي

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If GetHtml("http://vb4arb.com/vb/showthread.php?tid=?").Contains("المشاركة التي حددتها غير موجودة") Then
            MsgBox("المشاركة التي حددتها غير موجودة")
        End If
    End Sub


    ' مصدر الصفحة
#Region " GetHtml As String "
    Public Function GetHtml(ByVal Url As String) As String
        Try
            If Not Url.ToLower().StartsWith("http://") Then Url = "http://" & Url

            Dim HttpWebRequest As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create(Url), Net.HttpWebRequest)
            Dim Response As Net.WebResponse = HttpWebRequest.GetResponse()
            Dim WebStream As IO.Stream = Response.GetResponseStream()
            Dim Reader As New IO.StreamReader(WebStream)

            Dim html As String = Reader.ReadToEnd()

            Reader.Close()
            WebStream.Close()
            Response.Close()

            Return html
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
#End Region


End Class

السلام عليكم ورحمة الله وبركاته