Edit: Überprüfung auf Internet nun mit Ping
Edit: FTP-Server zu finden über Google. Beispiel ist funpic.de.
Huhu ihr
Dies ist nun mein erstes 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:
[b]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:
Damit wird überprüft ob der PC mit einem Netzwerk verbunden ist.
Zwischen 'Then' und 'Else' schreibt ihr nun:
Damit wird der Inhalt ver Verion.txt als String heruntergeldan, in diesem Fall '1.0.0.0'
Dann schreibt ihr weiter:
Nun wird überprüft ob die Setup.exe bereits vorhanden ist.
Sie wird gegebenenfalls gelöscht.
VB.NET-Quellcode
- 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 anhngen und alles funktioniert...
Ich hoffe ich konnte helfen
"Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero
Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!
Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!
Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Ninoxo“ () aus folgendem Grund: Überprüfung nun mit Ping.