تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف عمل التحديث
#1
كيف عمل auto Update عندما يتم تحديث فى المشروع يبلغ العميل ان هناك نسخه احدث من الى عنده + كيف جعله ينزل البرنامج من فورم اغير وى يثبت التحديث الجديد
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("ملف التكسك")
        Dim respnos As System.Net.HttpWebResponse = regust.GetResponse
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream)
        Dim virsion As String = sr.ReadToEnd
        Dim update As String = Application.ProductVersion
        If virsion.Contains(update) Then

        Else
            MsgBox("هناك نسخه جديده هل تود تحديثها !!")
        End If


ضع الكود في اي حدث
الرد }}}}
تم الشكر بواسطة:
#3
عملت الى قلت ولكن في مشكلة :
الرد }}}}
تم الشكر بواسطة:
#4
قم بتغيير كلة update الى ملفك المرفوع


يكون الكود هكذا

كود :
If virsion.Contains(UpdateVersion) Then

        Else
            MsgBox("هناك نسخه جديده هل تود تحديثها !!")
        End If

ملاحضه



اذا رفعت الملف النصي يجب ان يكون مكتوب بداخله رقم النسخه وتكون 1.0.0.0

اذا اردت عمل نسخه جديده للبرنامج قم بتغغير الرقم الى 1.0.0.1

وفقك الله
الرد }}}}
تم الشكر بواسطة:
#5
عملت نفس ملاحظتك و نفس كود تظهر مشكلة
Error 2 Name 'UpdateVersion' is not declared.
جربت اكثر من كود نفس مشكلة الى كانت في صوره .
الرد }}}}
تم الشكر بواسطة:
#6
هل أنت متأكد من وجود هذا الملف ؟
هل انت متأكد من صحة الرابط المكتوب ؟
الرد }}}}
تم الشكر بواسطة:
#7
متأكد لان على سيرفر مدفوع ...
الرد }}}}
تم الشكر بواسطة:
#8
يوجد غلط في الرابط الملف غير موجود تاكدت انا من رابط الملف حاول ترفعه مره اخرى
الرد }}}}
تم الشكر بواسطة:
#9
W XP 2003 كتب :عملت الى قلت ولكن في مشكلة :

SaLoOoMX كتب :قم بتغيير كلة update الى ملفك المرفوع

تفضل اخى جرب هذا الكود يعمل معى
كود :
Try
            Dim descStream As New WebClient
            AddHandler descStream.DownloadFileCompleted, AddressOf FillTextBox
            descStream.DownloadFileAsync(New System.Uri("http://Web nme.com/Update.txt"), My.Computer.FileSystem.GetParentPath(My.Computer.FileSystem.SpecialDirectories.MyDocuments) + "\رثق_Config\desc.txt")
        Catch ex As Exception
            RichTextBox1.Text = "Unable to get new version description."

        End Try
        Dim web As New WebClient
        Dim update As String = web.DownloadString("http://Name Web.com/Update.txt")
        If update.Contains(Application.ProductVersion) Then
            Application.Exit()
        Else
            Process.Start = ("http://Name Web.com/[File Name].rar")
            Label5.Text = "A new update is available. DM and SD version " + "1.0.0.1" + " is ready For Download."
يكون الكود هكذا

كود :
If virsion.Contains(UpdateVersion) Then

        Else
            MsgBox("هناك نسخه جديده هل تود تحديثها !!")
        End If

ملاحضه



اذا رفعت الملف النصي يجب ان يكون مكتوب بداخله رقم النسخه وتكون 1.0.0.0

اذا اردت عمل نسخه جديده للبرنامج قم بتغغير الرقم الى 1.0.0.1

وفقك الله
شكررآ أخى جزاك الله كل خير
الرد }}}}
تم الشكر بواسطة:
#10
قد يكون خطأ في السيرفر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود التحديث والبحث المبرمج العبقري 6 205 03-09-16, 11:49 PM
آخر رد: Crazy_Vb.NeT
  ماهي فكرة جعل برنامجك يقبل التحديث وليس تحميل البرنامج من جديد honest 5 293 12-06-16, 11:44 PM
آخر رد: honest
  [سؤال] هل يمكنني عمل برنامج مع امكانية التحديث المستمر له ؟؟ theghost 3 494 10-08-15, 09:39 AM
آخر رد: theghost
Question عندي مشكلة في كود زر التحديث honest 5 781 11-09-14, 05:09 PM
آخر رد: honest
  [سؤال] اواجه خطأ في كود زر التحديث honest 2 329 11-09-14, 04:17 PM
آخر رد: honest
  التحديث التلقائي للـ combobox djelloul 3 732 14-06-14, 05:12 AM
آخر رد: سعود
  التحديث التلقائي للبرنامج خادم الدين 0 383 04-03-13, 08:32 PM
آخر رد: خادم الدين

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


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