Hallo zusammen,
ich bins mal wieder und zwar heute mit einer Frage zur Update Funktion in meinem Skript.
Was macht es so wie es jetzt ist?
Also die download funktion so wie sie im Original Script ist funktioniert auch bei mir, mit einem Hacken. Die Version (Dim $ver = "1.0.0") im Skript wird bei mir nicht (wie in der update.txt vorgegeben) auf Dim $ver = "1.1.0" geändert und ich weiss nicht warum. Daher startet er das Update immerwieder!
Die Test.ini läd er erfolgreich in den angegeben Ordner!
So was soll es eigentlich machen?
Die aktualisierte Update.txt soll bei mir im Ordner erhalten bleiben und daher habe ich die lösch Funktion der update.txt aus dem Code gelöscht!
Es soll nicht eine Test.ini runterladen, sondern eine von mir aktualisierte Version (eine Exe) des Tools indem auch die Updatfunktion drin ist und die alte mit der neuen ersetzen.
Ich hoffe ihr wisst wie ich das meine und könnt mir dabei helfen!
Also setze mal alles folgender Massen:
1. Original Code den ich als Grund verwende.
Spoiler anzeigen
Dim $ver = "1.0.0"
HttpSetUserAgent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10')
InetGet("http://trap-making.bplaced.net/update.txt", @Scriptdir & "\update.txt", 1, 0)
$file = FileOpen(@Scriptdir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2 = FileReadLine($file, 2)
$line2 = 1
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@Scriptdir & "\update.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
HttpSetUserAgent('Firefox')
InetGet("http://www.trap-making.bplaced.net/Test.ini", @ScriptDir & "\Test.ini", 1, 0)
MsgBox(0,"",FileRead(@ScriptDir & "\test.ini"))
FileDelete(@Scriptdir & "\update.txt")
EndIf
EndIf
2. Von mir abgeänderten Code.
Spoiler anzeigen
Dim $ver = "1.0.0"
InetGet("http://bboalmanach.de/update.txt", @Scriptdir & "\update.txt", 1, 0)
$file = FileOpen(@Scriptdir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2 = FileReadLine($file, 2)
$line2 = 1
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
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("http://www.bboalmanach.de/BBO Almanach Ressourcen Rechner.exe", @ScriptDir & "BBO Almanach Ressourcen Rechner.exe", 1, 0)
MsgBox(0, "Du Benutzt nun die Aktuellste Version", "")
EndIf
EndIf
Mfg Ghostleader