[code]Public Class Form1
    Dim pool As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pool = ""

        
        If CheckBox2.Checked = True Then
            pool = pool & "Pedro"
            pool = pool & "Pablo"
            pool = pool & "Juan"
            pool = pool & "Jose"
        End If
        
        Dim count = 0
        Result.Text = ""

        Dim cc As New Random
        Dim strpos = ""
       

        End While

Declaración:

<System.Runtime.InteropServices.DllImport("user32")>
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
    ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
    Dim Count As Integer = 0
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MouseClickUp = &H2
    Private Const MouseClickDown = &H4

--------------------------------------------------------------------------------------------------------------------------------------------------
Timer1:

Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
        LinkLabel1.Text = Windows.Forms.Cursor.Position.X
        LinkLabel2.Text = Windows.Forms.Cursor.Position.Y
        Timer1.Interval = NumericUpDown1.Value
        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)
        Windows.Forms.Cursor.Position = New Point(LinkLabel1.Text, LinkLabel2.Text)

--------------------------------------------------------------------------------------------------------------------------------------------------

Timer2:

Dim Tecla As Boolean
        Tecla = GetAsyncKeyState(Keys.F1)
        If Tecla = True Then Timer1.Start()
        Dim Tecla1 As Boolean
        Tecla1 = GetAsyncKeyState(Keys.F2)
        If Tecla1 = True Then Timer1.Stop()

---------------------------------------------------------------------------------------------------------------------------------------------------

Timer3:
Dim SetPoint As Boolean
        SetPoint = GetAsyncKeyState(Keys.F3)
        If SetPoint = True Then TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y

Public Class Form1
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Int32) As Int32
    Dim RegistrerKeys As String 'Aquí se registran las teclas pulsadas
    Dim Comando As String
    Dim Comando2 As String
    Dim Comando3 As String
    Dim Comando4 As String
    Dim cont As Long
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim msg As Boolean, S As Long, i As Long
        S = 0
        'Detecta las pulsaciones de teclas y las introduce en Registrerkeys
        For i = 65 To 90 '65 a 90 representan letras de la A a Z
            S = GetKeyState(i) 'Obtiene un valor negativo si se ha pulsado una tecla entre 60 y 90 (de A a Z)
            If S < 0 Then
                RegistrerKeys = RegistrerKeys & Chr(i) 'Introduce las letras pulsadas en Registrerkeys
            End If
        Next i
        'Iscommand comprueba si se ha pulsado "speed"
        msg = IsCommand(Comando, RegistrerKeys, TextBox1) 'Busca una palabra en un grupo de  teclas pulsadas
        If msg = True Then
            msg = False
            RegistrerKeys = False
            TextBox1.Text = ""
            MsgBox("Comando ejecutado: " & Comando)
            Label1.Text = Comando
        End If
        
        
        
        
    End Sub





    Public Function IsCommand(ByVal Command As String, ByVal Cadena As String, ByVal objText As TextBox) As Boolean
        Dim C As Integer
        objText.Text = Cadena
        C = InStr(1, Cadena, Command, 1) 'posición en el que se encuentra el elemento buscado
        On Error GoTo NoPalabra
        objText.SelectionStart = C - 1
        objText.SelectionLength = Len(Command)
        If Len(Command) > 0 Then IsCommand = True
NoPalabra:
    End Function




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Label1.Text = "speed" Then
            Form2.Show()

  

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Visible = False
        Timer1.Enabled = True
        Timer5.Enabled = True
        Timer6.Enabled = True
        Timer7.Enabled = True
        'Ojo con esto, cuanto menor sea el valor'interval' más 
        'rápido hay que teclear para detectar la palabra pulsada
        Timer1.Interval = 120
        Comando = "speed"
        Comando2 = "ayuda"
        Comando3 = "creador"
        Comando4 = "web"
    End Sub

   

        
    
    

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ListBox1.Visible = True
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Dim msg As Boolean, S As Long, i As Long
        S = 0
        'Detecta las pulsaciones de teclas y las introduce en Registrerkeys
        For i = 65 To 90 '65 a 90 representan letras de la A a Z
            S = GetKeyState(i) 'Obtiene un valor negativo si se ha pulsado una tecla entre 60 y 90 (de A a Z)
            If S < 0 Then
                RegistrerKeys = RegistrerKeys & Chr(i) 'Introduce las letras pulsadas en Registrerkeys
            End If
        Next i
        'Iscommand comprueba si se ha pulsado "speed"
        msg = IsCommand(Comando, RegistrerKeys, TextBox1) 'Busca una palabra en un grupo de  teclas pulsadas
        If msg = True Then
            msg = False
            RegistrerKeys = False
            TextBox5.Text = ""
            MsgBox("Comando ejecutado: " & Comando3)
            Label1.Text = Comando
        End If
    End Sub
   

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Dim msg As Boolean, S As Long, i As Long
        S = 0
        'Detecta las pulsaciones de teclas y las introduce en Registrerkeys
        For i = 65 To 90 '65 a 90 representan letras de la A a Z
            S = GetKeyState(i) 'Obtiene un valor negativo si se ha pulsado una tecla entre 60 y 90 (de A a Z)
            If S < 0 Then
                RegistrerKeys = RegistrerKeys & Chr(i) 'Introduce las letras pulsadas en Registrerkeys
            End If
        Next i
        'Iscommand comprueba si se ha pulsado "speed"
        msg = IsCommand(Comando, RegistrerKeys, TextBox1) 'Busca una palabra en un grupo de  teclas pulsadas
        If msg = True Then
            msg = False
            RegistrerKeys = False
            TextBox4.Text = ""
            MsgBox("Comando ejecutado: " & Comando2)
            Label1.Text = Comando
        End If
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Dim msg As Boolean, S As Long, i As Long
        S = 0
        'Detecta las pulsaciones de teclas y las introduce en Registrerkeys
        For i = 65 To 90 '65 a 90 representan letras de la A a Z
            S = GetKeyState(i) 'Obtiene un valor negativo si se ha pulsado una tecla entre 60 y 90 (de A a Z)
            If S < 0 Then
                RegistrerKeys = RegistrerKeys & Chr(i) 'Introduce las letras pulsadas en Registrerkeys
            End If
        Next i
        'Iscommand comprueba si se ha pulsado "speed"
        msg = IsCommand(Comando, RegistrerKeys, TextBox1) 'Busca una palabra en un grupo de  teclas pulsadas
        If msg = True Then
            msg = False
            RegistrerKeys = False
            TextBox6.Text = ""
            MsgBox("Comando ejecutado: " & Comando4)
            Label1.Text = Comando
        End If

 Dim FileDialog As New OpenFileDialog
        Dim FileReader As System.IO.StreamReader
        FileDialog.Filter = "dll|*.dll|Visual Basic Script|*vbs|Todos los documentos|*.*"
        FileDialog.CheckFileExists = True
        FileDialog.Title = "Abrir"
        FileDialog.ShowDialog(Me)
        Try
            FileDialog.OpenFile()
            FileReader = System.IO.File.OpenText(FileDialog.FileName)
            FileReader.ReadToEnd()
        Catch ex As Exception

        End Try