etwas auf einen FTP Server hochladen

1. offizieller Beitrag

    Hallo,

    ich suche nach einem Befehl/Funktion mit dem man eine Datei auf einen FTP server hochladen kann am besten noch in ein bestimmtes verzeichnis davon, irgendwie gibts bei der boardsuche nix mit FTP ka warum und google bzw. das englische Forum spucken nix wirklich interessantes dazu aus...
    Es geht um ein Spiel (CS) bzw. die Demos davon, diese muss man nach einem Ligaspiel den anderen Spielern zur Verfügung stellen, mein Programm macht jetzt soweit dass es diese 4 Dateien automatisch in ein RAR archiv Packt und jetzt sollte es anschließend diese Datei auf meinen FTP hochladen

    Hoffe jemand kann mir helfen
    MFG & Danke für jede Hilfe: Fire

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    Einmal editiert, zuletzt von FireFlyer (30. März 2008 um 16:17)

    lol,

    hab was gefunden man kann das ja per CMD machen^^

    allerdings habe ich (manuell) probleme das kennwort einzugeben :(
    1. ich gebe ftp ein
    2. ich gebe open fire.public-enemy-clan.de ein
    3. er fragt nach Benutzername: ftpfire eingeben
    4. er fragt nach einem Kennwort, ich kann nix mehr eingeben?... Fehler oder sowas?

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    so für alle dies interessiert ;) mein fertiges Programm

    es wird zwar winrar benötigt aber dann ;D

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Process.au3>
    AutoItSetOption("GUIOnEventMode", 1)
    AutoItSetOption("TrayIconHide", 1)
    $options = 1231234123
    $input1 = 123149
    $input2 = 12314123

    [/autoit] [autoit][/autoit] [autoit]

    If FileExists(@ScriptDir & "\options.opt") Then
    $pathwinrar = FileReadLine(@ScriptDir & "\options.opt", 1)
    $name = FileReadLine(@ScriptDir & "\options.opt", 2)
    Else
    FileWriteLine(@ScriptDir & "\options.opt", "C:\Programme\WinRar\")
    FileWriteLine(@ScriptDir & "\options.opt", "Name")
    $pathwinrar = FileReadLine(@ScriptDir & "\options.opt", 1)
    $name = FileReadLine(@ScriptDir & "\options.opt", 2)
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICreate("Demos Packen", 300, 200, Default, Default, Default, $WS_EX_ACCEPTFILES)
    $edit = GUICtrlCreateEdit("", 10, 50, 280, 100, $ES_READONLY)
    GUICtrlSetBkColor($edit, 0xFFFFFF)
    $button = GUICtrlCreateButton("...", 10, 170, 30, 20)
    $optionen = GUICtrlCreateButton("Optionen", 220, 10, 70, 20)
    GUICtrlCreateLabel("Spieltag:", 10, 12)
    $spieltag = GUICtrlCreateInput("", 60, 10, 40, 20)
    $updown = GUICtrlCreateUpdown($spieltag)
    $clear = GUICtrlCreateButton("Clear Edit", 120, 10, 60, 20)
    GUICtrlSetState($edit, $GUI_DROPACCEPTED)
    GUISetState(@SW_SHOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_exit")
    GUICtrlSetOnEvent($button, "read")
    GUICtrlSetOnEvent($optionen, "options")
    GUICtrlSetOnEvent($clear, "clear")

    [/autoit] [autoit][/autoit] [autoit]

    Func clear()
    GUICtrlSetData($edit, "")
    EndFunc ;==>clear

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func options()
    If FileExists(@ScriptDir & "\options.opt") Then
    $pathwinrar = FileReadLine(@ScriptDir & "\options.opt", 1)
    $name = FileReadLine(@ScriptDir & "\options.opt", 2)
    Else
    FileWriteLine(@ScriptDir & "\options.opt", "C:\Programme\WinRar\")
    FileWriteLine(@ScriptDir & "\options.opt", "Name")
    $pathwinrar = FileReadLine(@ScriptDir & "\options.opt", 1)
    $name = FileReadLine(@ScriptDir & "\options.opt", 2)
    EndIf
    $options = GUICreate("Optionen", 220, 100)
    $input1 = GUICtrlCreateInput($pathwinrar, 10, 10, 150, 20)
    $input2 = GUICtrlCreateInput($name, 10, 40, 150, 20)
    $button2 = GUICtrlCreateButton("...", 180, 10, 20, 20)
    $button3 = GUICtrlCreateButton("Save", 10, 70, 50, 20)
    $button4 = GUICtrlCreateButton("Cancel", 150, 70, 50, 20)
    GUICtrlSetOnEvent($button2, "dialog")
    GUICtrlSetOnEvent($button3, "save")
    GUICtrlSetOnEvent($button4, "cancel")
    GUISetState(@SW_SHOW, $options)
    EndFunc ;==>options

    [/autoit] [autoit][/autoit] [autoit]

    Func save()
    FileDelete(@ScriptDir & "\options.opt")
    FileWriteLine(@ScriptDir & "\options.opt", GUICtrlRead($input1))
    FileWriteLine(@ScriptDir & "\options.opt", GUICtrlRead($input2))
    GUISetState(@SW_HIDE, $options)
    EndFunc ;==>save

    [/autoit] [autoit][/autoit] [autoit]

    Func dialog()
    $dialog = FileSelectFolder("Choose your WinRAR folder", "")
    GUICtrlSetData($input1, $dialog)
    EndFunc ;==>dialog

    [/autoit] [autoit][/autoit] [autoit]

    Func cancel()
    GUISetState(@SW_HIDE, $options)
    EndFunc ;==>cancel

    [/autoit] [autoit][/autoit] [autoit]

    Func read()
    $pathwinrar = FileReadLine(@ScriptDir & "\options.opt", 1)
    $name = FileReadLine(@ScriptDir & "\options.opt", 2)
    FileDelete(@TempDir & "\liste.lst")
    FileWrite(@TempDir & "\liste.lst", GUICtrlRead($edit))
    If FileExists($pathwinrar & "\WinRAR.exe") Then
    FileDelete("C:\ftpupload.ftp")
    FileWriteLine("C:\ftpupload.ftp", "open fire.public-enemy-clan.de")
    FileWriteLine("C:\ftpupload.ftp", "**************")
    FileWriteLine("C:\ftpupload.ftp", "**************")
    FileWriteLine("C:\ftpupload.ftp", "cd httpdocs")
    FileWriteLine("C:\ftpupload.ftp", "cd Demos")
    FileWriteLine("C:\ftpupload.ftp", "cd awfl"&GUICtrlRead($spieltag))
    FileWriteLine("C:\ftpupload.ftp", "BINARY")
    FileWriteLine("C:\ftpupload.ftp", "put C:\awfl"&GUICtrlRead($spieltag)&"_pl_"&StringLower($name)&".rar")
    FileWriteLine("C:\ftpupload.ftp", "bye")
    RunWait($pathwinrar & "\WinRAR.exe A -ep1 -s -m5 C:\awfl" & GUICtrlRead($spieltag) & "_pl_" & StringLower($name) & ".rar @" & @TempDir & "\liste.lst")
    sleep(1000)
    RunWait(@ComSpec & " /c " & 'ftp -s:C:\ftpupload.ftp')
    FileDelete("C:\ftpupload.ftp")
    FileDelete("C:\awfl"&GUICtrlRead($spieltag)&"_pl_"&StringLower($name)&".rar")
    MsgBox(0, "Success", "Datei wurde erfolgreich hochgeladen")
    Else
    MsgBox(0, "Error", "WinRAR wurde nicht gefunden")
    EndIf
    EndFunc ;==>read

    [/autoit] [autoit][/autoit] [autoit]

    Func GUI_exit()
    Exit
    EndFunc ;==>GUI_exit

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    WEnd

    [/autoit]

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    naja erst
    open [server]
    [username]
    [password]

    cd [dir] auf dem FTP changen

    put [file] datei hochladen

    bye

    fertig^^

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    genau die von oben nach unten ;D

    nur ohne den [ ]

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    Einmal editiert, zuletzt von FireFlyer (30. März 2008 um 11:51)