AutoIt Français

#include "mysql.au3"
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 272, 241, 192, 124)
$Button1 = GUICtrlCreateButton("Start all", 96, 104, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stop all", 96, 64, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$base =
$Utilisateur =
$password =
$IPserveur =

_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, $IPserveur, $Utilisateur, $password, $base)
If $connected = 0 Then
    $errno = _MySQL_errno($MysqlConn)
    MsgBox(0, "Error:", $errno & @LF & _MySQL_error($MysqlConn))
    If $errno = $CR_UNKNOWN_HOST Then MsgBox(0, "Erreur:", "$CR_UNKNOWN_HOST" & @LF & $CR_UNKNOWN_HOST)
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $query = "select ip,adresse_mac,allumage from mabase where allumage = '1'"
            $resultat = _query($query)
            $lignemax = UBound($array) - 1
            For $i = 1 To $lignemax
                $IPAddress = "192.168.1.255"; Mettre le broadcast ici
                $MACAddress = $resultat[$i][1]
                UDPStartup()
                $connexion = UDPOpen($IPAddress, 7)
                $res = UDPSend($connexion, GenerateMagicPacket($MACAddress))
                MsgBox(0, "", $res)
                UDPCloseSocket($connexion)
                UDPShutdown()
            Next

        Case $Button2
            $query = "select ip,adresse_mac,extinction from mabase where extinction = '1'"
            $resultat = _query($query)
            $lignemax = UBound($array) - 1
            For $i = 1 To $lignemax
                Run(@ComSpec & ' /k ' & 'shutdown  -m \\' & $resultat[$i][1] & ')
            Next
    EndSwitch
WEnd

; ===================================================================
; Functions
; ===================================================================

Func _query($query)
    _MySQL_Real_Query($MysqlConn, $query)
    $res = _MySQL_Store_Result($MysqlConn)
    $fields = _MySQL_Num_Fields($res)
    $rows = _MySQL_Num_Rows($res)
    Dim $array[$rows][$fields]
    For $k = 1 To $rows
        $mysqlrow = _MySQL_Fetch_Row($res, $fields)
        $lenthsStruct = _MySQL_Fetch_Lengths($res)
        For $i = 1 To $fields
            $length = DllStructGetData($lenthsStruct, 1, $i)
            $fieldPtr = DllStructGetData($mysqlrow, 1, $i)
            $data = DllStructGetData(DllStructCreate("char[" & $length & "]", $fieldPtr), 1)
            $array[$k - 1][$i - 1] = $data
        Next
    Next
    Return ($array)
EndFunc   ;==>_query

; This function convert a MAC Address Byte (e.g. "1f") to a char
Func HexToChar($strHex)

    Return Chr(Dec($strHex))

EndFunc   ;==>HexToChar

; This function generate the "Magic Packet"
Func GenerateMagicPacket($strMACAddress)

    $MagicPacket = ""
    $MACData = ""

    For $p = 1 To 11 Step 2
        $MACData = $MACData & HexToChar(StringMid($strMACAddress, $p, 2))
    Next

    For $p = 1 To 6
        $MagicPacket = HexToChar("ff") & $MagicPacket
    Next

    For $p = 1 To 16
        $MagicPacket = $MagicPacket & $MACData
    Next

    Return $MagicPacket

EndFunc   ;==>GenerateMagicPacket

Global Const $IP = @IPAddress1
Global Const $PORT = 5393
TCPStartup()


$hCon = TCPConnect($IP,$PORT)
If @error Then Exit MsgBox(16,"","Serveur pas démarré. Erreur: "&@error)

TCPSend($hCon,"Je suis "&@ComputerName&" avec utilisateur "& @UserName)
While 1
    $sRecv = TCPRecv($hCon,1024)
    If @error Then ExitLoop
    Select
        Case $sRecv = "shutdown -r"
            Run(@ComSpec & ' /k' & 'shutdown  -r')
        Case $sRecv = "shutdown -a"
            Run(@ComSpec & ' /k' & 'shutdown  -a')
        Case $sRecv <> ""
            MsgBox(0,"Client Incoming" & @IPAddress1,$sRecv)
    EndSelect
    Sleep(100)
WEnd

TCPShutdown()

#include <GUIConstantsEx.au3>
Global Const $IP = @IPAddress1
Global Const $PORT = 5393
Global Const $MAXCON = 50;Maximal 50 Verbindungen

Global $aClients[$MAXCON + 1][3]
$aClients[0][0] = $MAXCON

Opt("GuiOnEventMode", 1)


TCPStartup()

$hListen = TCPListen($IP, $PORT, $MAXCON)


AdlibRegister("TCPAcc", 100)


;Hat nicht zu interessieren, ist nur GUI
GUICreate("Server", 400, 150)
GUISetOnEvent(-3, "_Exit")

$hListV = GUICtrlCreateListView("ID|Client|IP", 0, 0, 200, 150)
$hEdit = GUICtrlCreateEdit("Texte à envoyer", 200, 0, 200, 80,0)
$hSendToAll = GUICtrlCreateRadio("Envoyer à tous",200,80,200,15)
GUICtrlSetOnEvent(-1,"_gui_radio")
GUICtrlSetState(-1,$GUI_CHECKED)
GUICtrlCreateRadio("Que a cette IP:",200,95,200,15)
GUICtrlSetOnEvent(-1,"_gui_radio")
$hInput = GUICtrlCreateInput("",200,110,200,20)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateButton("SEND", 200, 130, 200, 20)
GUICtrlSetOnEvent(-1, "_gui_send")
GUISetState()

;Main Schleife: Hier wird das, was in den Server reinkommt abgefangen
While 1
    For $i = 1 To $aClients[0][0]
        If $aClients[$i][0] Then
            $sRecv = TCPRecv($aClients[$i][0], 1024)
            If $sRecv Then TrayTip("Nouvelle connection " & $aClients[$i][1], $sRecv, 2)
        EndIf
    Next
    Sleep(100)
WEnd

;GUI Krimskrams
Func _gui_radio()
    ConsoleWrite(@GUI_CtrlId & @CRLF)
    If @GUI_CtrlId = $hSendToAll Then
        GUICtrlSetState($hInput,$GUI_DISABLE)
    Else
        GUICtrlSetState($hInput,$GUI_ENABLE)
    EndIf

EndFunc

;GUI Krimskrams
Func _gui_send()
    Local $sText = GUICtrlRead($hEdit)
    If BitAND(GUICtrlRead($hSendToAll), $GUI_CHECKED) Then
        ConsoleWrite("--" & @CRLF)
        _TCP_ServerBroadcast($sText)
    Else
        Local $iID = GUICtrlRead($hInput)
        ConsoleWrite($iID & @CRLF)
        If $iID < 1 Or $iID > $MAXCON Then Return MsgBox(16,"","ID doit être entre 1 et "&$MAXCON&" !")
        TCPSend($aClients[$iID][0],$sText)
        If @error Then _DelClient($aClients[$iID][0])
    EndIf
EndFunc   ;==>_gui_send

;Adlib funktion, hier wird alle 100ms nach einem neuen Client gesucht
Func TCPAcc()
    $hAcc = TCPAccept($hListen)
    If $hAcc > 0 Then _AddClient($hAcc)
EndFunc   ;==>TCPAcc

;Hier wird der Client hinzugefügt
Func _AddClient($hSocket)
    Local $i
    For $i = 1 To $aClients[0][0]
        If Not $aClients[$i][0] Then ExitLoop
    Next
    $aClients[$i][0] = $hSocket
    $aClients[$i][1] = SocketToIP($hSocket)
    $aClients[$i][2] = GUICtrlCreateListViewItem($i&"|"&$aClients[$i][0] & "|" & $aClients[$i][1],$hListV)
    Return TCPSend($hSocket, "welcome")
EndFunc   ;==>_AddClient

;Hier wird er ggf. wieder gelöscht
Func _DelClient($hSocket)
    Local $i
    For $i = 1 To $aClients[0][0]
        If $aClients[$i][0] = $hSocket Then
            TCPCloseSocket($aClients[$i][0])
            $aClients[$i][0] = '' ;Entferne Client
            GUICtrlDelete($aClients[$i - 1][2])
            Return True
        EndIf
    Next
    Return False
EndFunc   ;==>_DelClient

;Sendet einen String an alle verbundenen Clients
Func _TCP_ServerBroadcast($sText)
    Local $i
    For $i = 1 To $aClients[0][0]
        If $aClients[$i][0] Then
            TCPSend($aClients[$i][0], $sText)
            If @error Then _DelClient($aClients[$i][0])
        EndIf
    Next
EndFunc   ;==>_TCP_ServerBroadcast

Func _Exit()
    Local $i
    For $i = 1 To $aClients[0][0]
        If $aClients[$i][0] Then
            TCPCloseSocket($aClients[$i][0])
            GUICtrlDelete($aClients[$i - 1][2])
        EndIf
    Next
    TCPShutdown()
    Exit
EndFunc   ;==>_Exit


; Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc   ;==>SocketToIP