[ali.alfoly]

السكر المغرور كتب :السلام عليكم

تفضل ،،

جزاك الله خير اخى والله كنت متوقع منك ذلك تمام
والله انى احبك فى الله
ومنذ تسجيلى فى هذا المنتدى وانا اشعر بسعادة باللغة

طيب لى رجاء
اريد من حدرتك اضافة تعليق على كل سطر حتى افهم الامر ماشى كيف لتصبح اعطيتنى الصنارة ولم تعطنى سمكة

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '
        Dim Loading As String = "Loading..."
        '
        TextBox1.Text = Loading
        '
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
        '
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        '
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        '
        Dim sourcecode As String = sr.ReadToEnd()
        '
        TextBox1.Text = sourcecode
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '
        Dim sourceString As String = New System.Net.WebClient().DownloadString("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
        '
        TextBox1.Text = sourceString
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '
        WebBrowser1.Navigate("http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        '
        Dim htmlTable As String = WebBrowser1.Document.GetElementById("AutoNumber2").InnerHtml
        '
        Dim TRtages() As String = Split(htmlTable, "<TD width=15>&nbsp;</TD>")
        '
        WebBrowser2.DocumentText = TRtages(0)
        '
        TextBox1.Text = TRtages(0)
    End Sub
End Class 


واتمنى منك عمل دورة بسيطه فى هذا الامر
او لو فيه دورة دلنى عليها