JellyFish666 Posted May 29, 2008 Posted May 29, 2008 (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 expandcollapse popup#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 May 29, 2008 by JellyFish666
JellyFish666 Posted May 29, 2008 Author Posted May 29, 2008 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
oToom Posted May 29, 2008 Posted May 29, 2008 Also how would i go about just using that happy hour script?
GHOSTSKIKDA Posted May 29, 2008 Posted May 29, 2008 Hi !!! I can't execute this program Help me Plz Thanks ... [center]I LOVE ALGERIA .... ;-)[/center]
oToom Posted May 29, 2008 Posted May 29, 2008 I'm assuming it is because this source is not complete.
JellyFish666 Posted May 29, 2008 Author Posted May 29, 2008 (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 May 29, 2008 by JellyFish666
oToom Posted May 29, 2008 Posted May 29, 2008 I tried a few things to check for the happy hour, yet i get errors when running.
JellyFish666 Posted May 29, 2008 Author Posted May 29, 2008 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
oToom Posted May 29, 2008 Posted May 29, 2008 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
JellyFish666 Posted May 29, 2008 Author Posted May 29, 2008 (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 May 29, 2008 by JellyFish666
oToom Posted May 29, 2008 Posted May 29, 2008 Is there a way to implement it? Without having to open internet explorer?
Uriziel01 Posted May 29, 2008 Posted May 29, 2008 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 !
JellyFish666 Posted May 29, 2008 Author Posted May 29, 2008 (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 May 29, 2008 by JellyFish666
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now