Hola, necesito la Api con la funcion de Cambiar Usuario en lugar de Reiniciar o Apagar el sistema solo ncesito Cambiar el usuario alguien podria darmela ?
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub
Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario
End Sub
Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub
Alguien sabe por que no me funciona ? eso ando viendo desde ayer pero... no pasa nada eh checado poner el codigo correctamente y si esta todo bien pro no me reinicia nada :huh: esto funciona con windows XP ?
a ver si esto te sirve...
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub
este código lo saque de in programita que se llama Api-Guide, de hecho esta aplicación la baje de un link de otro post en este foro
Muchas gracias a los dos pero aun no encuentro lo que busco... necesito que me suspenda la maquina para cuando se reanude me pida clave de usuario y no me cierre ningun programa que se estaba ejecutando :(
http://www.elhacker.net/trucosvisual.htm
aki tienes como apagar suspender cambiar usuario
Ten en cuenta que aunque los fragmentos de codigo que te estan pasando sean correctos, previamente tienes que elevar privilegios para poder apagar.