[crazykinko]

السلام عليكم

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

وتثبيته بعد التحديث تلقائي 

لو تكرمت 

فضلا وليس امرا

[asmarsou]

(13-07-22, 01:22 PM)crazykinko كتب :

السلام عليكم

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

وتثبيته بعد التحديث تلقائي 

لو تكرمت 

فضلا وليس امرا

و عليكم السلام ورحمة الله و بركاته
قد يوحي لك الموضوغ  في الرابظ التالي بفكرة ما لم يكن  بعينه ما تنشده
https://www.codeproject.com/Articles/115...-in-VB-NET

[crazykinko]

(13-07-22, 03:06 PM)asmarsou كتب : و عليكم السلام ورحمة الله و بركاته
قد يوحي لك الموضوغ  في الرابظ التالي بفكرة ما لم يكن  بعينه ما تنشده
https://www.codeproject.com/Articles/115...-in-VB-NET

بارك الله فيك لكنلم يشتغل لي اريد تديث تلقائي عبر dropbox وشكرا لك

---

كود :

Public Sub CheckForUpdates()
       Dim file As String = Application.StartupPath & "/version.txt"
       Dim MyVer As String = My.Application.Info.Version.ToString
       If My.Computer.FileSystem.FileExists(file) Then
           My.Computer.FileSystem.DeleteFile(file)
       End If
       'CHANGE SITE WITH YOUR OWN! Example Dropbox 'WARNING IF YOU SHARE YOUR DROPBOX LINK YOU GET THIS :
       'https://www.dropbox.com/s/xxxxxxxxxxxx/version.txt?dl=0 'CHANGE ?dl=0 to ?dl=1!!!!!! OTHERWISE IT WONT WORK!
       Try
           My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxxxxxxxxx/version.txt?dl=1", file)
       Catch ex As Exception
           MsgBox(ex.Message + " Can''t Check for updates")
       End Try
       Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file)
       If MyVer < LastVer Then
           MsgBox("Update Available")
           'CHANGE SITE WITH YOUR OWN! Example Dropbox again! 'WARNING IF YOU SHARE YOUR DROPBOX LINK YOU GET THIS :
           'https://www.dropbox.com/s/xxxxxxxxxxxx/program.exe?dl=0 'CHANGE ?dl=0 to ?dl=1!!!!!! OTHERWISE IT WONT WORK!
           Try
               My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxxxxxxxxx/program.exe?dl=1", Application.StartupPath + "/program.exe")
           Catch ex As Exception
               MsgBox(ex.Message + " Error Downloading update.")
           End Try
           Process.Start(Application.StartupPath + "/program.exe") 'It will run the update after downloading the file!
       Else
           MsgBox("Program is up to date")
       End If
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       'Simply add here CheckForUpdates()
       CheckForUpdates()
       'Now it wil check for updates when you click on the button.
   End Sub
   
   Private Sub Form1_loading(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       CheckForUpdates()
   End Sub

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

[سعود]

لا بد من استضافة ملفات رابطها يكون ثابت و ليس متغير او ياخذ برامترات تتغير من وقت لاخر مثل دروب و  ون و غيرها ... هذا رايي.
و لي تجربة مع استضافة ftp  لكنها مجانية و لم تستمر الا انها فعالة.
Forum_updater.zip
اكيد لن يعمل المثال معك الا بتعديلات ضرورية مثل اسم مستخدم الـ ftp  و كذلك كلمة مرور الــ ftp  واسماء الملفات البعيدة والمحلية.
تحتاج تفحص منك للمشروع قبل تشغيله.