Programación General > Visual Basic 6.0 e inferiores

 Apagar, Reiniciar Windows Con Vb6

(1/1)

lextitan:
wenas amigos del foro eh aki mi duda!!

y es como apagar, reiniciar y poner a hibernar la pc !!estoy usando esta funcion de api pero no me hace nada :(
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 CmdShutdown_click()
Var& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub

Private Sub rest_Click()
Var& = ExitWindowsEx(EWX_REBOOT, 0)

End Sub

y ps noc ke estara pasasndo y espero me puedan ayudar!! de antemano gracias

F_Tanori:
Eso es para win9x

Si utilizas plataforma NT

Revisa esto
http://mipagina.cantv.net/trucosytrampas/003.htm#Utilidades


Saludos

lextitan:
:P creo ke no me funciona para windows xp.

ezequielminor:
proba con
    Dim comando As String
   comando = Shell("shutdown -r")


reemplaza el comando por el que necesites.

Navegación

[0] Índice de Mensajes