طلب حفظ جزء من صفحة موقع - نسخة قابلة للطباعة

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

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

وهذا نهايته

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

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

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