NO ME SIRVE EL CODIGO PARA APAGAR LA MAKINA

[Abdarllazir]

hola yo probe una vez este codigo y funciono y ahora lo trato de hacer de nuevo y no hace nada alguien tiene la explicacion?

en un modulo puse:

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

cree tres commandbutton y les coloque:

Command1 - cmdApagar
Command2 - cmdReiniciarWi ndows
Command3 - cmdReiniciarEq uipo
El codigo a escribir es el siguiente:
Private Declare Sub cmdApagar_Clic k()
        Dim i As Integer
        i  = ExitWindowsEx(1, 0&)
End Sub
Private Declare Sub cmdReiniciarWi ndows_Click()
        Dim i As Integer
        i  = ExitWindowsEx(0, 0&)
End Sub
Private Declare Sub cmdReiniciarEq uipo_Click()
        Dim i As Integer
        i  = ExitWindowsEx(2, 0&)
End Sub


no entiendo ke es lo ke esta mal y porke me funciono una sola vez si alguien tiene un metodo mejor que este se lo agradeceria

[ranefi]

Buen día Abdarllazir. Aquí te dejo el enlace al código que necesitas.


Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,13900.msg55842.html#msg55842

Sabes, te recomiendo que leas las
Para ver este enlace Registrate o Inicia Sesion

Reglas de esta sección

antes de publicar cualquier duda.


PD: Los exhorto a todos a utilizar el botón de buscar y leer las Reglas de esta sección antes de publicar cualquier duda. Recuerden que es por el bien de nosotros mismos.