[ndjakoub]

السلام عليكم ورحمة الله
عندي برنامج مثبت عند عدة زبائن برقم سيريال خاص بكل زبون

أريدد عمل تحديث للبرنامج بحيث يستفيد منه الزبائن فقط الذين إشترو البرنامج دون إعادة تثبيت البرنامج
يعني التحديث يقوم بإضافة الأمور المتغيرة فقط

مثل تحديث نظام الويندوز

يعني الباك   (pack) الذي فيه التحديث لا يحتوي على البرنامج كامل يحتوي فقط على الأمور التي تغيرت ويقوم بتغييرها في البرنامج المثبت عند الزبون

هل من أفكار أو طريقة
علما أني أبرمج بـ vb.net 2010

[silverlight]

التحديث مبدئيا يحتاج الأتي:

1- تتأكد إن فعلا برنامجك موجود علي كمبيوتر العميل لأن لو البرنامج مش موجود هنا أصبحت عملية التحديث ليس لها اي قيمة

2- إن كان البرنامج موجود بالفعل علي كمبيوتر العميل هنا عليك أن تتأكد إن البرنامج ليس في حالة تشغيل
مثلا لو كان البرنامج شغال تطلب من المستخدم اغلاق البرنامج من أجل ان تتم عملية التحديث
3- التحديث الجزئي معناه انك سقوم بتحدث ملفات معينة مثل ملفات dll مثلا او ما شابه ذلك
تنسخ الملفات الجديدة مكان الملفات القديمة

الخلاصة التحديث نفسه يعتبر برنامج لوحده قائم بذاته و بيكون جزء من البرنامج الرئيسي

ملحوظة أخيرة
تقريبا تغيير Version الخاص بملفات dll قد لا يجعل برنامجك يعمل نهائي لذلك كن حذرا مع تلك الملفات تحديدا

[سعود الشامان]

مثال ابلاغ عملائك بوجود تحديث للبرنامج


http://vb4arb.com/vb/showthread.php?tid=18552

أنا أعتبره أفضل طريقه والطريقه معموله في برنامج Your Unin-staller! عملاق حذف البرامج

ملاحظه : عند محاولة الإتصال بالنت البرنامج يهنق نوعا ما , حاولت أستخدم اداة BackgroundWorker لحل مشكلة التهنيق لكن ما ضبطت الاكواد معي

[سعود]

إقتباس :ملاحظه : عند محاولة الإتصال بالنت البرنامج يهنق نوعا ما , حاولت أستخدم اداة BackgroundWorker لحل مشكلة التهنيق لكن ما ضبطت الاكواد معي

ممكن تفتح موضوع جديد اذا اردت لمناقشة هذا الامر
لان اغلب المشاكل  سهلة خصوصا مسالة الوصول لاداة تم انشاءها بمسار رئيسي ويتم استخدامها بمسار مستقل.

[سعود الشامان]

شوف المثال بالمرفقات


نفس المشروع مع بعض الإضافات

[سعود]

إقتباس :شوف المثال بالمرفقات
نفس المشروع مع بعض الإضافات

تم التحميل ...

[سعود الشامان]

(02-08-17, 08:56 PM)سعود كتب :

إقتباس :ملاحظه : عند محاولة الإتصال بالنت البرنامج يهنق نوعا ما , حاولت أستخدم اداة BackgroundWorker لحل مشكلة التهنيق لكن ما ضبطت الاكواد معي

ممكن تفتح موضوع جديد اذا اردت لمناقشة هذا الامر
لان اغلب المشاكل  سهلة خصوصا مسالة الوصول لاداة تم انشاءها بمسار رئيسي ويتم استخدامها بمسار مستقل.

هلا وغلا بسميي سعود

سأفتح  معك ومع اخواننا الأعزاء موضوع لمناقشة هذا الأمر وبعض الأمور الأخرى ( تصحيح برنامج )
برنامج جداً جميل ( يخدم مأمور السنترال في المستشفيات والمراكز الكبيره )

راح أغلبكم معي , بارك الله فيكم

أعتذر من صاحب الموضوع لاخذ مساحه من موضوعك والنقاش خارج إطار الموضوع

---

(02-08-17, 09:04 PM)سعود كتب :

إقتباس :شوف المثال بالمرفقات
نفس المشروع مع بعض الإضافات

تم التحميل ...

رايك يهمني

تم إقتباس الفكره من موضوع ابلاغ عملائك بوجود تحديث للبرنامج ومقطع لشخص اجنبي ع اليوتيوب وحصلت على هذه النتيجه

[سعود]

مارايك بهذا المثال
http://vb4arb.com/vb/showthread.php?tid=409

[سعود الشامان]

(02-08-17, 09:17 PM)سعود كتب : مارايك بهذا المثال
http://vb4arb.com/vb/showthread.php?tid=409

للأسف حملته ومافهمته
وأستثقلت أسالك عنه لاني اعتقد المشكله في فهمي

[سعود]

(02-08-17, 09:24 PM)سعود الشامان كتب :

(02-08-17, 09:17 PM)سعود كتب : مارايك بهذا المثال
http://vb4arb.com/vb/showthread.php?tid=409

للأسف حملته ومافهمته
وأستثقلت أسالك عنه لاني اعتقد المشكله في فهمي

مافي مشكلة
تريد نواصل هنا او تفتح نقاش جديد؟
سويت مثال بسيط جدا وخزنت رقم النسخة الجديدة في صفحة متغير ضمن تاق 

كود :

<lastver>2</lastver>

---

تعديل المسمى هو كشف رقم النسخة من موقع واستخدمت موقع التجارب

---

PHP كود :

Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1
    Dim localver As String
    Dim remotver As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        curver.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\curver.txt")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If b1.IsBusy = False Then
            localver = curver.Text
            b1.RunWorkerAsync()
            Button1.Enabled = False
            Button1.Text = "كشف احدث نسخة"
            lastver.Text = "شوي واعرف"
        End If
    End Sub
    Private Sub setlbl(ByVal l As String)
        If lastver.InvokeRequired Then
            lastver.Invoke(New Action(Of String)(AddressOf setlbl), l)
        Else
            lastver.Text = l
        End If
    End Sub

    Private Sub setbtn(ByVal l As String)
        If Button2.InvokeRequired Then
            Button2.Invoke(New Action(Of String)(AddressOf setbtn), l)
        Else
            Button2.Text = l
        End If
    End Sub

    Private Sub setbtnen(ByVal l As Boolean)
        If Button1.InvokeRequired Then
            Button1.Invoke(New Action(Of Boolean)(AddressOf setbtnen), l)
        Else
            Button1.Enabled = l
        End If
    End Sub

    Private Sub b1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b1.DoWork
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        Dim html As String = wc.DownloadString("http://saud.somee.com/Default.aspx")
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        remotver = doc.DocumentNode.SelectSingleNode("//lastver").InnerText.Trim
    End Sub

    Private Sub b1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles b1.RunWorkerCompleted
        setbtnen(True)
        setlbl(remotver)
        If Val(remotver) > Val(localver) Then
            setbtn("توجد نسخة احدث")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("مثال على السريع فقط", MsgBoxStyle.Information, "")
    End Sub
End Class 


هذا هو كل المثال البسيط لاحظ اني اضفت نص من نفس ادارة منتداي 
<lastver>2</lastver>

بقيت افكار اخرى مثل تحديث النسخة وتحديث الرقم المحلي وغيرها
هذا على السريع