Auto Updater (VB) in Projekt einbinden ?

[Kimo.]

Hallo,

ich habe hier ein Tool, in das ich gerne nachträglich einen Auto Updater einbinden möchte. Webspace mit FTP ist vorhanden.

Weiß jemand wie ich einen Auto Updater erstelle ? Habe 2h Google befragt und nichts ,funktionierendes, gefunden.

Auch der von hero9910 funktioniert nicht.

Hat da wer was ?

Gruß

[Mansuro]

Kuck mal hier einfach epvp Suche benutzen:

[Kimo.]

Bei mir schafft er es nicht google.com zu pingen.

Komm immer : Beim Versuch, auf die neuste Version zu prüfen das Programm zu aktualisieren ist ein Fehler aufgetreten.

[reCougar]

Dann lass die Ping Funktion aus ?

[Kimo.]

Funktioniert auch nicht.

Hat jemand einen anderen Source ?
Oder wie kann ich Updatesystem.NET einbinden ?

Gruß

[qkuh]

Code dir doch selber eins

[Ludder231]

Ich kann dir per Pn ein Projekt von mir geben. Ist zwar nicht das Beste, aber wenn mans braucht. Vllt. lernst du ja was daraus, aber wohl eher wirds C&P. Nix gegen dich.

[x]vIrus[x]

wie wäre es mit dem eingebauten veröffentlichungstool von VS?

[Kimo.]

Hab mir jetzt selbst nen geschrieben.

Hier der Code :

Public Class Form1
    Dim Web As New Net.WebClient

    Function TestInternetConnection()
        Dim pin As New Net.NetworkInformation.Ping

        Try
            ping.Send("google.de")
            Return True
        Catch ex As Exception
            Return True
        End Try

    End Function

    Sub RunUpdate()
        If TestInternetConnection() = True Then
            Try
                Dim Version As String = Web.DownloadString("***version.txt")
                Version = CInt(Version)
                If Version > CInt(lblversion.text) Then
                    Try
                        Dim path As String = "***update.exe"
                        My.Computer.Network.DownloadFile(path, Application.StartupPath & "/[Update" & Version & "]" & "MeinTool.exe")
                        MsgBox("Ein Update wurde gefunden und heruntergeladen")
                    Catch ex As Exception
                        MsgBox(ex.ToString)
                    End Try
                    'nothing
                End If
            Catch ex As Exception

            End Try
        End If
    End Sub
    Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TestInternetConnection()
        RunUpdate()

    End Sub

End Class

Aber wie binde ich den jetzt in mein Programm ein ?
Einfach die Form laden und einen Button machen der den Code : Form1.Show
enthält ?

[Ludder231]

Wieso returnst du bei exception nen True?

[Requi]

Und wenn du es selber geschrieben hast, weshalb weist du nicht, wie man ihn ein bindet?