Автообновление программы

[F1ash]

Есть ли у кого-то исходники самообновляющейся из интернета программы ? Буду очень признателен...

P.S. чтобы 2ю тему не открывать сразу спрошу тут. Необходимо записать в 3тий столбец ListView на данный момент реализую это так:

Код: Выделить всё

        frmMain.lvContacts.Items.Add(txtName.Text).SubItems.Add(cmOperator.SelectedItem)
        frmMain.lvContacts.Items.Item(0).SubItems.Add(txtPhoneNumber.Text)

но как я буду знать номер итема в который я только что записал чтобы подставить вместо 0? Есть другой способ записи в 3й столбик?

[gaidar]

Почитай про технологию ClickOnce - очень хороший способ обновлять приложение без напряжения своих мозгов и написания инсталлятора.

[F1ash]

Почитай про технологию ClickOnce - очень хороший способ обновлять приложение без напряжения своих мозгов и написания инсталлятора.

Вот как раз ищу где бы толково было написано, а по 2му вопросу можешь что-то сказать?

[3eJIeHb]

Есть ли у кого-то исходники самообновляющейся из интернета программы ? Буду очень признателен...

Ну я делал так : заливал *.htm документ с версией программы к себе на сайт, при запуске документ считывался в переменную, потом я проверял *математическое* выражение > (больше), если значение больше, то выводится сообщение, типа вышла новая версия.

Код: Выделить всё

'Кидаем на форму : WebBrowser, SaveFileDialog, BackgroundWorker и Button

Public Class Form1

    Dim Version As Integer = 1.1
    Dim WebVersion As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles MyBase.Load

        WebBrowser1.Visible = False

        Button1.Text = "Обновить"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

        If Button1.Text = "Обновить" Then

            SaveFileDialog1.Filter = ("Программа|prog.exe")
            SaveFileDialog1.FileName = ("prog.exe")

            WebBrowser1.Navigate("Ссылка на страницу c версией программы")

        Else

            BackgroundWorker1.CancelAsync()

        End If

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As  _
                                              System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
                                              Handles WebBrowser1.DocumentCompleted

        WebVersion = WebBrowser1.DocumentText

        If Val(WebVersion) > Val(Version) Then
            Dim Msg
            Msg = MsgBox("Вышла новая версия программы : " & WebVersion & Chr(13) _
& "Обновить сейчас?", MsgBoxStyle.Information Or MsgBoxStyle.YesNo, "Обновление")
            If Msg = MsgBoxResult.Yes Then
                SaveFileDialog1.ShowDialog()
            End If
        Else
            MsgBox("Новых версий программы не обнаружено!", MsgBoxStyle.Information, "Обновление")
        End If

    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As  _
                                       System.ComponentModel.CancelEventArgs) Handles _
                                       SaveFileDialog1.FileOk

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As  _
                                         System.ComponentModel.DoWorkEventArgs) Handles _
                                         BackgroundWorker1.DoWork

        If My.Computer.Network.Ping("Ссылка на обновленную версию", 100) = True Then

            My.Computer.Network.DownloadFile _
            ("Ссылка на обновленную версию", SaveFileDialog1.FileName)

            Button1.Text = "Остановить"

        Else
            MsgBox("Не удалось найти файл." & Chr(13) & _
                   "Пожалуйста, проверьте ваше интернет - соединение.", MsgBoxStyle.Exclamation, "Ошибка")
        End If

    End Sub
End Class

Возможно не самый лучший вариант, но я начинающий, поэтому сильно не бить!

[DODge]

Необходимо записать в 3тий столбец ListView на данный момент реализую это так:

Код: Выделить всё

        frmMain.lvContacts.Items.Add(txtName.Text).SubItems.Add(cmOperator.SelectedItem)
        frmMain.lvContacts.Items.Item(0).SubItems.Add(txtPhoneNumber.Text)

но как я буду знать номер итема в который я только что записал чтобы подставить вместо 0? Есть другой способ записи в 3й столбик?

Другой способ есть - ввиде одной строки, ну уж не знаю на сколько это тебе поможет, но выглядит это примерно так:

Код: Выделить всё


frmMain.lvContacts.Items.Add(txtName.Text).SubItems.AddRange(New String() {cmOperator.SelectedItem, txtPhoneNumber.Text})


Количество пречислений в фигурных скобках может быть столько, сколько нужно заполнить столбиков.

[fatal1ty]

3eJIeHb
А можно структуру htm файла чтобы прога обновилась.
Спасибо.
[Viper] :: Устное предупреждение за некрофилию. Теме 2 года!