hallo,
ich hab nen kleines script gebastelt um daten per http post zu senden, jedoch bekomme ich vom server immer einen 411 error... vllt kann mir wer helfen...
mfg dennis
$test = InetSend("http://www.google.de", "q=1")
MsgBox(0,"Info", ""&$test )
Func InetSend($url, $send)
$url_arr1 = StringSplit($url, "/")
$url_arr2 = StringSplit($url_arr1[3], ".")
$url_arr3 = StringSplit($url, $url_arr1[1]&"//"&$url_arr1[3]&"/")
$path = $url_arr3[2]
$count = UBound($url_arr2, 1)
If $url_arr1[1] = "http:" Then $port = 80
If $url_arr1[1] = "https:" Then $port = 443
If $count == 4 Then $host = $url_arr2[2]&"."&$url_arr2[3]
If $count <> 4 Then $host = $url_arr2[1]&"."&$url_arr2[2]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TCPStartUp()
$ip = TCPNameToIP($host)
$connect = TCPConnect( $ip, $port)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$header= "POST " & $path & " HTTP/1.1" & @CRLF
$header=$header& "Host: " & $host & @CRLF
$header=$header& "User-Agent: AutoIt v3" & @CRLF
$header=$header& "Content-Type: application/x-www-form-urlencoded" & @CRLF
$header=$header& "Content-Length: " & StringLen($send) & @CRLF
$header=$header& @CRLF
$header=$header& $send
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$tcc = TCPSend($connect, $header)
While 1
$sRecv = TCPRecv($connect, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($connect, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If @error Then Return SetError(7,0,0)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Return $sRecv
EndFunc