Upload File To Rapidshare

[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 ...

expandcollapse popup

#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 May 5, 2009 by DARKwind

[Bert]

ummm, change antivirus, or mark the AutoIt stuff as safe to the antivirus...

[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