Hallo,
ich schreibe gerade ein kleines Tool für den Laptop meiner Eltern, welches diesen ermöglicht, den PC meiner kleinen Geschwister herunterzufahren.
Ich sags euch direkt.
Es wird kein Tool, mit dem ich meine Familie ärgern möchte.
Es soll halt nützlich sein.
Hier ist einmal der Server, der dann auf den Kinder PC's läuft.
Spoiler anzeigen
$Benedikt = "Benne-PC"
$Franziska = "Franziska-PC"
$Max = "Max-PC"
$Victoria = "Victoria-Comput"
$Mama = "Mama-PC"
$Port = "80"
TCPStartup()
$Mainsocket = TCPListen ("127.0.0.1", $Port)
If $Mainsocket = -1 Then
MsgBox (0, "Fehler", "Fehler beimn Starten des Servers")
EndIf
While 1
$Empfang = TCPRecv ($Mainsocket, 20)
If $Empfang = "Herunterfahren" Then
MsgBox (0, "", "AKTION")
EndIf
Sleep (10)
WEnd
Und hier der Server, der auf dem Laptop läuft:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#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
TCPStartup()
$Verbindung = TCPConnect (TCPNameToIP($Benedikt), $Port)
If $Verbindung = -1 Then
MsgBox (0, "Fehler", "Fehler bei Verbindung")
EndIf
TCPSend ($Verbindung, "Herunterfahren")
TCPShutdown()
$Verbindung = ""
EndSwitch
WEnd
Func CheckOnline($Name, $StatusName)
TCPStartup()
If TCPNameToIP($Name) <> "" Then
GUICtrlSetData ($StatusName, "Online")
GUICtrlSetColor ($StatusName, 0x00ff00)
EndIf
TCPShutdown()
EndFunc
Das Problem ist, das ich immer "Fehler bei Verbindung" bekomme.
Das Bedeutet, das bei $Verbindung -1 herausgekommen ist.
Ich finde leider keinen Fehler !
Kann mir jemand helfen?