Nabend Leute,
ich verzweifle gerade an einem Script welches über TCP derzeit nur Text im Netzwerk versenden soll. Ich bekomme immer einen Fehler bei der Verbindung. Habe schon verschiedene Ports ausprobiert. Btw. ich teste es mit meinem PC und meinem Notebook. Hier mal das komplette Script:
Spoiler anzeigen
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
GUICreate("Easy Lan Data Transfer", 250, 282, 192, 114)
GUICtrlCreateGroup("Informationen", 56, 8, 137, 57)
GUICtrlCreateLabel("Deine Netzwerk-IP lautet:", 64, 24, 125, 17)
GUICtrlCreateLabel(@IPAddress1, 64, 40, 121, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Datei senden", 8, 72, 233, 113)
$Input_File = GUICtrlCreateInput("", 16, 88, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button_Search = GUICtrlCreateButton("Durchsuchen...", 144, 88, 91, 25)
$Input_SendIP = GUICtrlCreateInput("IP", 16, 120, 217, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Button_Send = GUICtrlCreateButton("Senden", 16, 152, 219, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Datei empfangen", 8, 192, 233, 81)
$Input_ListenIP = GUICtrlCreateInput("IP", 16, 208, 217, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Button_Listen = GUICtrlCreateButton("Empfangen", 16, 240, 219, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Startup ###
TCPStartup()
OnAutoItExitRegister("_Exit")
#EndRegion ### END Startup ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Search
$SelectFile = FileOpenDialog("Datei zum Senden wählen",@ScriptDir,"Alle Dateien (*.*)")
GUICtrlSetData($Input_File,$SelectFile)
Case $Button_Send
$Socket = TCPConnect(GUICtrlRead($Input_SendIP),25565)
If $Socket = -1 Then
MsgBox(0,"Easy Lan Data Transfer","Es ist ein Fehler bei der Verbindung aufgetreten!")
EndIf
$SendedBytes = TCPSend($Socket,"Hi. Dieser Text wurde vom Client gesendet")
If $SendedBytes = -1 Then
MsgBox(0,"Easy Lan Data Transfer","Es ist ein Fehler beim Senden aufgetreten!")
EndIf
TCPCloseSocket($Socket)
Case $Button_Listen
$MainSocket = TCPListen(GUICtrlRead($Input_ListenIP),25565)
While 1
$AcceptedSocket = TCPAccept($MainSocket)
If $AcceptedSocket <> -1 Then
$ReceivedData = TCPRecv($AcceptedSocket,25565)
MsgBox(0,"Test",$ReceivedData)
TCPCloseSocket($AcceptedSocket)
EndIf
WEnd
EndSwitch
WEnd
Func _Exit()
TCPShutdown()
Exit
EndFunc
Vielleicht könnt ihr mir ja sagen woran es liegt? Ich hab mit TCP noch nie was zum Laufen bekommen, aber ich will das jetzt endlich mal schaffen
Danke schonmal im Voraus!