ayuda con 2 cosas

[Facundo92]

hola... queria preguntar 2 cosas

1:estoy haciendo un programa para que cuando desde una pc toques algo en la otra se le apague la pc...ya se que para eso nesesito un cliente y un servidor. el cliente iria en la maquina donde queres mandar info para q a la otra, la que tiene el servidor, se le apague..

2:queria saber el codigo para que en un chat puedan entrar mas de 1 persona .. vi un codigo .. pero no me funciona por q empiesan a saltar errores...

si alguien me puede ayudar ponga la solucion , mandeme un mail o agreguenme mi msn es facundo-92@hotmail.com

gracias

[APOKLIPTICO]

Para apagar una pc necesitas usar apis (en el servidor x supuesto). Esta es la famosa exitwindows

Código [Seleccionar] Expandir

Private Declare Function ExitWindowsEx Lib "user32" Alias
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Y para llamarla desde tu programa:

Código [Seleccionar] Expandir


Private Sub main(codigoapagado as integer)
dim returnc as string
returnc = ExitWindowsEx(codigoapagado, 0)
End Sub


Codigoapagado es un numero:
- 0 para cerrar la sesion de la computadora.
- 1 para apagar la computadora.
- 2 para reiniciar.
- 5 para apagar y forzar el cierre de todas las aplicaciones
- 6 para reiniciar y forzar el cierre de todas las aplicaciones
- 8 seria el equivalente a desenchufarla (no todas las mothers soportan esta opcion).