DESLIGAR O MICRO

PAULOHSV 09/11/2004 07:20:06
#49533

Dim i As Long

Private Sub Form_Load()
MakeMeService
App.TaskVisible = False
i = 0
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i < 5 Then
Label1.Caption = "Restam: " & 5 - i & " segundos o seu computador ser desligado!!!"
Else
Call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End If
End Sub

se vc tiver uma conexão com o banco de dados não se esqueça de fecha-la primeiro.

PAULOHSV 12/11/2004 07:22:08
#50019 Resposta escolhida

Private Sub Form_Load()
MakeMeService
App.TaskVisible = False
Call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub

Desta forma ele vai deligar o micro direto assim que o formulario for aberto ele vai desligar o micro.