[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

تحياتى لك

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