como apagar el equipo en Windows 98 o 2000
Publicado por gabriel (3 intervenciones) el 27/02/2004 19:40:46
Hola a todos !!
Necesito un codigo en visual 6.0 que me sirva para apagar mi equipo, con windows 2000 , 98 o NT. Bueno tengo un codigo pero no me funciona y he probado con otros pero el programa no hace nada, no entiendo que pasa, por favor alguien que sepa cual es mi error, una ayuda!!!
el codigo q tengo es:
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
Muchas gracias de antemano!! chao!!
Necesito un codigo en visual 6.0 que me sirva para apagar mi equipo, con windows 2000 , 98 o NT. Bueno tengo un codigo pero no me funciona y he probado con otros pero el programa no hace nada, no entiendo que pasa, por favor alguien que sepa cual es mi error, una ayuda!!!
el codigo q tengo es:
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
Muchas gracias de antemano!! chao!!
Valora esta pregunta
0