الاخطاء لديك فى المشروع هى التالى...
السطر الخاص بالكود التالى
كود :
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
تحياتى لك
وتمنياتى لك التوفيق