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:
[autoit]#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
[/autoit]