ich habe folgendes problem
ich möchte meinen update sucher so haben, das dieser sobald eine neue version verfügbar ist diese dann runterlädt.
also das mit aktuelle version oder nicht habe ich schon
nur jezt möchte ich das diese datei auch runtergeladen wird und am besten auf dem desktop gespeichert wird...
ist das irgendwie zu machen?
Spoiler anzeigen
Dim $ver = "1.2.2"
InetGet("http://www.test.de/update.txt",@TempDir & "\update.txt", 1, 0) ; das programm lädt die update.txt, wo die datei version drin steht
$file = FileOpen(@TempDir & "\update.txt", 0); öffen der datei
$line = FileReadLine($file, 1);speicher zeile 1 in variable
$line2= FileReadLine($file, 2);speicher zeile 2 in variable
If $line = $ver Then ; wenn programm version gleich der txt dann
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file);txtdatei schließen
FileDelete(@TempDir & "\update.txt");txt datei lösen
Else ; sonst
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!");informiert das update vorhanden ist
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?"); fragt ob man updaten will
If $fg = 6 Then ; Wenn ja/YES geklickt worden ist dann
InetGet("http://www.test.de/update.txt" & $line2, $line2, 1, 0) ;hole aktuelle datei (mit dem namen $line2)
FileClose($file);schliest datei
FileDelete(@TempDir & "\update.txt");löscht datei
Exit 0
EndIf
EndIf
