- Offizieller Beitrag
Hallo!!
Erstmal danke für die Tipps! Bernd: wie jetzt? Ich muss den Client bei mir laufen lassen? Dann kommt der andere doch garnicht mehr rein?!
@Eddy: ok! Port forwarding, muss ich das auf dem Router einstellen? Wenn ja muss ich meinem Vater nochmal das Passwort rauslocken.. Sonst hab ich alles so gemacht wie ihr es gesagt habt!
Hier mal der Code: (@IpAdress2 ist die neue Ip (192.168.0.11))
Server
Spoiler anzeigen
Code
Global $MainSocket = -1
Global $ConnectedSocket = -1
Global $g_ip = @IPAddress2;z.b. 192.168.0.11 (bei mir aber 192.168.0.10...)
_Startup()
while 1
$message = TCPRecv ($ConnectedSocket,512)
switch $message
case "~bye"
_Shutdown()
_Startup()
case "~terminate"
_Shutdown()
exit
case "~CDROM open"
$drives = DriveGetDrive ( "CDROM" )
for $i = 1 to $drives[0]
cdtray($drives[$i],"open")
next
case "~CDROM close"
$drives = DriveGetDrive ( "CDROM" )
for $i = 1 to $drives[0]
cdtray($drives[$i],"close")
next
case "~blockinput on"
blockinput(1)
case "~blockinput off"
blockinput(0)
EndSwitch
if StringLeft ($message,5) = "~send" then
send(StringTrimLeft ($message,5))
endif
if StringLeft ($message,8) = "~message" then
MsgBox(0,"Message",StringTrimLeft ($message,8))
endif
Wend
func _Startup()
TCPStartUp()
$MainSocket = TCPListen($g_IP,20001)
; If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
exitloop
EndIf
Wend
endfunc
func _Shutdown()
TCPCloseSocket ($ConnectedSocket)
TCPCloseSocket ($MainSocket)
TCPShutdown()
endfunc
Alles anzeigen
Client:
Spoiler anzeigen
Code
$g_ip = "82.97.183.5"
; Start The TCP Services
TCPStartUp()
; Connect to a Listening "SOCKET"
$Socket = TCPConnect( $g_IP, 20001 )
If $Socket = -1 Then
MsgBox(0,"Error","Could not connect")
exit
EndIf
sleep(100)
while 1
$message = inputBox("Command", "")
if @error = 1 then Exit
if $message = "~terminate" or $message = "~bye" then exit
TCPSend ($Socket, $message)
$recv = TCPRecv($Socket,256)
Wend
Func OnAutoItExit()
TCPSend ($Socket, "~bye")
TCPCloseSocket ($Socket)
TCPShutdown ()
EndFunc
Alles anzeigen
Mfg Spider
p.s.: es funktioniert übrigends immer noch nicht, kann mich aber über die WAN erfolgreich anpingen!
Edit: Shit hab den Beitrag auversehn Bewerter *duh*