Alguien puede darme esta API?

[BorecK]

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 ?

[xDie]

 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

[BorecK]

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 esto funciona con windows XP ?

[CeLaYa]

a ver si esto te sirve...

Código [Seleccionar] Expandir


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

[BorecK]

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 

[Hans el Topo]

http://www.elhacker.net/trucosvisual.htm


aki tienes como apagar suspender cambiar usuario

[Gorky]

Ten en cuenta que aunque los fragmentos de codigo que te estan pasando sean correctos, previamente tienes que elevar privilegios para poder apagar.