No programa Visual Basic, você pode usar as funções da API do Windows para reiniciar o sistema do computador. Este texto descreve como sair do Windows 95 e desligar o sistema do computador.
#Desligue o sistema do computador
Você pode usar a função ExitWindowsEx da API do Windows para reiniciar o sistema do computador a partir de um programa Visual Basic. Para usar esta função, inclua a seguinte declaração na seção de declarações normais do formulário:
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
A função ExitWindowsEx requer 2 parâmetros Você pode usar uma ou mais combinações dos sinalizadores a seguir para informar à função ExitWindowsEx que deseja executar o processo de desligamento.
EWX_FORCE Todos os processos são encerrados à força.
EWX_LOGOFF Todos os processos são encerrados à força e o usuário é desconectado (loggedoff).
EWX_POWEROFF O sistema do computador é desligado e, se os recursos de economia de energia forem suportados, o computador será desligado fisicamente.
EWX_REBOOTO sistema do computador foi desligado e reiniciado.
EWX_SHUTDOWN O computador foi desligado fisicamente e com segurança.
O programa de exemplo a seguir usa uma combinação dos três sinalizadores acima. Esta combinação de sinalizadores (EWX_LOGOFF, EWX_FORCE e EWX_REBOOT) diz ao Windows95 para sair de tudo normal
Durante o processo de execução, o usuário efetua logout da rede e coloca o sistema do computador em estado pronto para o desligamento do usuário.
#Programa de amostra
Este programa de exemplo mostra como desligar um sistema de computador.
1. Inicie um novo projeto em Visual Basic e use o método padrão para criar o Form1.
2. Adicione as seguintes constantes e declarações à seção de declaração normal do Form1 (observe que a declaração precisa ser escrita em uma linha):
PrivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3. Adicione um controle de botão de comando ao Form1 e use o método padrão para criar Comand1. Defina sua propriedade Caption como “Reiniciar o computador”.
4. Adicione o seguinte código ao evento click de Command1:
PrivateSubCommand1_Click()
DimXAsLong
X=SairWindowsEx(EWX_RESET,dwReserved)
Fim Sub
Pressione F5 para executar o programa de exemplo acima e clique no botão de comando para reiniciar o sistema do computador. ->