WEBE®
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 03/02/2005 10:31 hs
Olá Qual a linha de comando que eu uso para DESLIGAR O COMPUTADOR usando um projeto ?? |
|
|
|
|
|
|
|
Postada em 03/02/2005 10:42 hs
|
|
|
|
WEBE®
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2005 11:11 hs
Obrigado pela dica, mas esse só funciona no windows xp. Preciso para outras versões também. |
|
|
|
WEBE®
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2005 11:54 hs
Valeu galera  encontrei a seguinte dica nas dicas do VB : Valeu galera !!! |
|
TÓPICO EDITADO
|
|
|
|
WEBE®
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 03/02/2005 12:02 hs
OPA VACILEI NO CTRL + C e CTRL + V A DICA É A SEGUINTE POSTADA PELO WEBMASTER: 'No módulo:
Public Declare Function ExitWindowsEx Lib "user32" _
Alias "ExitWindowsEx" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF As Long = 0 'Faz Logoff do usuário.
Public Const EWX_SHUTDOWN As Long = 1 'Desligar o computador.
Public Const EWX_REBOOT As Long = 2 'Reiniciar o computador.
Public Const EWX_FORCE As Long = 4 'Força a ação desejada.
'No evento que você desejar:
Dim RET as Long
'P/ fazer logoff do usuário:
RET = ExitWindowsEx(EWX_LOGOFF, 0)
'P/ desligar o computador:
RET = ExitWindowsEx(EWX_SHUTDOWN, 0)
'P/ reiniciar o computador
RET = ExitWindowsEx(EWX_REBOOT, 0)
'Se você quizer "forçar" a ação a ser executada, faça
'da seguinte maneira:
'P/ fazer logon com outro usuário:
RET = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
'P/ desligar o computador:
RET = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
'P/ reiniciar o computador
RET = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
'P/ reiniciar o computador
RET = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
|
|
|
|
