Vb.Net Otomatik Güncelleme Sistemi

Dim upcheck As Boolean = False
    Public Sub Updates()
        Try
            Dim appatch As String = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName 'klasör yolu alma
            Dim isim As String = System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName ' çalışan exe adı
            Dim FileVer As String = FileVersionInfo.GetVersionInfo(Application.ExecutablePath).FileVersion 'mevcut versiyon numarası örnek: 1.0.0.0

            Dim Talep As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://siteadresi.com/version.php")
            Dim Cevap As System.Net.HttpWebResponse = Talep.GetResponse()
            Dim Okuyucu As System.IO.StreamReader = New System.IO.StreamReader(Cevap.GetResponseStream())
            Dim Kaynakkodu As String = Okuyucu.ReadToEnd

            If Kaynakkodu <> FileVer Then 'sitedeki veri mevcut dosya sürümüyle uyumlu değil ise güncelleme var !
                upcheck = True
                File.WriteAllText(appatch & "\up.txt", isim, System.Text.Encoding.Default)
                MsgBox("Güncelleme Var"), vbInformation, Me.Text)
                My.Computer.Network.DownloadFile("http://siteadresiniz.com/guncel.exe", appatch & "\guncelv2.exe", 5000, True)
                Process.Start(appatch & "\guncelv2.exe")
                Application.Exit()

            Else
                If File.Exists(appatch & "\up.txt") = True Then
                    Dim oku As String = File.ReadAllText(appatch & "\up.txt", System.Text.Encoding.Default)
                    File.Delete(oku)
                    File.Delete(appatch & "\up.txt")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            Application.Exit()
        End Try


    End Sub