Hey ich habe probiert einen tcp server/ client zu machen es sollte ansich gehen , aber geht leider ned
vll wist ihr was da ned stimmt, ob das port forwarding ned passt oder im cod was falsch ist, vll kann der eine oder andere es bei sich selber ausprobieren ob es geht befehle zu schicken, bis jz kann man nur run und msg box befehle schicken aber die befehle kommen halt anscheinend ned an
mfg
black
Server
[autoit]#include<GUIConstants.au3>
$ServerIP = @IPAddress1
$Port = 33891
TCPStartup()
$MainSocket = TCPListen($ServerIP, $Port)
if $MainSocket = -1 Then Exit
$ConnectedSocket = -1
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
while 1
$recv = TCPRecv($ConnectedSocket, 2048)
if @error Then ExitLoop
if $recy <> "" Then
TrayTip("Incoming Command",$recv ,5)
_CommandToAction($recv)
EndIf
WEnd
if $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
[/autoit][autoit][/autoit][autoit]Func _CommandToAction($command)
$ar = StringSplit($command,"/")
Switch $ar[1]
case "Msg"
[/autoit][autoit][/autoit][autoit]MsgBox(0,$ar[2],$ar[3])
[/autoit][autoit][/autoit][autoit]Case "Run"
Run($ar[2])
EndSwitch
EndFunc
Client
[autoit]$ServerIP = @IPAddress1
$Port = 33891
TCPStartup ()
$ConnectedSocket = TCPConnect($ServerIP, $Port)
if @error Then
MsgBox(4112,"Error","TcpConnect Failed : " & @error)
Else
while 1
$Data = InputBox("Data send to the server","Pls enter Data :")
if @error or $Data = "" Then ExitLoop
TCPSend($ConnectedSocket , $Data)
if @error Then ExitLoop
WEnd
EndIf
[/autoit]