Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
140
Assunto : Visual Basic
Titulo: LogOff, Reboot e desligar micro pelo VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Durante um processo de instalação ou quando é realizada alguma alteração no sistema pode ser interessante rebootar o micro pela aplicação. Para isso o Vb pode acessar uma API do Windows.

Precisamos declarar a API em um módulo. Veja :

Option Explicit
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_LOGOFF = 0

Como exemplo, coloque em um form uma textbox e um botão. Inclua o seguinte código no botão :

Private Sub Command1_Click()
Dim Variav
Select Case Text1
Case "0"
If MsgBox("Deseja fazer Logoff agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then
Variav = ExitWindowsEx(EWX_LOGOFF, 0)
End If
Case "1"
If MsgBox("Deseja desligar o Computador agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then
Variav = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
Case "2"
If MsgBox("Deseja reiniciar o Windows agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then
Variav = ExitWindowsEx(EWX_REBOOT, 0)
End If
Case Else
MsgBox Label1
Exit Sub
End Select
End Sub

Se você digitar 0 na textbox e clicar no botão será feito logoff, se digitar 1 o micro será desligado e se digitar 2 será rebotado. O código no botão pergunta se o usuário desejar mesmo realizar esta tarefa. (sugiro salvar o código antes de executar).


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 5/6/2008 8:11:00 AM
nome: Hildenberg
email: hildemberg_silva@hotmail.com
comentário:
Cara eu quero uma ajuda pq um cara concertou meu micro e colocou uma senha no setup, agora eu não acho mas o cara pra saber a senha, como eu faço pra retirar sem presirar abir a maquina pra dar um curto na bius.

data: 9/13/2006 11:57:00 AM
nome: André Gomes
email: agssistemas@hotmail.com
comentário:
Não funciona com o Windows XP

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br