Mensajes

Esto es así necesito que alguien me den una mano con esto:

Hay un juego que consiste en dar clicks a un guante para darle a los demas(mientras mas clicks hagas mejor es) para esto necesitas tener su ficha que la obtenes clikeando al usuario y la ficha del usuario te sale con el guante para clikear.
lo que necesitaba es que clikee al puño sin que yo tenga que clikear.
Lo que quiero que haga es esto:
http://www.youtube.com/watch?NR=1&v=u9vZM7lb7is&feature=endscreen
sin tener clikeado al otro le da pero para darlo necesitas hacer esto:
http://www.youtube.com/watch?v=S2L8kv5tt5g

bueno yo pensé que para la parte de los clicks podemos hacer esto

Public Class Form1
    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    Private Const mouseclickup = 4
    Private Const mouseclickdown = 2
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

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

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
        Timer1.Interval = NumericUpDown1.Value
        Label1.Text = Windows.Forms.Cursor.Position.X
        Label2.Text = Windows.Forms.Cursor.Position.Y

        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)

        mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)

        Windows.Forms.Cursor.Position = New Point(Label1.Text, Label2.Text)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F1)
        If hotkey = True Then Timer1.Start()
        Dim hotkey1 As Boolean
        hotkey1 = GetAsyncKeyState(Keys.F2)
        If hotkey1 = True Then Timer1.Stop()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim Posicion As Boolean
        Posicion = GetAsyncKeyState(Keys.F3)
        If Posicion = True Then
            TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y
        End If
        If Posicion = False Then
        End If
    End Sub

    End Sub
End Class

pero me faltaria la otra mitad gracias...