Da du die UDF nicht gepostet hast kann man nur Raten. Wenn es unter Win 7 ging und es unter Win XP nicht geht, dann werden in der UDF wohl "Sachen" verwendet die unter Win XP nicht existieren.
WebTcp ist keine Standart-UDF von Autoit von daher bringt es nichts wenn man die UDF nicht hat ;).
Dann frag doch in dem Forum nach, wo es Veröffentlicht wurde ?
Dann schreibt halt gleich gescheit hin mit UDF, Beispielskript und auch einer richtigen Fehlerbeschreibung oder verteil Glaskugeln ;).
Naja also wenn es unter Win7 funktioniert hat, wird es wohl daran liegen :
[autoit]_AutoItObject_AddProperty($oCookies, "Key", $ELSCOPE_PUBLIC, ObjCreate("System.Collections.ArrayList"))
[/autoit]Ist dies wohl unter XP nicht verfügbar
Also wenn das die WebTCP.au3 ist die du verwendest, dann bricht die schon an folgenden Zeilen ab:
"$hFile = FileOpen(@TempDir & '\body')" weil hier schlicht FileOpen mit dem fehlenden Parameter mode aufgerufen wird.
Wird eohl eher mehr arbeit die ganze UDF zu überarbeiten, als das ganze selber per TCP zu machen, hab da noch ne sehr abgespeckte Version rumliegen
Indem du .net Framework 4 installierst, da sollte es gehen vorrausgesetzt das FileOpen wurde berichtigt.
Wenn nicht, hier ne kleine Funktion :
Func _TCP_Send_Request($sTyp, $sHost, $sPage, $sReferer = "", $sCookie = "", $sPost = "", $bWontReturn = 0, $MaxTime = 10000)
;; >> Autor Dater
Local $sPacket, $Recv, $aCookies, $aRecv, $sHeader, $sBody, $aReturn[4], $sCookies, $iContentLength, $bGZIP = False
$Socket = TCPConnect(TCPNameToIP($sHost), 80)
If $sReferer <> "" And Not StringInStr($sReferer, 'http://') Then $sReferer = 'http://' & $sReferer
Switch $sTyp
Case "GET"
$sPacket = "GET " & $sPage & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF
If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
;$sPacket &= "Cache-Control: max-age=0" & @CRLF & @CRLF
$sPacket &= @CRLF
Case "POST"
$sPacket = "POST " & $sPage & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF
If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
$sPacket &= "Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
Case Else
Return SetError(1, "", "0")
EndSwitch
TCPSend($Socket, $sPacket)
If Not $bWontReturn Then
#Region Header
;Header epfangen
$sRecv = ""
Local $Timeout_Timer = TimerInit()
Do
$sRecv &= StringTrimLeft(TCPRecv($Socket, 1024, 1), 2)
$iHeaderEnde = StringInStr($sRecv, StringTrimLeft(StringToBinary(@CRLF & @CRLF), 2))
Until ($iHeaderEnde > 0) Or (TimerDiff($Timeout_Timer) > $MaxTime)
;Header Trimmen und in String umwandeln
$sHeader = BinaryToString("0x" & StringLeft($sRecv, $iHeaderEnde + 1 + 6))
;Header vom Recv abtrennen
$sRecv = StringTrimLeft($sRecv, $iHeaderEnde + 1 + 6)
;~ ConsoleWrite($sHeader & @CRLF)
;Check if gzip
If StringInStr($sHeader, 'Content-Encoding: gzip') Then $bGZIP = True
Local $aContLen = StringRegExp($sHeader, 'Content-Length: (\d+)', 1)
If Not @error Then $iContentLength = $aContLen[0]
;Get Cookies
If StringInStr($sHeader, "Set-Cookie: ") Then
$aCookies = StringRegExp($sHeader, 'Set-Cookie: ([^;]+)', 3)
For $i = 0 To UBound($aCookies)-1
$sCookies &= $aCookies[$i] & ";"
Next
$aReturn[2] = StringTrimRight($sCookies, 1)
EndIf
$aReturn[0] = $sHeader
;ConsoleWrite($aReturn[0] & @CRLF)
;Get location
If StringInStr($sHeader, "Location: ") Then
$aLocation = StringRegExp($sHeader, 'Location: (.+)', 3)
$aReturn[3] = StringStripWS (StringStripCR ($aLocation[0]),4)
EndIf
#EndRegion Header
#Region Body
$Timeout_Timer = TimerInit()
;Body empfangen
;======================================================================================
;Teile übernommen aus der UDF WebTCP von AMrK(Autoibot.de) und etwas abgeändert.
;http://www.autoitbot.de/coding-bereich…-s/3828-webtcp/
;=======================================================================================
If $iContentLength <> "" Then
;Body über conten len empfangen
While (StringLen($sRecv) / 2) < $iContentLength
$sRecv &= StringTrimLeft(TCPRecv($Socket, 1024, 1), 2)
If TimerDiff($Timeout_Timer) > $MaxTime Then ExitLoop
WEnd
$sRecv = "0x" & $sRecv
$sRecv = BinaryToString($sRecv)
Else
Local $TT = TimerInit()
$sRecv = BinaryToString("0x" & $sRecv)
While Not StringInStr($sRecv, @CRLF)
$sRecv &= TCPRecv($Socket, 256)
If TimerDiff($TT) > $MaxTime Then ExitLoop
WEnd
If StringLeft(StringLeft($sRecv, StringInStr($sRecv, @CRLF) - 1), 2) = "0x" Then
$iPartLaenge = Dec(StringTrimLeft(StringLeft($sRecv, StringInStr($sRecv, @CRLF) - 1), 2))
Else
$iPartLaenge = Dec(StringLeft($sRecv, StringInStr($sRecv, @CRLF) - 1))
EndIf
$sRecv = StringTrimLeft($sRecv, StringInStr($sRecv, @CRLF) + 1)
$iGesamtLaenge = 0
While $iPartLaenge > 0
$iGesamtLaenge += $iPartLaenge
While StringLen($sRecv) < $iGesamtLaenge
$sRecv &= TCPRecv($Socket, $iGesamtLaenge - StringLen($sRecv))
If TimerDiff($TT) > $MaxTime Then ExitLoop
WEnd
If StringLen($sRecv) > $iGesamtLaenge Then
ConsoleWrite('- Recv ist zu groß ' & @CRLF)
$sTempRecv = $sRecv
$sRecv = StringLeft($sTempRecv, $iGesamtLaenge)
$sTempRecv = StringTrimLeft($sTempRecv, $iGesamtLaenge + 2)
While Not StringInStr($sTempRecv, @CRLF)
$sTempRecv &= TCPRecv($Socket, 1)
If TimerDiff($TT) > $MaxTime Then ExitLoop
WEnd
$iPartLaenge = Dec(StringLeft($sTempRecv, StringInStr($sTempRecv, @CRLF) - 1))
$sTempRecv = StringTrimLeft($sTempRecv, StringInStr($sTempRecv, @CRLF) + 3)
$sRecv &= $sTempRecv
ConsoleWrite('- Recv wurde vom HexCode getrennt ' & @CRLF)
Else
$iLaengeRecv = ""
Do
$iLaengeRecv &= TCPRecv($Socket, 1)
If TimerDiff($TT) > $MaxTime Then ExitLoop
Until StringInStr($iLaengeRecv, @CRLF)
;~ ConsoleWrite('- Body wurde komplett Recvied ' & @CRLF)
$iLaengeRecv = ""
Do
$iLaengeRecv &= TCPRecv($Socket, 1)
If TimerDiff($TT) > $MaxTime Then ExitLoop
Until StringInStr($iLaengeRecv, @CRLF)
;~ ConsoleWrite('- Hex wurde komplett Recvied ' & @CRLF)
If StringLeft(StringLeft($iLaengeRecv, StringInStr($iLaengeRecv, @CRLF) - 1), 2) = "0x" Then
$iPartLaenge = Dec(StringTrimLeft(StringLeft($iLaengeRecv, StringInStr($iLaengeRecv, @CRLF) - 1), 2))
Else
$iPartLaenge = Dec(StringLeft($iLaengeRecv, StringInStr($iLaengeRecv, @CRLF) - 1))
EndIf
EndIf
If TimerDiff($TT) > $MaxTime Then ExitLoop
WEnd
;~ ConsoleWrite($sRecv & @CRLF)
EndIf
If $bGZIP Then
[/autoit] [autoit][/autoit] [autoit]EndIf
$aReturn[1] = $sRecv
If TimerDiff($Timeout_Timer) > $MaxTime Then ConsoleWrite("Zeitüberschreitung.." & @CRLF)
#EndRegion Body
Return $aReturn
EndIf
TCPCloseSocket($Socket)
EndFunc ;==>_TCP_Send_Request
mfg
D:\Programme\AutoIt3\Include\Webtcp.au3 (283) : ==> Variable must be of type "Object".:
While ($iIndex <= ($oSelf.Key.Count - 1)) And (Not $bGefunden)
While ($iIndex <= ($oSelf.Key^ ERROR
[autoit]_AutoItObject_AddProperty($oCookies, "Key", $ELSCOPE_PUBLIC, ObjCreate("System.Collections.ArrayList"))
[/autoit]
Der Grund ist wie schon gesagt, dass das .NET-Framework fehlt. Auf jeden Fall Version 3 sollte glaube ich installiert sein. Dann sollte der Code auch auf XP laufen.
Warum nimmst du eigentlich nicht entweder das WinHTTP-Objekt oder die WinHTTP-UDF? Da wurde schon alles wichtige von MS programmiert und du musst nicht mehr so viel machen. Außerdem ist ab WinXP aufwärts garantiert, dass das Programm läuft wenn es richtig geschrieben wurde.
meine ganzen scripts wurden in webtcp geschrieben und möcht auch dabei bleiben 
hab .net framework 4
"$hFile = FileOpen(@TempDir & '\body')" weil hier schlicht FileOpen mit dem fehlenden Parameter mode aufgerufen wird.
Indem du .net Framework 4 installierst, da sollte es gehen vorrausgesetzt das FileOpen wurde berichtigt.
chip, der Aufruf ist korrekt:
Öffnet eine Textdatei zum Lesen oder Schreiben.
FileOpen ( "filename" [, mode ] )
....
mode [optional] Modus in dem die Datei geöffnet werden soll.
Kann auch eine Kombination aus folgenden sein:
0 = Lesemodus (Standard)
....
mfg autoBert
hilft alles nichts, jemand eine andere lösung? 
chip, der Aufruf ist korrekt:mfg autoBert
Mh dann hab ich wohl eine veraltete Autoit-Version noch installier weil bei mir ist mode nicht optional, auch nicht in der Hilfe:
Öffnet eine Textdatei zum Lesen oder Schreiben.
FileOpen ( "filename", mode )
