USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Desligar Computador
Postada em 13/2/2007 por Vilmar Brazão         
'1º exemplo)No Windows XP já vem o programa shutdown.exe, mas você pode copiar
'este programa para o diretório de system32 do Windows 2000 que funcionará também

Sub ShutXP(Optional Resetar As Boolean = False)
Dim q
    If Resetar = False Then
        q = Shell("shutdown.exe -s", vbMinimizedFocus) '(shutdown)
    Else
        q = Shell("shutown.exe -r", vbMinimizedFocus) '(reboot)
    End If
End Sub

'---------------------------------------------------------

'2º exemplo)
'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)
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página