السلام عليكم
أريد من البرنامج أن يحدث نفسه تلقائيا مع حذف النسخة القديمة
مثال : التحديث في برنامج الإمبرطورية !
ساعدوني أرجوكم ..
تفضل اخى يمكنك متابعة هذا الموضوع
تحياتى لك
وتمنياتى لك التوفيق
حدث خطأ أخي :
هذا البرنامج :
وهذا برنامج التحديث:
السبب هو انك تستخدم الرابط عام
وليس رابط مباشر للتحميل...
يجب ان يكون الرابط بهذا الشكل
PHP كود :
http://dl.dropbox.com/s/vzwmqh4l0md6m1z/v.txt?dl=0
فقط استبدل الروابط لهذا الرابط
وسيعمل معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
والله أنك عبقري !!!!!!!!!!
لكن ظهر خطأ أخر هههه
عرفت الخطأ ههه لأول مرة أصلح خطأ دون مساعدة منك أخي ههههههه أظن أنني بدأت أتعلم
أخي ..؟ ما رأيك في التصميم ؟
شكرا والله ساعدتني كثير و أتمنى إنك تساعدني أكثر
ابشر
فى اى وقت اذا لديك اى سؤال او تواجه شئ
قم باضافتها هنا وسيقوم الكثير وليس انا فقط بالمساعدة
تحياتى لك
شكرا
أخي غيرت رقم النسخة وطلب مني الرنامج تنزيل النسخة الجديدة و غلق البرنامج و فتح برنامج التفعيل و كل شيء صحيح حتى الأن
لكن عند الضغط على تحديث يقول لي شكرا تم التحديث لكن لا يحدث و أنا في التحديث الجديد وضعت زر للتأكد
هذا مشروع التحديث لعل فيه خطا
وكذلك نسخة تجريبية عن البرنامج
الاخطاء لديك فى المشروع هى التالى...
السطر الخاص بالكود التالى
كود :
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
تحياتى لك
وتمنياتى لك التوفيق