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
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
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:
Const $Port = 80
TCPStartup()
$Mainsocket = TCPListen(@IPAddress1, $Port)
If $Mainsocket = -1 Then
MsgBox(0, "Fehler", "Fehler beimn Starten des Servers")
EndIf
Do
$ConnectedSocket = TCPAccept($Mainsocket)
Until $ConnectedSocket <> -1
While 1
$Empfang = TCPRecv($ConnectedSocket, 1024)
If $Empfang = "Herunterfahren" Then
MsgBox(0, "", "AKTION")
EndIf
WEnd
Server:
#include <GUIConstantsEx.au3>
#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"
$Franziska = "Franziska-PC"
$Max = "Max-PC"
$Victoria = "Victoria-Comput"
$Mama = "Mama-PC"
$Port = 80
GUICtrlSetData ($StatusBenedikt, "Offline")
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)
CheckOnline ($Franziska, $StatusFranziska)
CheckOnline ($Max, $StatusMax)
CheckOnline ($Victoria, $StatusVictoria)
CheckOnline ($Mama, $StatusMama)
GUISetState (@SW_SHOW, $MainForm)
[/autoit] [autoit][/autoit] [autoit]While 1
$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
WEnd
Func CheckOnline($Name, $StatusName)
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