[VB-Tut]Autoupdater mit Dateidownload[EigenesSystem]

[_Eckl]

EDIT: FTP SERVER FINDET IHR ÜBER GOOGLE WIE Z.B

Huhu ihr :-)

Dies ist nun mein zweites Tutorial und ich hoffe mal ich kann euch da zumindest ein bisschen helfen.
Ich möchte euch hier erklären wie ihr einen Autoupdater in euer Programm einbaut.

IZP = Internetadresse zum Programm (FTP-Server)
IZV = Internetadresse zur Version.txt
PZP = Pfad zum Programmspeicherort (lokal, eigene Dokumente)
FTP = Internetadresse des Servers
PN = Projektname

So, fangen wir also an zu Programmieren.

Als erstes geht ihr auf den Desktop und erstellt dort eine *.txt-Datei.
Nennt die Datei 'Version' und schreibt '1.0.0.0' hinein.
Dann speichert die Datei.

Ladet nun die Datei auf euren Server hoch.
Die Internetadresse sollte nun 'FTP/Version.txt' lauten.

Nun nehmt ihr die *.exe-Datei, die euer Programm bildet, bzw. euer Programm später installiert.
Diese ladet ihr unter dem namen 'Setup' auf euren Server.

Nun geht ihr in euer Projekt und dann auf

Projekt -> PN-Eigenschaften...

Nun klickt ihr auf Assemblyinformationen und tragt bei Assemblyversion und Dateiversion
jeweils '1.0.0.0' ein.

Nun zum Code:

Geht auf den Button oder ähnliches und klickt zweimal darauf.
In der *.vb tragt ihr nun ein

Try
If My.Computer.Network.Ping("www.google.com") = True Then
Else
End if
Catch
MsgBox("Beim Versuch, auf die neuste Version zu prüfen das Programm zu aktualisieren ist ein Fehler aufgetreten.", 0 + 48, "Fehler")
End Try

Damit wird überprüft ob der PC mit einem Netzwerk verbunden ist.

Zwischen 'Then' und 'Else' schreibt ihr nun:

Dim y As String
                Dim Web As New WebClient
                Dim Update As String = Web.DownloadString("IZV")

Damit wird der Inhalt ver Verion.txt als String heruntergeldan, in diesem Fall '1.0.0.0'

Dann schreibt ihr weiter:

If Update.Contains(Application.ProductVersion) Then
                Else
                    y = MsgBox("Neue Version. Jetzt herunterladen ?", 4 + 48, "Neue Version")
                    If y = "6" Then
                        My.Computer.Network.DownloadFile("IZP", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "PZP")
                        Process.Start(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "PZP")
                        Me.Close()
                    End If
                End If

Nun wird überprüft ob der heruntergeladene String mit dem Inhalt '1.0.0.0' der selbe ist,
wie die beiden Versionen in den Projekteigenschaten.
Ist dies Der Fall wird fortgefahren, falls nicht kommt eine Messagebox die fragt,
ob die neue Version heruntergeladen und installiert werden soll. Wenn nun ja gedrückt wird,
wird die Datei in den Pfad PZP gespeichert und gestartet.
Danach wird das Programm geschlossen.

Nun noch

End if

anhngen und normal müsste alles funktionieren...

Ich hoffe ich konnte helfen :-)

Credits:
_Eckl ~ Me
Ninoxo

[Shonenx3]

habs net getestet müsste aber gehen nice

[Snake124]

habs auf c# umgeschrieben, funktioniert auch perfekt, danke für die tolle vorlage hab schon ewig überlegt ._.

[_Eckl]

Bitte Bitte aber mit Thx Button wäre mir lieber

[Snake124]

aber gerne doch

[.SkyneT.]

If My.Computer.Network.Ping("meinftpserver") = True Then

So wäre das besser, sonst könnte es passieren das dein Server offline ist,
aber trotzdem der Download startet.
(Würde ziemlich sicher eine unbehandelte Ausnahme werden)

MfG

[Che]

achja nebenbei:

[_Eckl]

Originally Posted by 〤Che〤

achja nebenbei:

Das obere ist andere Methode und jedem ist es selbst überlasen!
Ich finde persönlich meine Methode besser.

lg _Eckl

[Che]

die frage ist nicht, ob du deine besser findest, sondern welche tatsächlich stabiler läuft bzw besser funktioniert, und das ist ja wohl meine (<-- smiley grade gefunden und der is einfach dooooooooahl )

[_Eckl]

Ja das kann schon sein das deine Stabiler ist aber ich nehm diese her ohne Probleme