[المهندس علي]

السلام عليكم..
وجدت مشروع عمل تحديث البرنامج ولكن عند تطبيقه على برنامجي تظهر عند هذا السطر

PHP كود :

Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream()) 


المشكلة عند تنفيذالبرنامج تظهر رسالة الخطأ التالية .... The remote server returned an error: (406) Not Acceptable.
و هذا كود البرنامج كاملا

PHP كود :

Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CheckL.Text = "جاري الفحص..."

        'رابط الملف الموجود فيه رقم اخر اصدار
        Dim VersionURL As String = " http://moddec.eb2a.com/myprog/UpdateVersion.txt"

        'قراءة الملف الذي يوجد به رقم اخر اصدار
        Dim Request As HttpWebRequest = WebRequest.Create(VersionURL)
        ' قراءة الملف
        Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream())

        'اخر تحديث لبرنامج
        Dim NewVersion As String = Reader.ReadToEnd()

        Reader.Dispose()



        '-----فحص اذا كان هناك تحديث جديد ام لا------

        If Trim(NewVersion) > Trim(Application.ProductVersion) Then
            '-الدالة Application.ProductVersion 
            '-هي التي يوجد بها رقم الاصدار الحالي لبرنامج
            '-وهذا الكود يقارن رقم احدث اصدار موجود بالانترنت بالرقم الاصدار الحالي بالبرنامج



            '----------هناك اصدار جديد-------------

            'رابط الملف الموجود فيه رابط تحميل اخر اصدار من البرنامج
            Dim UpdateLink As String = " http://moddec.eb2a.com/myprog/UpdateLink.txt"

            CheckL.Text = "هناك اصدار جديد"

            ' قراءة الملف الذي يوجد به رابط التحميل
            Dim LinkRequest As HttpWebRequest = WebRequest.Create(UpdateLink)
            Dim LinkReader As StreamReader = New StreamReader(LinkRequest.GetResponse.GetResponseStream())
            Dim DownNewVersion As String = LinkReader.ReadToEnd

            LinkReader.Dispose()

            'نوع الملف الموجود في الرابط
            Dim FileFormate As String = Strings.Right(DownNewVersion, 4)

            'فحص الرابط اذا كان يوجد به نوع الملف ام لا. لو لا يوجد به نوع الملف نجعل نوع الملف الذي سنحملة كملف تنفيذي (exe)
            If Strings.Left(FileFormate, 1) <> "." Then FileFormate = ".exe"

            'هذه للعب بالفورمات حيث ان معظم المواقع لا تقبل الملفات التنفيزية
            If FileFormate = ".noo" Then FileFormate = ".exe"

            ' تحميل الملف الجديد

            CheckL.Text = "جاري التحميل"

            My.Computer.Network.DownloadFile(DownNewVersion, Application.StartupPath & "\NewUpdate" & NewVersion & FileFormate, "", "", True, 100, True)

            CheckL.Text = "تم تحميل التحديث بنجاح"

            MsgBox("تم تحميل التحديث بنجاح", MsgBoxStyle.Information)

            ' فتح الملف الجديد
            System.Diagnostics.Process.Start(Application.StartupPath & "\NewUpdate" & NewVersion & FileFormate)


            End ' الخروج

        Else '-------لا يوجد اي اصدارات جديدة-----------

            CheckL.Text = "لا يوجد اي اصدارات جديدة"

            MsgBox("لا يوجد اي اصدارات جديدة", MsgBoxStyle.Information)
        End If

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class