Public Class Form1 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        My.Computer.Keyboard.SendKeys(TextBox1.Text) 
        My.Computer.Keyboard.SendKeys("{enter}" 
    End Sub 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label5.Text = TextBox1.Text 
        Timer1.Enabled = True 
        PictureBox1.Visible = False 
        PictureBox2.Visible = True 
        Button1.Enabled = False 
        Button2.Enabled = True 
    End Sub 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False 
        PictureBox1.Visible = True 
        PictureBox2.Visible = False 
        Button1.Enabled = True 
        Button2.Enabled = False 
    End Sub 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Interval = TextBox2.Text 
        Label4.Text = TextBox2.Text 
    End Sub 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    End Sub 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
    End Sub 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub 
    Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    End Sub 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = "" 
    End Sub 
End Class 

Descarga: http://www.mediafire.com/download.php?iqdv16opt69jn6q

Pass: Pass: HTG-hackthegame