EDIT: FTP SERVER FINDET IHR ÜBER GOOGLE WIE Z.B [Only registered and activated users can see links. Click Here To Register...]
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
Code:
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:
Code:
Dim y As String
Dim Web As New WebClient
Dim Update As String = Web.DownloadString("IZV")
Dann schreibt ihr weiter:
Code:
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
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
Code:
End if
Ich hoffe ich konnte helfen :-)
Credits:
_Eckl ~ Me
Ninoxo
