[hichem1]

السلام عليكم 
أريد من البرنامج أن يحدث نفسه تلقائيا مع حذف النسخة القديمة 
مثال : التحديث في برنامج الإمبرطورية ! 
ساعدوني أرجوكم ..

[elgokr]

تفضل اخى يمكنك متابعة هذا الموضوع

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

تحياتى لك

وتمنياتى لك التوفيق

[hichem1]

حدث خطأ أخي : 
هذا البرنامج : 
وهذا برنامج التحديث:

[elgokr]

السبب هو انك تستخدم الرابط عام

وليس رابط مباشر للتحميل...

يجب ان يكون الرابط بهذا الشكل

PHP كود :

http://dl.dropbox.com/s/vzwmqh4l0md6m1z/v.txt?dl=0 


فقط استبدل الروابط لهذا الرابط

وسيعمل معك بدون اى مشكلة

تحياتى لك

وتمنياتى لك التوفيق

[hichem1]

والله أنك عبقري !!!!!!!!!!
لكن ظهر خطأ أخر هههه

---

عرفت الخطأ ههه لأول مرة أصلح خطأ دون مساعدة منك أخي ههههههه أظن أنني بدأت أتعلم

---

أخي ..؟ ما رأيك في التصميم ؟

[elgokr]

رائع جداً

باشر ولا تتوقف فى تطويره

تحياتى لك

وتمنياتى لك التوفيق

[hichem1]

شكرا والله ساعدتني كثير و أتمنى إنك تساعدني أكثر

[elgokr]

ابشر

فى اى وقت اذا لديك اى سؤال او تواجه شئ

قم باضافتها هنا وسيقوم الكثير وليس انا فقط بالمساعدة

تحياتى لك

[hichem1]

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

[elgokr]

الاخطاء لديك فى المشروع هى التالى...

السطر الخاص بالكود التالى

كود :

Dim Process_() As Process = Process.GetProcessesByName("File") ' Name file your program

يجب ان يكون كلمة File هو اسم البرنامج المستخرج

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

WindowsApplication2.exe

فكل ما عليك استبدال كلمة File الى WindowsApplication2

السطر الخاص بالكود التالى

كود :

WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

الربط الاول فى السطر جميل لا يوجد مشكلة فيه

لكن لماذا وضعت ربط فى النهاية سطر الكود 

يجب الجزء التانى هو اسم البرنامج بالمجلد الذى يتم استبداله برابط التحميل اللى باول الكود

قم بتغيير الكود ليصبح

كود :

WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "\WindowsApplication2.exe", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

الكود كاملاً لمشروع التحديث

كود :

Imports System.Net

Public Class Form1

   Dim WEB_ As New WebClient
   Dim Process_() As Process = Process.GetProcessesByName("WindowsApplication2") ' Name file your program
   Dim VProject As Integer = WEB_.DownloadString("https://dl.dropbox.com/s/vzwmqh4l0md6m1z/v.txt?dl=0") ' You can use link Example: http://www.mysite.com/file.txt  (Link Direct...)

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Button1.Visible = False

       If VProject > My.Settings.VProject Then
           TextBox1.Text = "Download the new version"
           Button1.Visible = True
       End If

   End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       If VProject > My.Settings.VProject Then
           If Process_.Count > 0 Then
               For Each MyProject_ In Process_
                   MyProject_.Kill()              ' Close Your Project.
               Next
               GoTo GoDownlod_
           Else
GoDownlod_:
               WEB_.DownloadFileAsync(New Uri("https://dl.dropbox.com/s/57o6v3p8d1eyq9i/WindowsApplication2.exe?dl=0"), Application.StartupPath & "\WindowsApplication2.exe", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)
               My.Settings.VProject = VProject
               My.Settings.Save()
               MsgBox("تم تحديث البرنامج.")
               Process.Start(Application.StartupPath & "\WindowsApplication2.exe") ' Open Your Project After Finish Update.
               Application.Exit()
           End If
       End If
   End Sub

End Class

تحياتى لك

وتمنياتى لك التوفيق