[Name gesucht] PC von anderen Rechner aus hoch und runterfahren

;Kompilieren und auf dem Clientrechner ausführen,
;vorher den Serverprozess auf dem Empfängerrechner starten
;der Client sucht sich den Server selbstständig aus der Liste der verbundenen Rechner im lokalen Netzwerk
;Protokoll: der Client schickt an den Server eine Statusanfrage, erst wenn der Server bereit ist, schickt der Client seine Nachricht
; Wenn der Server nicht innerhalb von 500 ms antwortet, wird der nächste Rechner in der Liste angefragt
;
;Andy @ AutoIt.de

TCPStartup()

Local $rechner = _NetServerEnum() ;alle Rechner im Netz auflisten vgl. http://www.autoit.de/index.php?page…82476#post82476
Local $Port = 33891 ;Portnummer
Dim $serverconnect[UBound($rechner)] ;kontrolle, ob Verbindung zum Server besteht
Dim $connectionenabled[UBound($rechner)] ;Flag, welches von adlibenable/adlibregister benutzt wird um die poll-schleife zu verlassen
Dim $Empfaenger_IP[UBound($rechner)] ;..wie der name schon sagt, die IP´s der Server
Dim $ConnectedSocket[UBound($rechner)] ;s.o.
For $i = 1 To UBound($rechner) - 1 ;Initialisieren...
$serverconnect[$i] = 0
$Empfaenger_IP[$i] = 0
$ConnectedSocket[$i] = 0
$connectionenabled[$i] = 0
Next

While 1
;alle rechner im netz suchen, auf denen ein serverprozess auf port 33891 läuft und dort die Nachricht hinschicken
For $i = 1 To UBound($rechner) - 1 ;alle Rechner im Netz
;If @ComputerName <> $rechner[$i] Then ;nicht an den eigenen rechner schicken
If $serverconnect[$i] = 0 Then ;wenn noch nicht zu diesem server verbunden ist,
$Empfaenger_IP[$i] = TCPNameToIP($rechner[$i]) ;IP-Adresse des Servers rausfinden
$ConnectedSocket[$i] = TCPConnect($Empfaenger_IP[$i], $Port) ;TCP-Connect zum Server
EndIf
If @error <> 1 And $ConnectedSocket[$i] <> -1 Then ;wenn mit dem Server verbunden
AdlibRegister("_connect", 5000) ;wenn nach 500ms der Server nicht geantwortet hat, Funktion aufrufen, so dass do/until beendet wird (server offline)
Do ;warten, bis der Server eine Info geschickt hat, daß er bereit ist...
$recv = TCPRecv($ConnectedSocket[$i], 2048) ;Nachricht vom Server empfangen
Sleep(10) ;Prozessor entlasten
Until $recv <> "" Or $connectionenabled[$i] = 1 ;server hat connect bestätigt oder adlib hat nachricht geschickt, dass server offline
;ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $connectionenabled[$i] = ' & $connectionenabled[$i] & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
If $recv <> "" Then ;wenn server eine nachricht geschickt hat, dass er bereit ist, dann Daten an Server schicken
AdlibUnRegister("_connect"); adlib abschalten
$text = InputBox("TCP-Client", "Bitte geben sie den Text ein, der zum Serverprozess auf " & $rechner[$i] & " (" & TCPNameToIP($rechner[$i]) & ") gesendet werden soll")
If $text <> "" Then TCPSend($ConnectedSocket[$i], $text) ;nachricht zum Server schicken
Sleep(2000);warten bis die msgbox beim server verschwunden ist
$serverconnect[$i] = 1 ;Daten kamen vom Server, also besteht eine Verbindung
Else ;keine Daten vom Server bekommen, verbindung zum server abgebrochen
AdlibUnRegister("_connect"); adlib abschalten
MsgBox(0, 0, "Server offline, nächsten Server suchen")
$connectionenabled[$i] = 0 ;flag für do/until setzen
$serverconnect[$i] = 0 ;verbindung zum server abgebrochen
Sleep(2000) ;zwei Sekunden warten, dann nochmal Connectversuch zum Server (Server stellt in 0,5 sec fest, ob ein Connect mit dem client besteht)
EndIf
EndIf
Next
WEnd
TCPShutdown()

