Jump to content

RapidShare

JellyFish666

By JellyFish666,
in AutoIt Example Scripts

 Share

Recommended Posts

JellyFish666 Universalist

JellyFish666

Posted
Posted (edited)

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
Link to comment
Share on other sites
JellyFish666 Universalist

JellyFish666

Posted
  • Author
Posted (edited)

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
Link to comment
Share on other sites
JellyFish666 Universalist

JellyFish666

Posted
  • Author
Posted

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
Link to comment
Share on other sites
oToom Seeker

oToom

Posted
Posted

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

Link to comment
Share on other sites
JellyFish666 Universalist

JellyFish666

Posted
  • Author
Posted (edited)

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
Link to comment
Share on other sites
Uriziel01 Universalist

Uriziel01

Posted
Posted

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

Link to comment
Share on other sites
JellyFish666 Universalist

JellyFish666

Posted
  • Author
Posted (edited)

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
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...