تقييم الموضوع :
  • 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 7 106 16-11-16, 03:20 AM
آخر رد: أبو عمر
  استدعاء ملف به تاريخ للبرنامج وتشغيل الفورم به ddemed 8 144 11-11-16, 10:25 PM
آخر رد: bidaya
  المدة التجريبية للبرنامج makky 2 65 07-11-16, 05:28 PM
آخر رد: 0theghost0
Question [VB.NET] ممكن احد يشرح لي المطلوب :( a_abdullah 2 82 05-11-16, 08:43 PM
آخر رد: a_abdullah
  [سؤال] طلب لمثال عن انشاء حماية للبرنامج في vb.net 2012 مع فكرة بحاجة للتطبيق M@GED 12 309 05-11-16, 10:49 AM
آخر رد: أبو عمر
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 70 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 115 30-10-16, 10:14 PM
آخر رد: adel27
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 52 29-10-16, 08:37 PM
آخر رد: mmm650
Exclamation الرجاء المساعدة : كيف اخفى او اشفر كلمة السر لقاعدة بيانات من ملف App.config noway 2 86 28-10-16, 07:58 PM
آخر رد: noway
  هل ممكن مساعدة من أهل الخبرة sambro 1 83 27-10-16, 11:50 PM
آخر رد: sambro

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


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