تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن المساعدة في عمل Update للبرنامج
#1
السلام عليكم..
وجدت مشروع عمل تحديث البرنامج ولكن عند تطبيقه على برنامجي تظهر عند هذا السطر
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.ObjectByVal e As System.EventArgsHandles 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(DownNewVersion4)

            
'فحص الرابط اذا كان يوجد به نوع الملف ام لا. لو لا يوجد به نوع الملف نجعل نوع الملف الذي سنحملة كملف تنفيذي (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.ObjectByVal e As System.EventArgsHandles MyBase.Load

    End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#2


المثال مرفق اتمنى يعجبك
فقط سجل لدى الموقع drivehq.com
وقم بتعديل اسم المستخدم في المثال accountusername
الى اسم المستخدم الخاص بك
وكذلك كلمة المرور accountpassword غيرها الى كلمة المرور الخاصة بك
وتاكد من اسماء الملفات الموجودة بمجلد Debug يعني عدل ما يلزم ليعمل المثال معك
انا الان اعمل عليه حاليا وممتاز
----------
اعذرني لعدم التعديل على الكود الموجود بالموضوع


الملفات المرفقة
.zip   Forum_updater.zip (الحجم : 50.77 ك ب / التحميلات : 94)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
مشكور اخي سعود على مشاركتك ولي عودة بعد التجربة ان شاء الله
الرد }}}}
تم الشكر بواسطة:
#4
المهندس علي كتب :مشكور اخي سعود على مشاركتك ولي عودة بعد التجربة ان شاء الله
العفو ... وانا بانتظاركSmile
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... كود الحفظ محمد بوقزاحة 3 36 منذ 9 ساعة مضت
آخر رد: مساعدة
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 54 25-02-17, 06:31 PM
آخر رد: khodor1985
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 5 136 24-02-17, 12:23 AM
آخر رد: أبووسم
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 60 21-02-17, 10:58 AM
آخر رد: boofa2015
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 107 18-02-17, 02:19 PM
آخر رد: Amrjamil
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 156 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 97 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 105 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 11 267 31-01-17, 08:22 PM
آخر رد: محمد بوقزاحة
  ارجوا المساعدة محمد بوقزاحة 2 78 29-01-17, 12:30 AM
آخر رد: محمد بوقزاحة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم