Bei dem Skript in dem ersten Post ist die
IP 127.0.0.1 nicht richtig. Das heißt, dass
der was von dem PC aus empfangen würde. 
Den Port solltest du vielleicht nicht in "" packen
und 31758 nehmen. So klappt es bei meinem
Chat zumindest. 
MfG
qixx
Kleines TCP Problem
-
- [ gelöst ]
-
PokerFace -
9. Januar 2010 um 16:58 -
Geschlossen -
Erledigt
-
-
C:\Users\Henny>net use \\hendrik2\ipc$ aws/user:Henny
Der Befehl wurde erfolgreich ausgeführt.C:\Users\Henny>shutdown -s -m \\Hendrik2
Hendrik2: Zugriff verweigert(5)Habe jetzt berechtigung auf Jeder gesetzt, geht aber immernochnet, habe mich auch mal ne user adminitrator probiert, ging aber auch net
-
So läufts bei mir:
Client:
Spoiler anzeigen
[autoit]Const $Port = 80
[/autoit] [autoit][/autoit] [autoit]
TCPStartup()$Mainsocket = TCPListen(@IPAddress1, $Port)
[/autoit] [autoit][/autoit] [autoit]
If $Mainsocket = -1 Then
MsgBox(0, "Fehler", "Fehler beimn Starten des Servers")
EndIfDo
[/autoit] [autoit][/autoit] [autoit]
$ConnectedSocket = TCPAccept($Mainsocket)
Until $ConnectedSocket <> -1While 1
[/autoit]
$Empfang = TCPRecv($ConnectedSocket, 1024)
If $Empfang = "Herunterfahren" Then
MsgBox(0, "", "AKTION")
EndIf
WEndServer:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
TCPStartup()
#Region ### START Koda GUI section ###
$MainForm = GUICreate("Kontrollcenter", 538, 574, 756, 185)
$LabelBenedikt = GUICtrlCreateLabel("Benedikt", 40, 32, 129, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$LabelFranziska = GUICtrlCreateLabel("Franziska", 40, 72, 140, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$LabelMax = GUICtrlCreateLabel("Max", 40, 112, 66, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$LabelVictoria = GUICtrlCreateLabel("Victoria", 40, 152, 118, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$LabelMama = GUICtrlCreateLabel("Mama", 40, 192, 90, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$StatusBenedikt = GUICtrlCreateLabel("Offline", 216, 32, 103, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$StatusFranziska = GUICtrlCreateLabel("Offline", 216, 72, 103, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$StatusMax = GUICtrlCreateLabel("Offline", 216, 112, 103, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$StatusVictoria = GUICtrlCreateLabel("Offline", 216, 152, 103, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$StatusMama = GUICtrlCreateLabel("Offline", 216, 192, 103, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Bell MT")
$AktionVictoria = GUICtrlCreateButton("Herunterfahren", 360, 152, 145, 33, $WS_GROUP)
$AktionBenedikt = GUICtrlCreateButton("Herunterfahren", 360, 32, 145, 33, $WS_GROUP)
$AktionMax = GUICtrlCreateButton("Herunterfahren", 360, 112, 145, 33, $WS_GROUP)
$AktionFranziska = GUICtrlCreateButton("Herunterfahren", 360, 72, 145, 33, $WS_GROUP)
$AktionMama = GUICtrlCreateButton("Herunterfahren", 360, 192, 145, 33, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###MsgBox (0, "Kontrollcenter", "Nach einem Klick auf -Ok- werden die aktiven Computer gesucht. Dies kann einen Moment dauern.")
[/autoit] [autoit][/autoit] [autoit]$Benedikt = "Benne-PC"
[/autoit] [autoit][/autoit] [autoit]
$Franziska = "Franziska-PC"
$Max = "Max-PC"
$Victoria = "Victoria-Comput"
$Mama = "Mama-PC"
$Port = 80GUICtrlSetData ($StatusBenedikt, "Offline")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor($StatusBenedikt, 0xff0000)
GUICtrlSetData ($StatusFranziska, "Offline")
GUICtrlSetColor ($StatusFranziska, 0xff0000)
GUICtrlSetData ($StatusMax, "Offline")
GUICtrlSetColor ($StatusMax, 0xff0000)
GUICtrlSetData ($StatusVictoria, "Offline")
GUICtrlSetColor ($StatusVictoria, 0xff0000)
GUICtrlSetData ($StatusMama, "Offline")
GUICtrlSetColor ($StatusMama, 0xff0000)CheckOnline ($Benedikt, $StatusBenedikt)
[/autoit] [autoit][/autoit] [autoit]
CheckOnline ($Franziska, $StatusFranziska)
CheckOnline ($Max, $StatusMax)
CheckOnline ($Victoria, $StatusVictoria)
CheckOnline ($Mama, $StatusMama)GUISetState (@SW_SHOW, $MainForm)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $AktionBenedikt
$Verbindung = TCPConnect (TCPNameToIP($Benedikt), $Port)
If $Verbindung = -1 Then
MsgBox (0, "Fehler", "Fehler bei Verbindung")
EndIf
TCPSend ($Verbindung, "Herunterfahren")
TCPCloseSocket($Verbindung)
$Verbindung = ""
EndSwitch
WEndFunc CheckOnline($Name, $StatusName)
[/autoit]
If TCPNameToIP($Name) <> "" Then
GUICtrlSetData ($StatusName, "Online")
GUICtrlSetColor ($StatusName, 0x00ff00)
EndIf
EndFunc -
Ist ja geil.
Blubbstars Variante funktioniert. !
Ich weiß nicht was ich jetzt falsch gemacht hatte !Danke
-
War der Port in "" das Problem?
MfG
qixx -
Nein, geht auch mit "". Glaube lag an seinen häufigen TCPStartup()'s etc.
-
Oder das du den Port als Const deklariert hast
Aber es läuft !
Vielen Dank nochmal