Problem mit _Update UDF

Guten Morgen! :)

nach ein bisschen googeln habe ich eine Update UDF gefunden. schaut auch ganz ordentlich aus.

funktionsweise:
vergleicht programm das von euch hochgeladen wurde mit dem was zurzeit bei euch läuft. unterscheiden sich die größen, downloadet er das neue ins Temp Verzeichnis. dann erstellt das script eine batch datei, die die neue datei ins script verzeichnis verschiebt und da mit dem alten ersetzt.

Mein Problem jetzt ist, wenn ich das alle soweit eingefügt habe und ausgefüllt habe, sagt er mir beim Starten, dass ein Update verfügbar ist. Dann downloade ich's, das Script wird beendet (hab ich so ausgewählt) und neugestartet, dann kommt eine MsgBox die mir sagt, dass das Update erfolgreich war. doch dann direkt danach sagt er mir wieder dass ein update verfügbar ist, und dann wird mir wieder angeboten das zu downloaden-

zusammengefasst, bietet er dir ein update an, du downloadest das aber nichts geschiet. dann sagt er dir noch dass es erfolgreich war, das war es aber nich.


Ich bin mir ziemlich sicher, dass das Problem in der Udf sitzt. da diese frage schonmal in dem forum gepostet wurde, aus dem es kommt und da nicht beantwortet wurde, versuch ich es hier mal.

Lg - u_failed

vllt weil nirgendwo sowas wie eine Versions Nummer ist :P
er kriegt immer nur den befehl das ein Update verfügbar ist

FichtenFoll hat mir mal eine Nette Update funktion gemacht :P

Host / Dateiname müsstest du ändern :P

(meine Version war halt 1.3 :P muss im Download/Info dann angepasst werden)

Quote:

Originally Posted by -SilentHill* vllt weil nirgendwo sowas wie eine Versions Nummer ist :P er kriegt immer nur den befehl das ein Update verfügbar ist Code: $Version = "1.0" Inetget(".ini vom webspace mit aktueller version",@TempDir &"\Ininame.ini") If Iniread(@TempDir &"\Ininame.ini","Version","Version","Error") > $Version then _SelfUpdater(......) FichtenFoll hat mir mal eine Nette Update funktion gemacht :P Code: _Update() Func _Update() $szIni = @TempDir & "\version.ini" Local $szIni = "version.ini", $szVersion = "1.0" Local $szVerLast, $szVerMin, $szVerLast_Info, $szVerLast_Download, $szDownloadPath InetGet("http://trainer99.tr.ohost.de/version.ini", $szIni, 1) $szVerLast = IniRead($szIni, "Version", "VersionLast", -1) $szVerMin = IniRead($szIni, "Version", "VersionMin", -1) $szVerLast_Info = IniRead($szIni, "Info", $szVerLast, "No Information available.") $szVerLast_Download = IniRead($szIni, "Download", $szVerLast, "") $szDownloadPath = @ScriptDir & "\DarkGER's und freehuntx's Trainer v" & $szVerLast & ".exe" FileDelete($szIni) If $szVerLast = -1 Or $szVerMin = -1 Then Return MsgBox(48, "Warning", "Checking for downloads failed.", 10) Select Case __VersionCompare($szVersion, $szVerMin) = -1 ; VerMin higher than current version Switch MsgBox(4 + 48, "New Version - Update necessary", "Your current version does not work properly, you need to download a newer version." & @CRLF & _ "Would you like to download the newest version (" & $szVerLast & ")?" & @CRLF & _ "The file will be saved in the same directory." & @CRLF & @CRLF & _ '' & _ "Versioninfo:" & @CRLF & _ $szVerLast_Info) Case 6 __Download($szVerLast_Download, $szDownloadPath, $szVerLast) If @error Then MsgBox(16, "Error", "Download failed.") Else Run($szDownloadPath) EndIf Exit 0 Case Else MsgBox(48, "Warning", "You have to download a newer version to use this trainer." & @CRLF & "The program will close now.", 10) Exit 0 EndSwitch Case __VersionCompare($szVersion, $szVerLast) = -1 ; VerLast higher than current version Switch MsgBox(4 + 64, "New Version - Update recommended", "A new version (" & $szVerLast & ") is available, it's recommended to download it." & @CRLF & _ "Would you like to download it?" & @CRLF & _ "The file will be saved in the same directory." & @CRLF & @CRLF & _ '' & _ "Versioninfo:" & @CRLF & _ $szVerLast_Info _ , 10) Case 6 __Download($szVerLast_Download, $szDownloadPath, $szVerLast) If @error Then MsgBox(16, "Error", "Download failed.") Else Run($szDownloadPath) Exit EndIf Case Else Return 0 ; Not updated EndSwitch Case Else Return 1 ; Newest version EndSelect EndFunc ;==>_Update Func __Download($szSource, $szDest, $szVersion = '') Local $iSize = InetGetSize($szSource) If Not $iSize Then Return SetError(1) Local $hDownload = InetGet($szSource, $szDest, 1, 1), $dPercent = 0, $iRead ProgressOn("Updating...", "Updating Trainer to version " & $szVersion, "0% | 0 / " & __NumFormat($iSize) & " Bytes") Do $iRead = InetGetInfo($hDownload, 0) $dPercent = $iRead / $iSize * 100 ProgressSet(Floor($dPercent), Round($dPercent, 1) & "% | " & __NumFormat($iRead) & " / " & __NumFormat($iSize) & " Bytes") Sleep(100) Until InetGetInfo($hDownload, 2) = True Or InetGetInfo($hDownload, 4) If InetGetInfo($hDownload, 4) Then ProgressOff() Return SetError(2) EndIf ProgressSet(100, "100% | Download finished") Sleep(1000) Return 1 EndFunc ;==>__Download ; ============================= Func __NumFormat($sNumber, $cSeperator = ".", $iCount = 3) Local $iDigits = StringLen($sNumber), $sNumFormat For $i = Floor(($iDigits - 1) / $iCount) To 0 Step -1 $sNumFormat = StringRight($sNumber, $iCount) & $sNumFormat $sNumber = StringTrimRight($sNumber, $iCount) If $i > 0 Then $sNumFormat = $cSeperator & $sNumFormat Next $sNumFormat = $sNumber & $sNumFormat Return $sNumFormat EndFunc ;==>__NumFormat Func __VersionCompare($sVersion1, $sVersion2) If $sVersion1 = $sVersion2 Then Return 0 Local $sep = "." If StringInStr($sVersion1, $sep) = 0 Then $sep = "," Local $aVersion1 = StringSplit($sVersion1, $sep) Local $aVersion2 = StringSplit($sVersion2, $sep) If UBound($aVersion1) <> UBound($aVersion2) Or UBound($aVersion1) = 0 Then ; Compare as strings SetExtended(1) If $sVersion1 > $sVersion2 Then Return 1 ElseIf $sVersion1 < $sVersion2 Then Return -1 EndIf Else For $i = 1 To UBound($aVersion1) - 1 ; Compare this segment as numbers If StringIsDigit($aVersion1[$i]) And StringIsDigit($aVersion2[$i]) Then If Number($aVersion1[$i]) > Number($aVersion2[$i]) Then Return 1 ElseIf Number($aVersion1[$i]) < Number($aVersion2[$i]) Then Return -1 EndIf Else ; Compare the segment as strings SetExtended(1) If $aVersion1[$i] > $aVersion2[$i] Then Return 1 ElseIf $aVersion1[$i] < $aVersion2[$i] Then Return -1 EndIf EndIf Next EndIf ; This point should never be reached Return SetError(2, 0, 0) EndFunc ;==>__VersionCompar Host / Dateiname müsstest du ändern :P Code: [Version] VersionLast= Neueste Version. VersionMin= Version die man mindestens haben muss. [Info] 1.3= Ich bin eine Info die in der Msgbox auftaucht :P [Download] 1.3=Dein Download link (meine Version war halt 1.3 :P muss im Download/Info dann angepasst werden)

