Programación General > Visual Basic 6.0 e inferiores

 Apagar Equipo

<< < (2/2)

tyron:
Hola, pues este codigo me lo he tenido ke currar yo, pero va!

En un modulo:

--- Código: Text ---Public Declare Function ExitWindowsEx Lib &#34;user32&#34; (ByVal uFlags As _Long, ByVal dwReserved As Long) As LongPublic Declare Function ExitWindows Lib &#34;user32&#34; (ByVal dwReserved As _Long, ByVal uReturnCode As Long) As Long Public Const EWX_LOGOFF = 0Public Const EWX_SHUTDOWN = 1Public Const EWX_REBOOT = 2Public Const EWX_FORCE = 4 
En un boton o lo que quieras:

--- Código: Text ---ExitWindowsEx EWX_SHUTDOWN, 0& 
Yo tengo instalado el XP, no lo he podido probar en windows98 pero supongo que funcionara. Un saludo.

martin campos quintero:
Hola, pues la forma más sencilla para apagar una pc remota, es que ella misma se apague no que la apague otra máquina, esto se consigue con aplicación cliente servidor


El servidor será el que mande la orden de apagar.

por ejemplo cuando la aplicación cliente esté conectada con la aplicación servidor, el servidor manda lo siguiente:

winsock1.senddata "apagate"

y el cliente al recibirlo:

dim datos as string
winsock1.getdata datos
if datos="apagate" then
  funcion de apagar()
endif

Busca información sobre el control winsock

Navegación

[0] Índice de Mensajes

[*] Página Anterior