[ali.alfoly]

اخوانى الكرام
انا عامل برنامج اجمع فيه معلومات عن هواتف نوكيا من بعض المواقع ثم اخذنها على جهازى
المطلوب
افتح هذا الرابط اولا
ثم انظر الصور
اريد من عمل مشروع ملف مفتوح مثلا اعطيه رابط هذه الصفحة فيقوم بحفظ الجزء المطلوب فى صفحة HTML

هذا بداية الجزء المطلوب




وهذا نهايته


والنتيجة النهائية تكون بحفظ الجدول الذى يحتوى على المواصفات



فى الانتظار وبارك الله فيك

[kslawy]

الصفحة لم تفتح معي

[ali.alfoly]

اتفضل الرابط

PHP كود :

http://www.arabmobile.mobi/c/cell/img-nokia-109-5123.htm 


او حمل الصفحة مرفقه

[السكر المغرور]

السلام عليكم

تفضل ،،

[mazen]

رائع اخي ممكن تحول الجزء دة الي صورة وتحفظها في ملف

[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 


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

[ali.alfoly]

up up up up