Jump to content
Sign in to follow this  
JellyFish666

RapidShare

Recommended Posts

JellyFish666

I made this but its unfinished since I had no luck finding away to read the cat captcha's if I do find away I will continue and the features below will also be added.

- Read captcha

- Download multi links

- Reset Router and clean cookies.

- Link Checker (find working/dead links.)

- Finish automated downloading of script

This script doesn't cheat rapidshare it just automates everything to make every hour count, good for when your sleeping :)

#include-once
#include <IE.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3> ;not sure if this needs to be included
#include <WindowsConstants.au3>;not sure if this needs to be included

Global $oIE , $GUI
$Link = InputBox("Rapid Share Captcha" , "Insert Rapid-Share Link" , "" , "" , 300 , 20)
If Not @error = 0 Then
    Exit
ElseIf StringInStr($Link , "RapidShare.com") Then
    _Create()
Else
    MsgBox(0 , "" , "your link does seem to be valid")
EndIf

Func _Create()
    $oIE = _IECreateEmbedded()
    $GUI = GUICreate("Rapid Share Captcha", 800, 600 , Default , Default , $WS_POPUP)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 800, 600)
    GUISetState()   
    ToolTip("attempting to connect to rapidshare." , 0 , 0 , "Please Wait...")
    _IENavigate($oIE, $Link , 1)
    ToolTip("")
    WinWaitActive($GUI)
    _FreeClick()

    While 1
        Sleep(1000)
    WEnd
EndFunc

Func _FreeClick()
    $oButton = _IEGetObjByName($oIE, "dl.start" , 1)
    _IEAction($oButton, "Click")
    _IELoadWait($oIE)
    _WaitTime()
EndFunc

Func _WaitTime()
    $test = _IEBodyReadText($oIE)
    ;_StringBetween("Download ticket reserved.")
    _HappyTime()
EndFunc

Func _HappyTime()
    _IELoadWait($oIE)
    $Happy = _IEBodyReadText($oIE)
    If StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!") Then
        _Download()
    Else
    ;   _Captcha()
    EndIf
EndFunc

Func _Download()
    $FindButton = _IEBodyReadText($oIE)
    If StringInStr($FindButton , "Download via") Then
      ;   $oButton = _IEGetObjByName($oIE, "Download via Cogent" , 1)
    ;    _IEAction($oButton, "Click")
    ;    _IELoadWait($oIE)
     Else
         MsgBox(0 , "Error" , "can't find download button")
     EndIf
EndFunc
Edited by JellyFish666

Share this post


Link to post
Share on other sites
oToom

I could do with that check the links feature,

Share this post


Link to post
Share on other sites
JellyFish666

I could do with that check the links feature,

well rapidshare has a build in link checker and others have already made one, if you want one for your project it should be pretty easy.

Link Checker

Share this post


Link to post
Share on other sites
oToom

Also how would i go about just using that happy hour script?

Share this post


Link to post
Share on other sites
GHOSTSKIKDA

Hi !!!

I can't execute this program

Help me Plz

Thanks ... :)


[center]I LOVE ALGERIA .... ;-)[/center]

Share this post


Link to post
Share on other sites
oToom

I'm assuming it is because this source is not complete.

Share this post


Link to post
Share on other sites
JellyFish666

Also how would i go about just using that happy hour script?

I check by using this

StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!")

you could add a few searches for certain keys words such as "Happy" , "Free Hour" , "Have Fun" just incase they change the text around.

I'm assuming it is because this source is not complete.

it should still work but the downloading part is not complete, also tell me the errors and ill fix it. Edited by JellyFish666

Share this post


Link to post
Share on other sites
oToom

I tried a few things to check for the happy hour, yet i get errors when running.

Share this post


Link to post
Share on other sites
JellyFish666

I tried a few things to check for the happy hour, yet i get errors when running.

well you have to tell me the errors in order for me to know whats wrong, but I think this should fix it may be, I changed the above script adding.

#include <GUIConstantsEx.au3>;not sure if this needs to be included
#include <WindowsConstants.au3>;not sure if this needs to be included

Share this post


Link to post
Share on other sites
oToom

Okay, as im new i think this is probably way out.

#include <IE.au3>

Global $oIE = _IECreateEmbedded()
$Link = InputBox("RS", "Enter RapidShare Link")
_IENavigate($oIE, $Link)
$Happy = _IEBodyReadText($oIE)
    If StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!") Then
       MsgBox("Happy Hour", "Happy hour is on!!!")
    Else
        MsgBox("Happy Hour", "Happy hours is not on at the moment.")
    EndIf

And the error is.

C:\Program Files\AutoIt3\Include\IE.au3 (286) : ==> The requested action with this object has failed.:

$o_object.navigate ($s_Url)

$o_object.navigate ($s_Url)^ ERROR

>Exit code: 1 Time: 20.212

Share this post


Link to post
Share on other sites
JellyFish666

Okay, as im new i think this is probably way out.

#include <IE.au3>

Global $oIE = _IECreateEmbedded()
$Link = InputBox("RS", "Enter RapidShare Link")
_IENavigate($oIE, $Link)
$Happy = _IEBodyReadText($oIE)
    If StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!") Then
       MsgBox("Happy Hour", "Happy hour is on!!!")
    Else
        MsgBox("Happy Hour", "Happy hours is not on at the moment.")
    EndIf

And the error is.

yep you did a good job of coding but this is a bit better and your message boxes are missing a tiny bit.

#include <IE.au3>

$Link = InputBox("RS", "Enter RapidShare Link") ;insert link 
$oIE = _IECreate($Link) ;create object
_IENavigate($oIE, $Link) ;go to rapidshare
_IELoadWait($oIE) ;wait for the page to load
$oButton = _IEGetObjByName($oIE, "dl.start" , 1) ;find the free button
_IEAction($oButton, "Click") ;click free button
_IELoadWait($oIE) ;wait for the page to load

$Happy = _IEBodyReadText($oIE) ;read text

If StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!") Then ;see if string is in the html 
MsgBox(0 , "Happy Hour", "Happy hour is on!!!") ;return sucess
Else
MsgBox(0 , "Happy Hour", "Happy hours is not on at the moment.") ;return fail
EndIf

also when your script went to rapidshare it was on the first page not the download page so you checking for "free hour" would always come back as a fail.

as for the error it's not my code that has the error it is the include I think I wasn't up to date or you might not be not sure...

Edited by JellyFish666

Share this post


Link to post
Share on other sites
oToom

Is there a way to implement it? Without having to open internet explorer?

Share this post


Link to post
Share on other sites
Uriziel01

Hi there. Really nice script ! :) I'll write somethink like that, with reading rapidshare codes from pictures and using only TCPSend() and TCPRecv(). I think I will release it in this summer :) I will definetly "copy" few ideas from your script :) Thx for sharing it with us ! :P


Share this post


Link to post
Share on other sites
JellyFish666

Is there a way to implement it? Without having to open internet explorer?

Yes, it's only using this

StringInStr($Happy , "The RapidShare Happy Hours are active right now. Have fun!")

so if you want to use that you'll have to read the html or something on the lines of that :)

or you could also silently open the internet and read if it is happy hours or not then close the browser after

replacing

$oIE = _IECreate($Link);create object

with this should make it silent

$oIE = _IECreate($Link , 0 , 0);create object
Edited by JellyFish666

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.