Inetget Ordner Herunterladen?

1. offizieller Beitrag

    Hi leute ich mal wieder^^

    heute bin ich auf die blödsinnige idee gekommen ich könnte mir ja nen universaldownloader bauen^^
    jetzt weiß ich aber net wie man per inetget den inhalt eines ganzen ordner runterläd -.-
    weil sich ja an einem programm auch mal dateien ändern
    ich glaube ihr wisst was ich mein

    code sieht bis jez so aus:

    Spoiler anzeigen
    [autoit]


    $test = FileOpen("update.txt", 0)
    If @error = -1 Then
    InetGet("http://padmak.kilu.de/update/update.txt", "update.txt")
    EndIf
    InetGet("http://padmak.kilu.de/update/update.txt", "update" & @MDAY & ".txt")
    $file = FileOpen("update.txt", 0)
    $file1 = FileOpen("update" & @MDAY & ".txt", 0)
    If $file = $file1 Then
    MsgBox(0, "Aktuell", "Ihr Programm ist auf dem Neuesten Stand")
    Else
    MsgBox(0, "Nicht Aktuell", "Ihr Programm ist veraltet.")
    InetGet("http://padmak.kilu.de/update/", "")
    EndIf

    [/autoit]

    es geht speziell um

    [autoit]

    InetGet("http://padmak.kilu.de/update/", "")

    [/autoit]

    Vielleicht kann da wer helfen

    Mfg, Padmak

    • Offizieller Beitrag

    Wenn Du eine neue Version auf den Server packst, dann schreib doch in die Datei ("update.txt") zusätzlich alle neuen Dateien rein, dann weiß Dein Programm, welche Dateien gedownloadet werden müssen:

    [autoit]


    $test = FileReadLine("update.txt", 0)
    If @error = -1 Then
    InetGet("http://padmak.kilu.de/update/update.txt", "update.txt")
    EndIf
    InetGet("http://padmak.kilu.de/update/update.txt", "update" & @MDAY & ".txt")
    $file = FileReadLine("update.txt", 0)
    $file1 = FileReadLine("update" & @MDAY & ".txt", 0)
    If $file = $file1 Then
    MsgBox(0, "Aktuell", "Ihr Programm ist auf dem Neuesten Stand")
    Else
    MsgBox(0, "Nicht Aktuell", "Ihr Programm ist veraltet.")
    $hFile = FileOpen("update" & @MDAY & ".txt", 0)
    FileReadLine($hFile) ; erste Zeile enthält die Programmversion, überspringen
    While True
    $sLine = FileReadLine($hFile)
    If @error Then ExitLoop
    InetGet("http://padmak.kilu.de/update/" & $sLine, $sLine)
    WEnd
    FileClose($hFile)
    EndIf

    [/autoit]

    und die update.txt-Datei müsste dann in etwa so aussehen:

    Code
    1.0.0.0
programm.exe
programm.ico
beschreibung.txt
irgendwas.dll

    In der ersten Zeile die Versionsnummer und in darunterliegenden Zeilen jeweils eine der neuen Dateien.

    hey dankeschön

    von selbst wär ich da nicht drauf gekommen^^
    jez wart ich noch bis kilu meine dateien hochgeladen hat und dann probier ichs aus

    wenn ich wieda n problem hab schreib ich einfach

    Mfg, Padmak