[HowTo] Hacks automatisch updaten lassen

[DreamingSoul007]

Auto-Update Funktion via Internet
hab mal eine Funktion geschrieben, die das eigene Script oder die kompilierte Exe
mit einer anderen/neueren Version aus dem Internet aktualisiert und sich selbst dabei überschreibt.
Auf Wunsch wird das Script / Prog danach neu gestartet...

Na ja, wer es brauchen kann.

Vielleicht habt Ihr ja noch Wünsche, Anregungen oder Kritik...
Edit:
ich vergass, ist natürlich mit Progressbar

Edit 2:
ich hab in das Script noch einen Vergleich eingebaut, ob der Dateiname aus dem Internet auch dem lokalen Namen des laufenden Programmes übereinstimmt.

Edit 3:

!!!Das Script ist kein Updater!!!
Damit kannst Du Dein kompiliertes Script mit einer von Dir im Internet bereit gestellten,
aktuelleren Version automatisch selbst aktualisieren und damit überschreiben.

Wenn Du die UDF in Dein Script mit aufnimmst und dann sinnvollerweise am Anfang Deines Scriptes aufrufst:

#include <_SelfUpdater.au3>
_SelfUpdater("Pfad zur Downloaddatei", 0, "Titel des Upload Fensters")

Dann überprüft diese Funktion die Dateigröße Deines gerade laufenden selbst kompilierten Scriptes mit der von Dir im Internet bereitgestellten Datei,
lädt die aktuellere Version aus dem Internet in ein Temp-Verzeichnis, erstellt eine Batch-Datei die den Kopiervorgang durchführt und beendet sich dann selbst.
Wahlweise kannst Du angeben, ob Dein Programm nach dem Update automatisch wieder starten soll, oder ob der User selbst Dein Programm nochmal starten soll.
Nach der Beendigung des Updates wird eine ini erstellt, damit das Script prüfen kann, ob ein Update erfolgte. Wenn dem so ist erscheint eine MsgBox, die den User auf den Erfolg / Mißerfolg hinweist.
Danach wird das Temp-Verzeichnis und die ini gelöscht.
Fertig...

Da die datei nicht auf dem Elitepvper uploader hochgeladen werden will habe ich einen direkt link erstellt
Lg Dreamy xD

[bestora]

gab es schonmal von n anderen

siehe hier

[DreamingSoul007]

Originally Posted by b̶̶e̶̶s̶̶t̶̶o̶̶r̶̶a̶

gab es schonmal von n anderen

siehe hier

Ich finde ehrlich gesagt meine methode einfacher xD

[©£¥ňŋ²©]

Hol dir Winrar auf winrar.de
Installier es
Rechtsklick->Neu->Winrararchiv
pack deine au3 rein
lad die rar mit dem epvp uploader hoch(es sollte klappen)


WInRAR wirst du aber öfter brauchen...

[DreamingSoul007]

Originally Posted by ©£¥ňŋ²©

Hol dir Winrar auf winrar.de
Installier es
Rechtsklick->Neu->Winrararchiv
pack deine au3 rein
lad die rar mit dem epvp uploader hoch(es sollte klappen)

ist mir zuviel arbeit xD habe lieber dropbox genommen =P

[coladose]

Author ........: Schnuffel @

Du bist dir sicher, dass du das geschrieben hast ?

[puzzlr]

Originally Posted by FutureTrance

Du bist dir sicher, dass du das geschrieben hast ?

^This. Wir haben nichts dagegen, wenn du hier eine Function aus einem anderen Forum vorstellst. Aber als deine eigene darfst du sie nicht ausgeben.

Außerdem, Fichte hat auch eine geschrieben, die ich persönlich besser finde.

 Spoiler

PHP Code:

_Update()

Func _Update()
    Local $szIni = @TempDir & "\version.ini" ; , $szIni = "version.ini" <- for local testing
    Local $szVersion = "1.1"
    Local $szVerLast, $szVerMin, $szVerLast_Info, $szVerLast_Download, $szDownloadPath

    InetGet("http://trainer99.tr.ohost.de/version.ini", $szIni, 1) ; <- comment out for local testing
    $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, "")
    ; Change exe-path here; or use it directly from the URL listed in the ini
    $szDownloadPath = @ScriptDir & "\DarkGER's und freehuntx's Trainer v" & $szVerLast & ".exe"

    FileDelete($szIni) ; <- comment out for local testing

    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
                    InetGet($szVerLast_Download, $szDownloadPath, 1)
                    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   ;==>__VersionCompare 


btw, was hat das eigl. mit S4League zu tun?

u_failed.

[skyso03200]

virus!!!

[DreamingSoul007]

Originally Posted by skyso03200

virus!!!

Ehm wie kann eine .au3 datei einen virus enthalten?