Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: BorecK en 6 Diciembre 2006, 18:41 pm


Título: Alguien puede darme esta API?
Publicado por: BorecK en 6 Diciembre 2006, 18:41 pm
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 ?

Título: Re: Alguien puede darme esta API?
Publicado por: xDie en 6 Diciembre 2006, 20:42 pm
 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

Título: Re: Alguien puede darme esta API?
Publicado por: BorecK en 6 Diciembre 2006, 20:53 pm
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 ?

Título: Re: Alguien puede darme esta API?
Publicado por: CeLaYa en 6 Diciembre 2006, 21:01 pm
a ver si esto te sirve...
Código:
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

Título: Re: Alguien puede darme esta API?
Publicado por: BorecK en 6 Diciembre 2006, 21:24 pm
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  :(

Título: Re: Alguien puede darme esta API?
Publicado por: Hans el Topo en 6 Diciembre 2006, 21:42 pm
http://www.elhacker.net/trucosvisual.htm


aki tienes como apagar suspender cambiar usuario

Título: Re: Alguien puede darme esta API?
Publicado por: Gorky en 7 Diciembre 2006, 12:37 pm
Ten en cuenta que aunque los fragmentos de codigo que te estan pasando sean correctos, previamente tienes que elevar privilegios para poder apagar.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines