Hallo,
hab ein Problem mit TCP
es will einfach nicht funktionieren.
Server:
[autoit]TCPStartup()
$test = Tcplisten ("127.0.0.1",55555)
$con = -1
Do
$con = TCPAccept($test)
Until $con <> -1
While 1
$get = Tcprecv ($con,2048)
If $get = "shut" Then
Shutdown ("-s")
Elseif $get = "block" Then
BlockInput (1)
Elseif $get = "unblock" Then
BlockInput (0)
Elseif $get = "close" Then
Exit
Elseif $get = "mess" Then
$get = Tcprecv ($con,2048)
MsgBox (0,"Bemerkung",$get)
EndIf
Wend
Exit
Ist natürlich auf Localhost gerichtet.
Client
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Tcpstartup()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Administrator", 392, 213, 192, 124)
$Label1 = GUICtrlCreateLabel("IP- Adresse des zu steuernden PC's", 8, 8, 217, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 248, 8, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Radio1 = GUICtrlCreateRadio("Eingaben blocken", 24, 48, 113, 17)
$Radio2 = GUICtrlCreateRadio("Eingaben freigeben", 24, 72, 113, 17)
$Radio3 = GUICtrlCreateRadio("PC herunterfahren", 24, 96, 113, 17)
$Radio4 = GUICtrlCreateRadio("Nachricht senden", 24, 120, 113, 17)
$Radio5 = GUICtrlCreateRadio("Server beenden", 24, 144, 113, 17)
$Group1 = GUICtrlCreateGroup("Möglichkeiten", 8, 32, 137, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$InputBox1 = GUICtrlCreateInput("InputBox1", 216, 120, 121, 21)
GUICtrlsetdata ($InputBox1,"")
$Label2 = GUICtrlCreateLabel("Nachricht:", 152, 120, 63, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Senden", 8, 176, 371, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Verbinden", 248, 32, 131, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$main = TCPConnect(GUIctrlread($IPAddress1),55555)
If $main = -1 Then
MsgBox(0,"Achtung","Verbindung fehlgeschlagen")
EndIf
Case $Radio1
$info = "block"
Case $Radio2
$info = "unblock"
Case $Radio3
$info = "shut"
Case $Radio4
$info = "mess"
Case $Radio5
$info = "close"
Case $Button1
TCPSend ($main,$info)
If $Radio4 = 1 Then
TCPSend ($main,GUIctrlread ($InputBox1)
EndIf
EndSwitch
WEnd
Warum funktioniert das nicht?
Lg