Pues con un programa cliente y uno servidor. Puedes usar conexiones TCP/IP para establecer comunicacion entre las 2 computadoras.
Y luego para mandar que se apague usas: El api ExitWindowsEx, no te voy hacer todo el programa, pero si lo haces bien, te quedaria algo mas o menos asi:
---------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Datos, vbString
If (Mid(Datos, 1, 6) = "Apagar") Then
ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End If
End Sub
---------------
La declaración del api es:
---------------
Const EWX_SHUTDOWN = 1
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
---------------
Saludos!!!
-
Miguel Angel
Mike79