Desligar o PC na hora Marcada

[Hacker Inocente]

Desligar o PC na hora Marcada


O que usaremos :
2 Buttons
1 Textbox
2 Label
2 Timer

Renomeando-os textos :
1 - Botão para "Programar"
2 - Botão para "Cancelar Programação"
1 - Label para "Informe o Horário :"
2 - Label para "Tempo"

No seu Form1 coloque o código abaixo

Código: ↓

Timer1.Start()
TextBox1.Text = "00:00:00"
Dim Fade As Double
For Fade = 0.0 To 1.1 Step 0.1
Me.Opacity = Fade
Me.Refresh()
Threading.Thread.Sleep(130)
Next

No seu Button1 coloque o código abaixo

Código: ↓

Timer2.Enabled = True
TextBox1.Enabled = False
Button2.Enabled = True
Button1.Enabled = False

No seu Button2 coloque o código abaixo

Código: ↓

Timer2.Enabled = False
TextBox1.Text = "00:00:00"
TextBox1.Enabled = True
Button1.Enabled = True
Button2.Enabled = False
Shell("shutdown -a")

No seu Timer1 coloque o código abaixo

Código: ↓

Label2.Text = Format(TimeOfDay)

No seu Timer2 coloque o código abaixo

Código: ↓

If TextBox1.Text = Label2.Text Then
Shell("shutdown -s")
End If

[Hifterbuk]

Ou faça isso em Batch Script:

@echo off
AT "horário" shutdown -s -t 01
exit

Bem mais simples...

[chooco]

Ou faça isso em Batch Script:

@echo off
AT "horário" shutdown -s -t 01
exit

Bem mais simples...

aqui é área de vb..

[Hifterbuk]

aqui é área de vb..

É mesmo? Nem tinha reparado. E é só uma dica pra quem quer algo mais simples.

[chooco]

É mesmo? Nem tinha reparado. E é só uma dica pra quem quer algo mais simples.

não falei na ignorância.. só disse que é pra vb, e da pra utilizar em projetos.. mas de boa

[Hifterbuk]

não falei na ignorância.. só disse que é pra vb, e da pra utilizar em projetos.. mas de boa

Eu sei que você não foi ignorante. E também sei que você disse que é pra vb. Só não sei se você sabe que o que eu disse foi apenas uma dica.

[Mr_Blizzard]

Mais opções se preferirem!

Para Desligar: "-s"
Para Reiniciar: "-r"
Para fazer LogOff: "-l"

Só substituir essa parte:

If TextBox1.Text = Label2.Text Then 
Shell("shutdown -s")

Por alguma dessas citadas acima.

Outra importantes que se souber usar também é possível.

-i Mostrar a Interface Gráfica 
-a Cancelar o Desligamento 
-c “Comentário” Informar Comentário para o Desligamento 
-f Forçar o Fechamento das Aplicações que estão rodando