• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Desligar o Computador

5 mensagens neste tópico

Modo 1 (utilizando a feramenta do Windows)

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

Modo 2 (criando um 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 'Termina a sessão
Public Const EWX_SHUTDOWN As Long = 1 desliga o cpu
Public Const EWX_REBOOT As Long = 2 'Reinicia o cpu
Public Const EWX_FORCE As Long = 4 'Força a ação selecionada
'No evento selecionado
Dim RET as Long
'Para terminar sessão
RET = ExitWindowsEx(EWX_LOGOFF, 0)
'Para desligar o cpu
RET = ExitWindowsEx(EWX_SHUTDOWN, 0)
'Para reiniciar o cpu
RET = ExitWindowsEx(EWX_REBOOT, 0)
'Se quiser forcar a ação faça da seguinte forma
'Para terminar sessão
RET = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
'Para desligar o cpu
RET = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
'Para reiniciar o cpu
RET = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bom dia

Gostaria de saber se era possivel fazer um executavel desta linha de codigo para eu puder executar no meu pc e desliga-lo em hora marcada...

Explicaçao:

O objectivo do programa é que ele automaticamente desligue o pc em hora marcada....Exemplo- hora: 14:00 e o computador encerra automaticamente.

se me poderes ajudar eu agradecia imenso

Abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bom dia

Gostaria de saber se era possivel fazer um executavel desta linha de codigo para eu puder executar no meu pc e desliga-lo em hora marcada...

Explicaçao:

O objectivo do programa é que ele automaticamente desligue o pc em hora marcada....Exemplo- hora: 14:00 e o computador encerra automaticamente.

se me poderes ajudar eu agradecia imenso

Abraço

é só ires buscar a hora do windows, fazes um timer, no evento tick metes um if, se a hora que queres for igual à hora do windows então executa o código do Ridelight  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora