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

black

Codigo para desligar e reiniciar computador??

7 mensagens neste tópico

Boa noite a todos os utilizadores....

estou a tentar desenvolver um programa que deslige, reinicie e faça log off ao computador...

ja elaborei o codigo com base em algumas pesquisas que adaptei ao meu caso...

o problema é que apenas faz log off(termina secção), o desligar e o reiniciar nao trabalhao...

o meu codigo é o seguinte:

_______________________________________________________________________________________________________

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const EWX_POWEROFF = 8

Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Sub Command1_Click()

Dim X As Long

X = ExitWindowsEx(EWX_REBOOT, dwReserved)

End Sub

Private Sub Command2_Click()

Dim X As Long

X = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)

End Sub

Private Sub Command3_Click()

Dim X As Long

X = ExitWindowsEx(EWX_LOGOFF, dwReserved)

End Sub

___________________________________________________________________________________________________________

sendo que o command1 serve para reiniciar o 2 para desligar e o 3 para terminar secção, porem apenas o command3 funciona...

alguem me pode ajudar a por o computador a desligar e reiniciar????? :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tenho de ir testar mas parece-me que devia ser apenas:

ExitWindowsEx EWX_SHUTDOWN, 0

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