|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Desligar ou reiniciar o WinXP
|
 |
|
|
|
Postada em 15/1/2004 por PC
'---------------------------------------------------------------------------------------
' Procedure : ShutXP
' DateTime : 14/01/2004 23:56
' Author : Paulo Cezar Barbosa, www.sharmaq.com.br
' Purpose : Pequena procedure para Desligar o WinXP(somente)
'---------------------------------------------------------------------------------------
'
Sub ShutXP(Optional Resetar As Boolean = False)
Dim q
If Resetar = False Then
q = Shell("shutdown.exe -s", vbMinimizedFocus) '(shutdown)
Else
q = Shell("shutown.exe -r", vbMinimizedFocus) '(reboot)
End If
End Sub
|
|
|
|
|
