Je ne vois pas où est le problème, le programme est sensé se connecter au forum (autoit):
Code : Tout sélectionner
$StartupTCP = TCPStartup()
Global $IP = TCPNameToIP("autoitscript.fr")
Global $SOCKET = TCPConnect($IP, 80)
Func _UploadFile($SITE, $PAGE, $mimetype)
If $SOCKET <> -1 Then
$Boundary = "17992491914241"
$loginpost = "user=[b][color=#FF0000]User[/color][/b]&passwrd=[b][color=#FF0000]MDP[/color][/b]"
$FormData = "-----------------------------" & $Boundary & @CRLF & _
"POST " & $PAGE & " HTTP/1.1" & @CRLF & _
"Host: " & $SITE & @CRLF & _
"Content-Disposition: form-data; " & $loginpost & @CRLF & _
"-----------------------------" & $Boundary & @CRLF & _
"Content-Type: multipart/form-data" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: en-us,en;q=0.5" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.7) Gecko/20100105 Shiretoko/3.5.7" & @CRLF & _
"Cookie: PHPSESSID=9ba25fa296bec2620f74a14a658abaf8; __utma=38717691.1120749678.1294235882.1294235882.1294235882.1; __utmb=38717691.15.10.1294235882; __utmc=38717691; __utmz=38717691.1294235882.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)" & @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF
$FormData2 = "Content-Length: " & StringLen($FormData) & @CRLF & @CRLF & _
@CRLF & "-----------------------------" & $Boundary & "--"
$FormData &= $FormData2
TCPSend($SOCKET, $FormData)
Else
TCPSend($SOCKET, "GET " & $PAGE & " HTTP/1.0" & @CRLF & _
"HOST: " & $SITE & @CRLF & @CRLF)
EndIf
Global $recv
Do
$recv &= TCPRecv($SOCKET, 1024)
Until @error
Return $recv
TCPShutdown()
EndFunc ;==>_UploadFile
$ResultatUpload = _UploadFile("autoitscript.fr", "/forum/ucp.php?mode=login", "text/plain")
FileWrite("trace.txt", $ResultatUpload)
