'الرابط الالكتروني الذي سوف يتم جلب السورس كود الخاص به
        Dim Url As String = "http://www.swalif.net/softs/index.php"
        'الترميز للموقع المستهدف
        Dim Myencoding As Encoding = Encoding.GetEncoding("Windows-1256")

        Dim MyWebRequest As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest)
        Dim MyWebResponse As HttpWebResponse = DirectCast(MyWebRequest.GetResponse(), HttpWebResponse)
        Dim MyStream As Stream = MyWebResponse.GetResponseStream()
        Dim MyStreamReader As New StreamReader(MyStream, Myencoding)

        'بداية قرائة السورس كود
        Dim HTMLSource As String = MyStreamReader.ReadToEnd()
        'نهاية قرائة السورس كود