Holas. Tengo un problema que tal vez sea sencillo pero ya estoy medio "bombeao", estoy haciendo un cibercontrol, y lo tendria listo si no fuera que no puedo hacer que se apague el terminal y le he dado muchas vueltas pero ya tengo la cabeza hecha sopa. Tal vez alguno me pueda decir donde esta el problema. Uso la conocida api ExitWindowsEx de "User32", aplicando el codigo sensillito: retorno = ExitWindowsEx(cerrar, 0), pero no hay forma de que se me apague.
El codigo completo por las dudas es este:
Option Explicit
'Declaración de la función Api
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Constantes para pasarle a la función
Const cerrar = 1
Const reiniciar = 2
'Código del Botón
Private Sub Command1_Click()
'Variable para retornar un valor e indicarnos si handubo bien o falló la llamada
Dim retorno As Long
'Dependiendo el Option seleccionado reiniciamos o apagamos
If Option1 Then retorno = ExitWindowsEx(reiniciar, 0)
If Option2 Then retorno = ExitWindowsEx(cerrar, 0)
End Subque me faltara?
Gracias desde ya.