Func _NetServerEnum($iSrvType = -1, $sDomain = '') ;http://www.autoit.de/index.php?page…82476#post82476
Local $uBufPtr = DllStructCreate("ptr;int;int"), $res[1] = [0], $i
Local $uRecord = DllStructCreate("dword;ptr"), $iRecLen = DllStructGetSize($uRecord)
Local $uString = DllStructCreate("char[16]")
Local $uDomain = DllStructCreate("byte[32]"), $pDomain = 0
If Not ($sDomain = '' Or $sDomain = '*') Then
DllStructSetData($uDomain, 1, StringToBinary($sDomain, 2))
$pDomain = DllStructGetPtr($uDomain)
EndIf
Local $ret = DllCall("netapi32.dll", "int", "NetServerEnum", _
"ptr", 0, "int", 100, _
"ptr", DllStructGetPtr($uBufPtr, 1), "int", -1, _
"ptr", DllStructGetPtr($uBufPtr, 2), _
"ptr", DllStructGetPtr($uBufPtr, 3), _
"int", $iSrvType, "ptr", $pDomain, "int", 0)
If $ret[0] Then Return SetError(1, $ret[0], '')
Local $res[DllStructGetData($uBufPtr, 3) + 1] = [DllStructGetData($uBufPtr, 3)]
For $i = 1 To DllStructGetData($uBufPtr, 3)
Local $uRecord = DllStructCreate("dword;ptr", DllStructGetData($uBufPtr, 1) + ($i - 1) * $iRecLen)
Local $sNBName = DllStructCreate("byte[32]", DllStructGetData($uRecord, 2))
DllStructSetData($uString, 1, BinaryToString(DllStructGetData($sNBName, 1), 2))
$res[$i] = DllStructGetData($uString, 1)
Next
$ret = DllCall("netapi32.dll", "int", "NetApiBufferFree", "ptr", DllStructGetData($uBufPtr, 1))
Return $res
EndFunc ;==>_NetServerEnum

Func _connect() ;adlib
If $connectionenabled[$i] = 0 Then $connectionenabled[$i] = 1
EndFunc ;==>_connect

;Serverprozess auf dem Empfangsrechner starten

Global $ConnectedSocket

TCPStartup()

$MainSocket = TCPListen(@IPAddress1, 33891, 100)

While 1
While 1 ;solange warten, bis ein Client eine Verbindung aufbaut
$ConnectedSocket = TCPAccept($MainSocket)
ToolTip("Server empfangsbereit...")
If $ConnectedSocket <> -1 Then ExitLoop ;wenn daten empfangen...
Sleep(10)
WEnd
ConsoleWrite("client online!")
ToolTip("")
MsgBox(0, "TCP-Server", "Server hat Verbindung zum Client aufgebaut", 1)
$connectionenabled = 1
While 1 ;solange Verbindung zum Client besteht...

$anz = TCPSend($ConnectedSocket, "1") ;info an den client senden, dass der server bereit ist
If $anz <> 0 Or $connectionenabled = 1 Then ;nur, wenn Daten erfolgreich an den Client gesendet wurden
AdlibRegister("_connect", 5000) ;nach 5 Sekunden nachschauen, ob der client noch online ist
Do ;warten auf die Nachricht vom Client
$recv = TCPRecv($ConnectedSocket, 2048)
Sleep(10)
Until $recv <> "" Or $connectionenabled = 0 ;erst weitermachen , wenn eine Nachricht vom Client oder der Adlibfunktion kommt

AdlibUnRegister("_connect") ;adlib ausschalten
Else ;wenn keine daten an den Client gesendet wurden, dann ist der Client offline
ConsoleWrite("client offline!")
ExitLoop ;wieder auf einen Client warten
EndIf
If $recv <> "" Then ;wenn daten vom Client eingetroffen sind....
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $recv = ' & $recv & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
MsgBox(0, "server hat empfangen:", $recv, 1) ;Daten ausgeben und weiterverarbeiten, hier kann auch eine längere Datenverarbeitung stehen...Client sendet erst, wenn der Server wieder bereit ist
endif
WEnd
WEnd
TCPShutdown()

Func _connect() ; alle 5 sekunden nachschauen ob der client noch verbunden ist
$anz = TCPSend($ConnectedSocket, "1") ;info an den client senden, dass der server bereit ist
If $anz = 0 Or @error Then $connectionenabled = 0 ;wenn keine daten an den Client gesendet werden konnten ist der client offline
EndFunc ;==>_connect