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

يسعد صبآحك أخوي silverlight

إقتباس :مشكلة البيانات التي يتم تخزينها في الريجستري و الخاصة بالبرامج انه قد يتم تغييرها في اي وقت بواسطة البرنامج

وبالتالي فهي غير مضمونة تماما

كلامك سليم لكني اريدها في شغلة معينة

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


ولتوضيح الفكرة بشكل أكبر



أختصرت هذه المقالة بضغطة زر

https://www.internetdownloadmanager.com/...ation.html

يتم قراءة رقم إصدار الفايرفوكس وبناء عليه يتم إستخراج إضافة IDM المتوافقة مع رقم الإصدار في القرص C والامر التالي فتح الإضافة بواسطة الفايرفوكس


كود المشروع بشكل كامل

كود :

Public Class Form1
   Dim readValue As String
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       readValue = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox", "", Nothing)
       Label1.Text = readValue
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try

           readValue = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox", "", Nothing)
           If readValue >= "53.0.0" Then
               IO.File.WriteAllBytes("C:\idmmzcc3.xpi", My.Resources.idmmzcc3)
               Process.Start("firefox.exe", "C:\idmmzcc3.xpi")
               Return
           End If

           If readValue >= "27.0.0" Then
               IO.File.WriteAllBytes("C:\idmmzcc2.xpi", My.Resources.idmmzcc2)
               Process.Start("firefox.exe", "C:\idmmzcc2.xpi")
               Return
           End If


           If readValue >= "1.5" Then
               IO.File.WriteAllBytes("C:\idmmzcc.xpi", My.Resources.idmmzcc)
               Process.Start("firefox.exe", "C:\idmmzcc.xpi")
               Return
           End If

       Catch ex As Exception
           MsgBox("حدث خطأ ما , إذا كان فايرفوكس يعمل قم بإغلاقه وإعادة االمحاولة", MsgBoxStyle.Critical, Me.Text)
       End Try

   End Sub


End Class