FTP Downloader

Ich Suche ein Script das mehrere daten (z.b jpg,zip..) nacheinender von einen Ftp server herunterläd
[Blockierte Grafik: http://www5.picfront.org/picture/08pCQGfqc/img/Unbenannt.jpg]Sollte z.b so ausehen

MFG
Chrisiwbi

ich hab ein script gefunden das aber immer nur eine Datei herunterläd:

#include #include #include
; Url zum WebverzeichnisDim $ServerUrl = "http://wbi.eluhost.de/Partitionirer/";Dim $ServerUrl = "http://blog.kroegers-web.de/videos/autoit/"
; Dateiliste die runtergeladen werden sollDim $FileList = "files.txt"
;Speicherpfad für die ListeDim $SaveFileList = @TempDir & "\files.txt"

;Textdatei ladenIf InetGet($ServerUrl & $FileList, $SaveFileList, 1) = 0 ThenMsgBox(48, "Fehler...", "Fehler beim download der Dateiliste")Exit 1EndIf
;Dateiliste zum lesen öffnenDim $fso = FileOpen($SaveFileList, 0)

;Inhalt der Datei einlesenDim $txt = FileRead($fso)
;Dateiliste schliessenFileClose($fso)
;@CRLF aus der $txt Variabele entfernen$txt = StringReplace($txt, @CRLF, "|")

$txtList = StringSplit($txt, "|")
$txt = ""For $i = 1 To $txtList[0]$txtlistlen = StringLen($txtList[$i]) + 1$txtliststart = StringInStr($txtList[$i], "/") + 1If $txtliststart = 0 Then$txt = $txt & $i & "-" & $txtlist[$i] & "|"Else$txtlistcount = $txtlistlen - $txtliststart$txtlistresult = StringMid($txtList[$i], $txtliststart, $txtlistcount)$txt = $txt & $i & "-" & $txtlistresult & "|"EndIfNext
$txt = StringTrimRight($txt, 1)
;Form$frmMain = GUICreate("FileLoader", 285, 150, 993, 325)$pcbDownload = GUICtrlCreateProgress(24, 64, 233, 17)$infoLabel = GUICtrlCreateLabel("", 24, 84, 233, 25);, $SS_CENTER )$cmdButton = GUICtrlCreateButton("Start Download", 24, 104, 233, 25, 0)GUICtrlSetState(-1, $GUI_DISABLE)$FileList = GUICtrlCreateCombo("FileList", 24, 24, 233, 25)GUICtrlSetData(-1, $txt)
GUISetState(@SW_SHOW)
;Variable für die derzeit Ausgewählte DateiDim $selectet
;Variable für die DateiendungDim $mediaformat
;SpeicherortDim $SaveFile
While 1$nMsg = GUIGetMsg()Switch $nMsgCase $GUI_EVENT_CLOSEExitCase $cmdButton$SaveFile = FileSaveDialog("Datei Speichern...", @DesktopDir, "Video (*." & $mediaformat & ")", 2, GUICtrlRead($FileList))If Not @error Then RunDownload()Case $FileListGUICtrlSetData($infoLabel,"")$id = StringLeft(GUICtrlRead($FileList),StringInStr(GUICtrlRead($FileList),"-")- 1)$selectet = $ServerUrl & $txtList[$id]InetGetSize($selectet)If @error ThenGUICtrlSetState($cmdButton, $GUI_DISABLE)ElseGUICtrlSetState($cmdButton, $GUI_ENABLE)EndIf$mediaformat = StringRight(GUICtrlRead($FileList), 3)EndSwitchWEnd

Func RunDownload()GUISetState(@SW_DISABLE)$FileSize = InetGetSize($selectet)InetGet($selectet, $SaveFile, 1, 1)$curSize = 0DoGUICtrlSetData($pcbDownload, $curSize)$curFileSize = FileGetSize($SaveFile)$curSize = $curFileSize * 100$curSize = $curSize / $FileSize$curSize = Ceiling($curSize)$curFileSize = Round($curFileSize / 1024 / 1024, 2)GUICtrlSetData($infoLabel, $curFileSize & " - " & Round($FileSize / 1024 / 1024, 2) & " MB (" & $curSize & "%)")Sleep(200)Until $curSize >= 99GUISetState(@SW_ENABLE)GUICtrlSetData($infoLabel, "Download beendet!!!")GUICtrlSetData($pcbDownload, 0)EndFunc ;==>RunDownload

Hatte da mal ein Programm geschrieben .. Kannst es dir ja umschreiben
Thread

Kopier das Script , schreib es auf deinen ftp-server um und du wirst sehen es klappt!!

Öhm , warum kann ich dann Dateien von meinem FTP mit diesem Script downloaden?

Hier die Zeilen oO

InetGet("http://r1flex.kilu.de/Ini's/your.ini", @TempDir & "\your.ini")
InetGet("http://r1flex.kilu.de/Ini's/FTP-Checker2.ini", @TempDir & "\FTP-Checker2.ini")
InetGet("http://r1flex.kilu.de/Ini's/FTP.ini", @TempDir & "\FTP.ini")
InetGet("http://r1flex.kilu.de/Meine Tools/FTP-Checker.exe", @ScriptDir & "\FTP-Checker.exe")

Case $Button1
$name2 = GUICtrlRead($List2)
$name = GUICtrlRead($List1)
$speicherpfad = FileSelectFolder("Pfad wählen", "::{00020D75-0000-0000-C000-000000000046}")
If @error = 1 Then
Else
$progress2 = InetGetSize("http://r1flex.kilu.de/" & $name2 & "/" & $name)
InetGet("http://r1flex.kilu.de/" & $name2 & "/" & $name, $speicherpfad & "\" & $name, 0, 1)

Oh , ok , dann war ich da falsch informiert!!
Nehme alles zurück. Aber was ist dann ein FTP-Server sieht das nicht genau so aus?^^

ich suche einfach nur ein script mit dem ich dateinen von einem server herunterladen kann

Zitat

Wo greifst du auf FTP zu? Das ist alles HTTP.
Es ist ein gravierender Unterschied zwischen
- FileTransferProtocol
- HyperTextTransferProtocol

war mein Fehler die dateien sollen von einem HTTP server geladen werden
wobei über ftp get es doch auch ftp://XXX:XXX@wbi.eluhost.de/Partitionirer/

MFG
Chrisiwbi

EDIT:
Das Script in der Help get nicht die heruntergeladenen Dateien sind nur 4 kb gros

InetGet("http://wbi.eluhost.de/Partitionirer/", "artitonirer.z01")
While @InetGetActive TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16) Sleep(250)Wend
MsgBox(0, "Bytes read", @InetGetBytesRead)

Lies doch mal die Hilfe zu InetGet genu
InetGet("PFAD_ZUR_DATEI_IM_INTERNET_MIT_DATEINAME","ZIELPFAD_ZUM_DONWLAODEN")

EDIT es get wie bekomme ich nun eine Grafiche oberfläche hin
 [Blockierte Grafik: http://www5.picfront.org/picture/08pCQGfqc/img/Unbenannt.jpg]

InetGet("http://wbi.eluhost.de/Partitionirer/Partitonirer.z01", "C:\artitonirer.z01")


While @InetGetActive
 TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
 ;Sleep(250)
Wend


MsgBox(0, "Bytes read", @InetGetBytesRead)

MFG
Chrisiwbi

THX