Ich bräuchte mal hilfe^^
http://video.kroegers-web.de/rapidshare/
Folgendes script liest die Downloadlinks aus dateilinks.txt aus
und lädt die Dateien herunter
wie kann man die Links in das script verschieben das die Linkliste nicht extern ist ??
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: McPoldy
Script Function:
Rapidshare Download
#ce ----------------------------------------------------------------------------
; Demodaten
#cs
http://rapidshare.com/files/142896635/icq.png.html
http://rapidshare.com/files/14289663…135171418967153
http://rapidshare.com/files/142896589/email.png.html
http://rapidshare.com/files/14289658…669556202773690
http://rapidshare.com/files/142896626/twitter.png.html
http://rapidshare.com/files/14289662…989538063114268
http://rapidshare.com/files/14289747…rtable.zip.html
http://rapidshare.com/files/14289747…558319337595804
#ce
; Infos
#cs
1. Nach dem Aufruf der Seite mit dem Download link muss man das Formular mit der id ff absenden.
2. Wir ziehen uns den direkten Download Link aus dem Feld action aus dem Formular dlf
3. Dateiname soll so lauten wie die Datei bei Rapidshare
4. Wir wollen alles Dateien aus unserer dateilinks.txt runterladen und wenn Datie
keine Links enthält soll das Script sofort beendet werden.
5. Download in Schleife
. Wenn Datei geladen, schliesse den IE
#ce
; Quellcode
#include
#include
Global $links[1]
; <-- siehe Infos 4.
; Lade Datein
$oFile = FileOpen(@ScriptDir & '\dateilinks.txt',0)
While 1
$line = FileReadLine($oFile)
If @error = -1 Then ExitLoop
$str = StringStripWS($line,3)
If $str <> '' Then _ArrayAdd($links,$str)
WEnd
FileClose($oFile)
$links[0] = UBound($links)-1
If $links[0] = 0 Then Exit
; -->
$oIE = _IECreate("about:blank")
; <-- siehe Infos 5.
For $i = 1 To $links[0]
; <-- siehe Infos 1.
_IENavigate($oIE,$links[$i])
$oForm = _IEFormGetObjByName ($oIE, "ff")
_IEFormSubmit ($oForm,0)
; -->
; <-- siehe Infos 2.
_IELoadWait($oIE)
Do
$oForm = _IEFormGetObjByName ($oIE, "dlf")
If $oForm = 0 Then Sleep(5000)
Until $oForm <> 0
; <-- siehe Infos 3.
$str = StringSplit($oForm.action,'/')
; -->
InetGet($oForm.action,@ScriptDir & '\download\' & $str[UBound($str) -1 ],1)
; -->
Next
; -->
; <-- siehe Infos
_IEQuit($oIE)
; -->
MFG
Chrisiwbi