Updater für ein Programm

  • Moinsen also ich möchte ein Programm schreiben. Das nachgucken kann ob es ein Update gibt oder nicht.
    Also das Programm hab ich schon hinbekommen jetzt hab ich aber Probleme mit dem automatischen updaten.
    Also ich hab mir gedacht ich leg eine txt auf nen Server die sich das Programm beim Starten runterlädt und nachguckt was drin steht. Ob in der txt die gleiche Version drin steht wie das Programm sie ist.

    Nur mein Problem ist es is ihm egal was drin steht, er meint immer es gibt kein Update.

    Thx schonmal im voraus

    Spoiler anzeigen

    ;~ Updaten
    $ver = "1"
    InetGet("http://webseite.de/update.txt",@TempDir & "\update.txt", 1, 0)
    $file = FileOpen(@TempDir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    If $line = $ver Then
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    EndIf
    If Not $line = $ver Then
    MsgBox(64, "Update!", "Es ist ein Neuer Bot verfügbar!")
    InetGet("http://webseite.de/" & $line & ".exe", "kd bot " & $line & ".exe", 1, 0)
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Exit 0
    EndIf

  • Danke ! so geht es :thumbup:

    Spoiler anzeigen

    ;~ Updaten
    $ver = "1"
    InetGet("http://webseite.de/update.txt",@TempDir & "\update.txt", 1, 0)
    $file = FileOpen(@TempDir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    If $line = $ver Then
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Else
    MsgBox(64, "Update!", "Es ist ein Neuer Bot verfügbar!")
    InetGet("http://webseite.de/" & $line & ".exe", "kd bot " & $line & ".exe", 1, 0)
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Exit 0
    EndIf

  • jop anscheinend schon aber auf die Idee mit Else wäre ich allein nie gekommen ^^