DESLIGAR COMPUTADOR AUTOMATICAMENTE

KEFIKAFIKA 30/12/2004 02:08:24
#57734
E ai galerinha do Mau.......huhuh.....Bom....queria saber se alguem tem algum codigo-fonte de algum programinha que fizesse com que o computador desligasse automaticamente.....ai tipow....achei a do CASPEREARK, mas ele desliga em Minutos......queria saber se alguem consegueria pra mim tipo como um TIMER, que eu colocasse a Hora e ele desligasse a essa tal hora.......será que tem jeito de arrumar, dar uma fuçada no do CASPEREARK e conseguir fazer com que ele fike no local de minutos, em Horas????Seis poderiam me ajudar???
Vlws!!!!!!!
FELIPEA 02/01/2005 13:18:14
#58165 Resposta escolhida
Para desligar num certo horário, faça o seguinte:

1. Faça um Label ( Para indicar o horário atual )
2. Faça um Timer ( Com no máximo "1000" milesimos )
3. Faça um TextBox ( Para setar o horário para ser desligado o computador)

4. Cole esse código:

Private Sub Form_Load()
    Timer1.Interval = "1000"
    Text1.Text = "0:00"
End Sub

Private Sub Timer1_Timer()

    Label1.Caption = Format(Now, "hh:nn:ss")
    
    If Label1.Caption = Text1.Text Then
        'Rotina para desligar o computador
    End If

End Sub


Vê se funciona
Tópico encerrado , respostas não são mais permitidas
Voltar