trincheiro
Membro
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:
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: :hmm: :hmm: :hmm:
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:
Código:
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
alguem me pode ajudar a por o computador a desligar e reiniciar????? :hmm: :hmm: :hmm: :hmm:
Última edição pelo moderador: