Automatisch Downloaden von Rapidshare

Sammy254

Hi Leute,
ich bin grad dabei ein script zu schreiben, mit dem ich bei rapidshare automatisch downloaden kann.
Weil bei mir öfters mal die Internetleitung während eines Downloads abschmiert, wollte ich es so programmieren, dass er nach max. 6 Minuten mit loaden aufhört und von vorne anfängt.
Doch hierbei bin ich auf ein kleines Problem gestoßen.
Hier ein kleiner Ausschnitt meiner bisherigen Arbeit:

Code

$i = @MIN


Do
    ProcessWaitClose("firefox.exe")
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR @MIN = $i + 6

Bei mir funktioniert es leider nur solange, bis zwischen den 6 Minuten keine neue Stunde anfängt.
Hier ein Beispiel:
Um 11:55 fängt der Download an, und die Verbindung bricht während dem download ab.
$i = 55
6 Minuten später
@MIN = 01
Da die neue Stunde angefangen hat funktioniert aber leider folgende Rechnung nicht mehr:
@MIN = $i + 6
01 = 55 + 6
01 = 61

Bei diesem Problem weiß ich leider nicht mehr weiter, auch die Hilfedatei von Autoit 3 konnte mir nicht mehr weiterhelfen.
Ich hoffe aber, dass ihr mir helfen könnt.

danke schonmal für eure Antworten

Sammy254

**bernd670**

Hallo und :willkommen:,

solche Schleifen macht man besten mit TimerInit() und TimerDiff() z.B. so:

Code

$i = TimerInit()


Do
    ProcessWaitClose("firefox.exe")
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 3600000 ; Differenz > 6 Min.

eine andere Möglichkeit ist die Verwendung der Funktion Mod() z.B. so:

Code

$i = @MIN


Do
    ProcessWaitClose("firefox.exe")
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR @MIN = Mod($i + 6,60)

Sammy254

danke für deine hilfe bernd, aber irgendwie funzt des net.
ich poste hier mal des ganze script, vielleicht hab ich ja nen fehler gemacht:

Code

; Script Start - Add your code below here


$msg = InputBox("DDL-Warez", "Erster Link-Code", "", "", _
    -1, -1, 500, 450)


$a = InputBox("DDL-Warez", "Anzahl an Downloads", "", "", _
    -1, -1, 500, 450)
$e = InputBox("DDL-Warez", "Momentaner Download", "", "", _
    -1, -1, 500, 450)

While $e <= $a


Do
    $var = Ping("www.rapidshare.de",250)

Until $var > 0




; Link eingeben


MouseMove(213, 1009)
MouseClick("left")
Sleep (1500)
MouseMove(439, 66)
MouseClick("left")
SEND ( "http://ddl-warez.no-ip.org/~toxicddl/ddl-download/download1.php?id=" & $msg)
Send ("{ENTER}")
Sleep (3000)
;Downloaden
MouseMove(612, 213)
MouseClick("left")
Sleep (2500)
MouseMove(757, 682)
MouseClick("left")
Sleep (1000)
MouseMove(899, 862)
MouseClick("left")
Sleep (500)
MouseClick("left")
;Fenster schließen
MouseMove(1267, 13)
MouseClick("left")
;Werbung beenden


; Ende von Firefox abwarten
$i = TimerInit()


Do
    ProcessWaitClose("firefox.exe")
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 360000 ; Differenz > 6 Min








ProcessClose("firefox.exe")


Sleep (500)






$search = FileFindFirstFile("*part" & $e & ".rar") 
If $search = -1 Then
    Run("Kopie von Downloaden von DDL-Warez1.exe")
	Sleep (500)
	Send($msg)
	Send("{ENTER}")
	Send($a)
	Send("{ENTER}")
	Send($e)
	Send("{ENTER}")
    Exit
EndIf


While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop


	$msg = $msg + 1
	$e = $e + 1
WEnd










; Close the search handle
FileClose($search)




WEnd

Alles anzeigen

**bernd670**

Ich habe es zwar nicht getestet aber ich glaube da fehlt zumindest noch das starten von firefox!

Spoiler anzeigen

Code

$msg = InputBox("DDL-Warez", "Erster Link-Code", "", "", _
    -1, -1, 500, 450)


$a = InputBox("DDL-Warez", "Anzahl an Downloads", "", "", _
    -1, -1, 500, 450)
$e = InputBox("DDL-Warez", "Momentaner Download", "", "", _
    -1, -1, 500, 450)

While $e <= $a


Run(@ComSpec & " /C start firefox.exe")
ProcessWait("firefox.exe")


Do
    $var = Ping("www.rapidshare.de",250)

Until $var > 0




; Link eingeben


MouseMove(213, 1009)
MouseClick("left")
Sleep (1500)
MouseMove(439, 66)
MouseClick("left")
SEND ( "http://ddl-warez.no-ip.org/~toxicddl/ddl-download/download1.php?id=" & $msg)
Send ("{ENTER}")
Sleep (3000)
;Downloaden
MouseMove(612, 213)
MouseClick("left")
Sleep (2500)
MouseMove(757, 682)
MouseClick("left")
Sleep (1000)
MouseMove(899, 862)
MouseClick("left")
Sleep (500)
MouseClick("left")
;Fenster schließen
MouseMove(1267, 13)
MouseClick("left")
;Werbung beenden


; Ende von Firefox abwarten
$i = TimerInit()


Do
    ProcessWaitClose("firefox.exe")
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 360000 ; Differenz > 6 Min








ProcessClose("firefox.exe")


Sleep (500)






$search = FileFindFirstFile("*part" & $e & ".rar") 
If $search = -1 Then
    Run("Kopie von Downloaden von DDL-Warez1.exe")
	Sleep (500)
	Send($msg)
	Send("{ENTER}")
	Send($a)
	Send("{ENTER}")
	Send($e)
	Send("{ENTER}")
    Exit
EndIf


While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop


	$msg = $msg + 1
	$e = $e + 1
WEnd










; Close the search handle
FileClose($search)




WEnd

Alles anzeigen

Benutze doch einfach eine Downloadmanager wie z.B. FDM.

Sammy254

das geht mit rapidshare(one-klick-filehoster) nicht.
firefox öffne ich mit den ersten mausklicks

gibt es denn keine möglichkeit, das mit den 6 minuten hinzubekommen?

**bernd670**

Das problem könnte an ProcessWaitClose liegen, wenn kein timeout angegeben ist wird das Programm solange angehalten bis der Prozess beendete wurde. Gib mal einen Timeout von 500ms an dann wird die Schleife nach 500ms fortgesetzt, auch wenn der Prozess noch läuft.

Code

$i = TimerInit()


Do
    ProcessWaitClose("firefox.exe",500)
	$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 3600000 ; Differenz > 6 Min.

**peethebee**

Hallo!

Ich vermute mal, dass das ProcessWaitClose die ganze Sache aufhält. Nachdem du keinen zweiten Parameter angegeben hast, wartet er wirklich, bis der Firefox weg ist. Und das kann eben auch länger als 6 Minuten dauern...

peethebee

**bernd670**

ich war schneller! :party4: :party3: :party4: :party3:

Edit peethebee: grml

Sammy254

danke nochmal für eure hilfe, aber leider geht es auch damit nicht.
alles andere geht ja, nur eben diese 6 minuten nicht.
das script macht halt dann weiter wenn ich firefox schließe

**bernd670**

Ich habe die Schleife getestet. An der kann es nicht liegen, die wird nach 6 Min. abgebrochen.

Spoiler anzeigen

Testprogramm

Code

$start = @HOUR & ":" & @MIN & ":" & @SEC 


$i = TimerInit()
$PID = 1
Do
    Sleep(500)
    $PID = 1
Until $PID = 0 Or TimerDiff($i) > 360000 ; Differenz > 6 Min


$ende = @HOUR & ":" & @MIN & ":" & @SEC 


MsgBox(0,"","Start: " & $start & @CRLF & "Ende: " & $ende )

Alles anzeigen

Tipp: Im Programm evtl. mal ein paar MsgBox vor und nach der Do..Until-Schleife eintragen um den Fehler einzugrenzen oder am Programmanfang Opt("TrayIconDebug", 1) eintragen, dann kann man, wenn man mit der Maus über das TrayIcon fährt, ablesen in welcher Zeile das Programm gerade ist.

Sammy254

also, ich habs ma so probiert:

Spoiler anzeigen

[autoit]

$i = TimerInit()

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

Do
MsgBox(0,"","Start:" )
ProcessWaitClose("firefox.exe",500)
MsgBox(0,"","Ende:" )
Sleep(500)
$PID = ProcessExists("firefox.exe")
Until $PID = 0 Or TimerDiff($i) > 6000 ; Differenz > 6 Min

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

die erste msgbox is noch gekommen, aber die zweite nicht, kann es sein, dass des mit den 500ms nicht ganz klappt?
/edit: er bleibt bei dem ProcessWaitClose hängen

**peethebee**

Lassd as ProcesWaitClose doch einfach mal weg und lass dein Sleep(500) statt dessen stehen. Das ProcessWaitClose scheint mir keinen Sinn zu erfüllen außer Zeit tot zu scholagen, aber das kann Sleep immer noch am besten von allen...

peethebee

Sammy254

dann beendet er aber nichtt nach max 6 minuten und macht mit dem script weiter
wenn ich es weg lass geht es natürlich

**bernd670**

Sorry war mein Fehler, der Timeout wird in Sekunden und nicht in Millisekunden angegeben.

Code

ProcessWaitClose("firefox.exe",1)

sollte funktionieren! Allerdings ändert es nichts an der Funktion wenn du die Schleife ohne ProcessWaitClose benutzt. ProcessWaitClose hält nur das laufende Programm solange an bis der Process beendet wurde. Was ja sowieso erst durch ProcessClose nach Do..Until geschieht.

Sammy254

danke leute, jetzt funktioniert es

firefox endet auch dann, wenn der download zuende ist, da das downloadfenster automatsich verschwindet.
dadurch brauche ich ProcessClose nur, wenn der download länger als 6min braucht

Sammy254