تحديث الإصدار و حذف النسخة القديمة

كود :

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