Hallo,
ich habe bei google mal nach einer Update Funktion geguckt und hab das gefunden aber es geht nicht...
Danke für die Hilfe.
ich habe bei google mal nach einer Update Funktion geguckt und hab das gefunden aber es geht nicht...
Code:
Dim $ver = "1.5"
InetGet("http://sanctuaryfs:passwort@sanctuaryfs.***********/proggs/otkt/ver.txt",@TempDir & "\ver.txt", 1, 0)
$file = FileOpen(@TempDir & "\ver.txt", 0)
$line = FileReadLine($file, 1)
$line2= FileReadLine($file, 2)
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@TempDir & "\ver.txt")
Else
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
If $fg = 6 Then
InetGet("ftp://sanctuaryfs:passwort@sanctuaryfs.***********/proggs/install.exe" & $line2, $line2, 1, 0) ; ANPASSEN
FileClose($file)
FileDelete(@TempDir & "\ver.txt")
Exit 0
EndIf
EndIf