Werde ich heute abend mal ausprobieren, aber ich würde gerne noch die oben gepostete UDF zum Laufen bringen. So wie ich das verstanden habe, vergleicht der Updater oben die Größen der beiden Scripts. Und ich habe mal in meinem Temporal Verzeichnis nachgeguckt (da downloadet er es ja hin, erstellt dann ne batch datei um das Update in das Scriptverzeichnis zu kopieren und das alte mit dem neuen zu überschreiben) und tatsächlich die Datei ist da.

Also denke ich, dass da was mit der batch datei falsch ist.

von batch dateien hab ich leider keine ahnung. ._.

wenn eingestellt ist das es ein Update gibt
aber nichts wie die Version oderso geprüft wird dann kann ja nur dauerhaft diese meldung kommen :P

Quote:

Originally Posted by -SilentHill* wenn eingestellt ist das es ein Update gibt aber nichts wie die Version oderso geprüft wird dann kann ja nur dauerhaft diese meldung kommen :P

dieses script vergleicht die größen :D. wenn die größen gleich sind, gibt es kein update ;). und die datei wird ja bis ins temporal verzeichnis geladen. doch dann wird sie nicht, wie gewollt ins scriptverzeichnis kopiert. dh. irgendwas ist mit diesem abschnitt falsch ;=>

vllt wird die Datei nicht überschrieben?
also das die Batch datei die vorherige datei nicht löschen / überschreiben tut? :P
(sry hab von Batch ebenfalls keine Ahnung^^)

Quote:

Originally Posted by -SilentHill* vllt wird die Datei nicht überschrieben? also das die Batch datei die vorherige datei nicht löschen / überschreiben tut? :P (sry hab von Batch ebenfalls keine Ahnung^^)

genau. sie verschiebt die datei garnicht sondern lässt sie im temporal verzeichnis. und deswegen will er immer wieder updaten, weil das alte garnicht durch das neue ersetzt wurde..

Ich bin immer noch für die einfachste Methode, die die Gamehoster verwenden...
1. Updater starten
2. Updater überprüft die Files ob die neuste Version vorhanden ist
2a. Wenn nicht wird sie heruntergeladen
3. Programm starten

Macht um einiges weniger Code die Skripte von euch...
Faulheit vor :D