Урок Автообновление

[Kirill_Polyakov]

Здравствуйте, с этой статье я покажу как реализовать автообновление для вашей программы. Мы создадим программу для обновления первой.
Я сделаю программу для автообновления своей программы ParseDarkOrbit.

Нам понадобится хостинг для сайта. (юкоз не подходит).

Создаем новый проект в студии.
Добавляем на него 1 ProgressBar и 1 Label.
Лейбл назовем statuslb

l

Перейдем к коду.
После

Public Class Form1

Добавим

Dim WithEvents wc As New System.Net.WebClient
    Dim vers As String
    Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
        statuslbl.Text = "Обновления загружены."
        Process.Start("название вашей программы.exe")
        End
    End Sub

    Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        statuslbl.Text = "Загрузка...     Последняя версия " & vers
    End Sub

Далее зальем на сайт файлик vers.txt.
И впишем в него актуальную версию. В моем случае V1.4



В событие форм лоад добавим следующие:

 vers = wc.DownloadString("http://вашсайт.ru/vers.txt")
        wc.DownloadFileAsync(New Uri("http://вашсайт.ru/название вашей программы.exe"), "название вашей программы.exe")

Что получилось у меня:

Теперь зальем на сайт новую версию программы:

Сохраняем и переходим к программе которую нужно обновить. (Я использую свою программу ParseDarkOrbit.)

Добавим на форму основной программы Label с названием currentvers и впишем в него текущую версию.

Теперь перейдем к коду:
Нам нужно событие формлоад.
Вставляем в него следующие:

Dim WC2 As New WebClient
        Dim currvers As String = WC2.DownloadString("http://вашсайт.ru/vers.txt")
        If currvers = currentrvers.Text Then 'проверяем версию программы и на сайте.
        Else
            Process.Start("Название программы для обновления.exe")
            End
        End If

Вообщем все готово. Осталось протестировать.

Автор:OrBiT_DaRk
​