#vb.net - Programar Apagado

' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/
' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO
' Autor: A.K.Freeman

Public Class Form1

    'Evento al iniciar la ventana
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try para evitar errores en la compilacion.
        Try
            'Se activa el timer
            Hora.Enabled = True
            'Se indica el icono
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\clock.ico")

            'Se asignan para notificon
            With NotifyIcon1
                'Su icono
                .Icon = Me.Icon
                'Se asigna el contextmenustrip
                .ContextMenuStrip = x
                'Se asigna el nombre
                .Text = Application.ProductName
                'Se indica si es visible
                .Visible = True
            End With
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try
    End Sub

    'Eventto timer tick
    Private Sub Hora_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hora.Tick
        'Try para evitar errores en la compilacion.
        Try
            'Se asigna la hora cadA segundo. Toupper para poner en mayusculas
            Me.TxbHoraActual.Text = Date.Now.ToLongTimeString.ToUpper
            'Si el txthoraapagado es igual a la hora actual capturada
            If Me.TxbHoraApagado.Text = Date.Now.AddHours(0).AddMinutes(0).ToShortTimeString.ToUpper Then
                'Se desactiva el timer
                Hora.Enabled = False
                'Se mostrara la ventana
                Me.Show()
                'Se ejecuta el comandao cmd para apagar la pc
                Process.Start("shutdown.exe", " -s -t 0 -f")
            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#2'")
        End Try
    End Sub


    'Evento al hacer clic al button programar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProgramar.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se captura la hora que se apagara el equipo
            Me.TxbHoraApagado.Text = Date.Now.AddHours(Me.NumericUpDown1.Value).AddMinutes(Me.NumericUpDown2.Value).ToShortTimeString.ToUpper
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try
    End Sub

    'Evento al hacer clic en notificon
    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        'Try para evitar errores en la compilacion.
        Try
            'Se mostrara el formulario
            Me.Show()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#3'")
        End Try
    End Sub

    'Evento al hacer clic en el boton ocultar y se encontrara el icono para volverlo a abrir en el area de notificacion de iconos  junto a la hora del equipo
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOcultar.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se ocultara el formulario
            Me.Hide()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#4'")
        End Try
    End Sub

    'Evento al hacer clic en cancelar apagado que esta en el contextpmenustrip
    Private Sub CancelarApagadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelarApagadoToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se cerrara el formulario
            Me.Close()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#5'")
        End Try
    End Sub
End Class