Ich weißnichtmehr weiter, das tut sich überhaupt nichts:
[autoit]
Func Example()
$ip = InputBox( "NekNET", "Bitte geben sie die Ip-Adresse des anderen Benutzers an.")
$port = Inputbox( "NekNET", "Bitte geben sie den Port des anderen Benutzers an, den dieser freigegeben hat.")
Local $ConnectedSocket, $szData
Local $ip = @IPAddress1
Local $port
TCPStartup()
$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($ip, $port)
If @error Then
MsgBox(4112, "Error", "Verbindung über TCP ist fehlgeschlagen, überprüfen sie die Angaben! " & @error)
Else
While 1
[/autoit][autoit][/autoit][autoit]$szData = InputBox("Datei", @LF & @LF & "Gib eine Datei ein die übertragen werden soll:")
[/autoit][autoit][/autoit][autoit]If @error Or $szData = "" Then ExitLoop
[/autoit][autoit][/autoit][autoit][/autoit][autoit]TCPSend($ConnectedSocket, $szData)
[/autoit][autoit][/autoit][autoit]WEnd
EndIf
EndFunc