Dieser fehler sollte jeden autoit porgrammierer wohl bekannt vorkommen.....
Aber in meinem fall ist er nicht erklärbar den in meiner virtuellen xp umgebung sogar mit dem server der zum programm komuniziert läuft es 1a
aber auf meinem 2003 server 64bit kommt der memory fehler.... das script sich meiner meinung nach bugfrei... aber ich hatte den fehler auch nicht wirklich laos kann ich nicht sicher sagen ob nicht doch mein script das hervorruft..... aber vlt findet ihr was darin.
[autoit]TCPStartUp()
#include<String.au3>
$socket = TCPConnect( @IPAddress1,4660)
;83.169.10.46
If @error Then
MsgBox(0,"connect",""&@error)
EndIf
$hexstring ="0x396266303064326434353435633061336332376139613131326232646565623100"
TCPSend($socket,$hexstring)
If @error Then
MsgBox(0,"Send",""&@error)
EndIf
Global $Paketnummer = 0 ,$Playeraufruf = 0
While 1
$Send = TCPRecv ( $socket, 1000000000,1)
If $Send <> "" Then
If $Send = "0x01" Then
$Paketnummer = $Paketnummer + 1
$Send_Real_HEX = StringSplit($Send,"x")
$file = FileOpen("hex.txt",1)
FileWrite($file,$Paketnummer&" Hex : "&$Send_Real_HEX[2])
FileWrite($file,""&@CRLF)
FileClose($file)
ElseIf $Send = "0x00" Then
$Paketnummer = $Paketnummer + 1
$Send_Real_HEX = StringSplit($Send,"x")
$file = FileOpen("hex.txt",1)
FileWrite($file,$Paketnummer&" Hex : "&$Send_Real_HEX[2])
FileWrite($file,""&@CRLF)
FileClose($file)
Else
$Paketnummer = $Paketnummer + 1
$Send_Real_HEX = StringSplit($Send,"x")
$string_to_file =_HexToString($Send_Real_HEX[2])
$file = FileOpen("hex.txt",1)
FileWrite($file,$Paketnummer&" Hex : "&$Send_Real_HEX[2])
FileWrite($file,""&@CRLF)
FileClose($file)
$file = FileOpen("string.txt",1)
FileWrite($file,$Paketnummer&" String : "&$string_to_file)
FileWrite($file,""&@CRLF)
FileClose($file)
EndIf
EndIf
If $Playeraufruf >= 1000 Then
TCPSend($socket,"0x01092F706C617965727300")
If @error Then
MsgBox(0,"Send",""&@error)
EndIf
$Playeraufruf = 0
Endif
$Playeraufruf = $Playeraufruf + 1
Sleep(1)
WEnd
MFG MAtthias