AutoIT File Uploader

[hiho]

Hi guys,

I'm trying to write a script which uploads files to a server. Here's my code :

$tirenca = "-----------------------------"
$torrent = "C:\Users\???\Desktop\1.txt"
$boundary = $tirenca & Random(1000000000, 900000000000000)
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", "http://myfirstsite123.net16.net/dd/uploader.php", False)
$oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
$oHTTP.SetRequestHeader("Accept-Encoding", "gzip, deflate")
;~ $oHTTP.SetRequestHeader("Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
$oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:19.0) Gecko/20100101 Firefox/19.0")
;~ $oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" & $boundary)
$fileopen = FileOpen($torrent, 16)
$fileread = ''
While 1
$t = FileRead($fileopen, 1)
If @error Then ExitLoop
If $t <> 0x00 Then $fileread &= BinaryToString($t)
WEnd
FileClose($fileopen)
$data = $tirenca & $boundary & @CRLF & 'Content-Disposition: form-data; name="my_file"; filename="1.txt"' & @CRLF & 'Content-Type: text/plain' & @CRLF & @CRLF & $fileread & @CRLF & $tirenca & $boundary & @CRLF & 'Content-Disposition: form-data; name="upload"' & @CRLF & @CRLF & "Upload" & @CRLF & $tirenca & $boundary & "--"
$datasize = StringLen($data)
ConsoleWrite($data & @CRLF)
$oHTTP.SetRequestHeader("Host", "myfirstsite123.net16.net")
$oHTTP.SetRequestHeader("Content-Length", $datasize)
;~ $oHTTP.SetRequestHeader("Pragma", "no-cache")
$oHTTP.Send($data); & @CRLF & $data2)
$oReceived = $oHTTP.ResponseText
ConsoleWrite($oReceived)
$oStatusCode2 = $oHTTP.Status
ConsoleWrite($oStatusCode2)

But I want to upload .torrents. => if I change 'Content-Type: text/plain' to application/x-bittorrent, the upload fails. I would appriciete it if some one helps me.

I can provide the source code of the php files if needed.

Edited May 2, 2013 by hiho

[Melba23]

hiho,

Rather than reporting the thread and asking for it to be deleted because "I found a solution" - why not post the solution to help others.

M23

[hiho]

I was wrong. It was uploaded from me, not from the script.