Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    [Tutorial]Auto-shutdown VB08

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    Idade : 24
    Localização : Cuiaba
    Agradecimentos Agradecimentos : 864
    Data de inscrição : 10/12/2008

    [Tutorial]Auto-shutdown VB08

    Mensagem por MrViSiBLe em 7/20/2010, 21:42

    Fala aew galera da cheats brasil!
    Bom hj vou mostrar a vcs como fazer um auto-shutdown (pra quem nao sabe isso desliga o computador na hora que vc quiser)

    é muito simples de fazer!
    Requisitos:
    02-Timers
    03-Label
    01-TextBox
    02-Buttons

    depois de adcionar tudo organize desta forma:

    [Você precisa estar registrado e conectado para ver esta imagem.]
    No button1 coloque o text de "Começar"
    No button2 coloque o text de "Parar"
    No label2 bote o text de "Hora atual"
    No label3 bote o text de "Hora para desligar"
    No label2 deixe como está se quiser mude o tipo de fonte para melhor visualização

    Agora de 2 cliques no form e apague todo o codigo escrito e bote isso
    Código:

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer2.Enabled = True
    TextBox1.Enabled = False
    Button2.Enabled = True
    Button1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Label1.Text = Format(TimeOfDay)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer2.Enabled = False
    TextBox1.Text = "00:00:00"
    TextBox1.Enabled = True
    Button1.Enabled = True
    Button2.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    If TextBox1.Text = Label1.Text Then
    Shell("shutdown -s -t00")
    End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Start()
    End Sub
    End Class

    e salve o projeto,quando vc executar ele ficará assim:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    É bem simples e facil de fazer!
    Vlw galera espero que vcs tenham gostado!


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/5/2016, 03:26