• http://go.microsoft.com/?linkid=9832256

• Microsoft Visual Studio 2013 Ultimate + Resource Pack (Actualizado 09-Oct-2014)

Imports System.Threading
Imports System.Threading.Tasks
 
Public NotInheritable Class TestForm : Inherits Form
 
    ''' <summary>
    ''' Handles the Load event of the TestForm control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub TestForm_Load(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Load
 
        Me.RunAlertAsync(60 * 1000, "Mensaje de alerta")
 
    End Sub
 
    ''' <summary>
    ''' Waits asynchronouslly the specified time interval then shows an alert.
    ''' </summary>
    ''' <param name="interval">The interval, in ms.</param>
    ''' <param name="alertText">The alert text.</param>
    Public Sub RunAlertAsync(ByVal interval As Integer,
                             ByVal alertText As String)
 
        Task.Factory.StartNew(Sub()
                                  Thread.Sleep(interval)
                                  Me.ShowAlert(alertText)
                              End Sub)
 
    End Sub
 
    ''' <summary>
    ''' Shows an alert.
    ''' </summary>
    ''' <param name="text">The alert text.</param>
    Private Sub ShowAlert(ByVal text As String)
 
        MessageBox.Show(text, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
    End Sub
 
End Class

Public NotInheritable Class TestForm : Inherits Form
 
    ''' <summary>
    ''' The timer that will notify an alert.
    ''' </summary>
    Protected WithEvents notifyTimer As New Timer With
        {
            .Interval = 250,
            .Enabled = False
        }
 
    ''' <summary>
    ''' Gets the alert text.
    ''' </summary>
    ''' <value>The alert text.</value>
    Private ReadOnly Property AlertText As String
        Get
            Return "Mensaje de alerta"
        End Get
    End Property
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="TestForm"/> class.
    ''' </summary>
    Public Sub New()
        Me.InitializeComponent()
        Me.InitializeTimer()
    End Sub
 
    ''' <summary>
    ''' Initializes the <see cref="notifyTimer"/>.
    ''' </summary>
    Private Sub InitializeTimer()
        Me.notifyTimer.Enabled = True ' Inicio el temporizador.
    End Sub
 
    ''' <summary>
    ''' Shows an alert.
    ''' </summary>
    ''' <param name="value">The value.</param>
    Private Sub ShowAlert(ByVal value As String)
        MessageBox.Show(value, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub
 
    ''' <summary>
    ''' Handles the Tick event of the Timer1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) _
    Handles notifyTimer.Tick
 
        ' Si el minuto actual es '0', entonces...
        If DateTime.Now.Minute = 0 Then
            DirectCast(sender, Timer).Stop() ' Detengo el temporizador.
            Me.ShowAlert(Me.AlertText) ' Muestro la alerta.
        End If
 
    End Sub
 
End Class

Type "archivo.txt" | Find /I "nombre a mostrar"

Type "archivo.txt" | Find /I /V "nombre a eliiminar"

for /f "tokens=*" %%c in (amigo-invisible.txt) do (set amigo=%%c)