Jump to content
Sign in to follow this  
DARKwind

Upload File To Rapidshare

Recommended Posts

DARKwind

Hello ,

I wrote a small script that can upload a file to Rapidshare.com and save the Download link and Delete link in text.txt file...

anyways there is a lot of bugs :

1-My Antivirus (kaspersky 8) detect the process of uploading as suspicion activity.... specially if u make internet Explorer invisible .

2- Some time it give you an Error "Please Choose a file"

any ideas ...

#NoTrayIcon
#include <IE.au3>
#include <String.au3>
#include <array.au3>


Opt("WinTitleMatchMode", 1)
$var = FileOpenDialog("Choose a File", @DesktopDir, "All (*.*)")
$oIE = _IECreate ("http://www.rapidshare.com", 0, 1, 1, 0)

If WinExists("RapidShare") Then
$oSubmi = _IEGetObjByName ($oIE, "filecontent")
$hwnd = _IEPropertyGet($oIE, "hwnd")
BlockInput(1)
$oSubmi.focus
ControlSend($hwnd, "", "Internet Explorer_Server1", $var)
ControlSend($hwnd, "", "Internet Explorer_Server1", "{TAB 2}")
BlockInput(0)
_IEFormImageClick ($oIE, "upload_file.jpg", "src")
_IELoadWait ($oIE)
EndIf

Sleep(5000)

while 1
$url = _IEPropertyGet ($oIE, "locationurl")
$result = StringInStr($url, "upload.cgi")
if $result > 1 then ExitLoop
sleep(1000)
Wend

$sText = _IEBodyReadText ($oIE)
$aArray = _StringBetween($sText, 'Upload | Download link', 'Create Collector')
$file = FileOpen("test.txt", 2)
FileWrite($file, $aArray[0])
FileClose($file)

_IEQuit ($oIE)
exit
Edited by DARKwind

Share this post


Link to post
Share on other sites
DARKwind

am trying to make portable software that upload file to multiple sites.... but when i used it in another computer they thought that i am hacking them ^_^;)

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  

×