تقييم الموضوع :
  • 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] كيف ممكن اوقف عدد كبير من BackgroundWorker دفعة واحدة e-coder 2 23 منذ 3 ساعة مضت
آخر رد: silverlight
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 57 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 67 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 83 20-05-17, 12:49 AM
آخر رد: alma2
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 79 19-05-17, 03:50 PM
آخر رد: khaled12345
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 55 19-05-17, 12:45 PM
آخر رد: Adrees
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 55 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 92 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 204 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 72 13-05-17, 01:11 AM
آخر رد: rabeh.ram

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


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