| Pregunta: | 12292 - REINICIAR Y APAGAR WINDOWS 2000 DESDE VB6.0 |
| Autor: | Horst Tessmann |
| El codigo a continuacion invoca una constante y le pasa por parametro unos valores, y la funcion lo que hace es:
(hay 3 optionbutton) Si presiona el primero Reinicia el Sistema Si presiona el segundo Apago la maquina Si presiona el tercero cierro sesion de usuario Esto me corre con el Sistema operativo W98, pero con el W2000 professioal no funciona !! espero que alguien me pueda ayudar gracias !!! Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub Option1_Click() Option1.Value = True Dim i As Integer i = ExitWindowsEx&(2, 0&) 'Reinicia el Sistema End Sub Private Sub Option2_Click() Option2.Value = True Dim i As Integer i = ExitWindowsEx&(1, 0&) 'Apago la maquina End Sub Private Sub Option3_Click() Dim i As Integer i = ExitWindowsEx(0, 0&) ' inicio sesion como otro usuario End Sub | |
| Respuesta: | David |
| Te envio una aplicación como ejemplo. Espero que te sirva.
resp12292.zip | |