Auto Updater (VB) in Projekt einbinden ?

05/28/2013 20:56 Kimo.#1
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ß
05/28/2013 20:59 Mansuro#2
Kuck mal hier einfach epvp Suche benutzen: [Only registered and activated users can see links. Click Here To Register...]
05/28/2013 21:03 Kimo.#3
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.
05/28/2013 21:19 reCougar#4
Dann lass die Ping Funktion aus ?
05/28/2013 21:23 Kimo.#5
Funktioniert auch nicht.

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

Gruß
05/28/2013 22:36 qkuh#6
Code dir doch selber eins :)
05/28/2013 22:39 Ludder231#7
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. :)
05/29/2013 01:55 x]vIrus[x#8
wie wäre es mit dem eingebauten veröffentlichungstool von VS?
05/29/2013 12:00 Kimo.#9
Hab mir jetzt selbst nen geschrieben.

Hier der Code :

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 ?
05/29/2013 12:13 Ludder231#10
Wieso returnst du bei exception nen True? :D
05/29/2013 12:26 Requi#11
Und wenn du es selber geschrieben hast, weshalb weist du nicht, wie man ihn ein bindet?