[VB] ¿Cómo hacer para parar el Timer?

[avmiitxe]

Hola, he hecho un programa en Visual Basic 2008 que dá los clicks automáticos, es decir, hay 2 TextBoxes, una es al dirección X y la otra la Y y cuando le das al botón de start, el ratón va a esa dirección y le dá click automático, aquí teneis el código:

Código [Seleccionar] Expandir

Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)


Eso es lo que tengo en el Timer1 y entonces le añadí al programa más direcciones para dar más clicks, es decir primero va a X dirección y despues a otra.
así:

Código [Seleccionar] Expandir

        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label3.Text = ("Ya")
        If Label3.Text = "Ya" Then
            Timer1.Enabled = False
            Timer2.Enabled = True
   
        End If

Ese es timer1 y timer 2, para el siguiente click:

Código [Seleccionar] Expandir

      Windows.Forms.Cursor.Position = New Point(TextBox3.Text, TextBox4.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label4.Text = ("Yaa")
        If Label4.Text = "Yaa" Then
            Timer2.Enabled = False
            Timer3.Enabled = True
     
        End If


Como veis tengo que hacer que los labels camibien para que el primer timer se pare y inicie el segundo.
Me parece un poco cutre poner que un label se tiene que llamar de X forma para que pare el timer e inicie el otro timer.

¿hay algún code para que el timer pare después de 2 segundos o después de hacer el click?

Gracias de antebrazo.

Aquí teneis el código completo de todo mi programa:

Código [Seleccionar] Expandir

Public Class Form1
    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long)
    Public Const LinksDown = &H2
    Public Const LinksUp = &H4
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Interval = TextBox25.Text
        Timer2.Interval = TextBox26.Text
        Timer3.Interval = TextBox27.Text
        Timer4.Interval = TextBox28.Text
        Timer5.Interval = TextBox29.Text
        Timer6.Interval = TextBox30.Text
        Timer7.Interval = TextBox31.Text
        Timer8.Interval = TextBox32.Text
        Timer9.Interval = TextBox32.Text
        Timer10.Interval = TextBox32.Text
        Timer11.Interval = TextBox33.Text
        Timer12.Interval = TextBox34.Text



    End Sub

    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(TextBox1.Text, TextBox2.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label3.Text = ("")
        If Label3.Text = "" Then
            Timer1.Enabled = False
            Timer2.Enabled = True
   
        End If
    End Sub

   

    Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Windows.Forms.Cursor.Position = New Point(TextBox3.Text, TextBox4.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label4.Text = ("")
        If Label4.Text = "" Then
            Timer2.Enabled = False
            Timer3.Enabled = True
     
        End If
    End Sub

   

   

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Windows.Forms.Cursor.Position = New Point(TextBox5.Text, TextBox6.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label5.Text = ("")
        If Label5.Text = "" Then
            Timer3.Enabled = False
            Timer4.Enabled = True
       
        End If
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

        Windows.Forms.Cursor.Position = New Point(TextBox7.Text, TextBox8.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label6.Text = ("")
        If Label6.Text = "" Then
            Timer4.Enabled = False
            Timer5.Enabled = True
     
        End If
    End Sub

    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick

        Windows.Forms.Cursor.Position = New Point(TextBox9.Text, TextBox10.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label7.Text = ("")
        If Label7.Text = "" Then
            Timer5.Enabled = False
            Timer6.Enabled = True
     
        End If
    End Sub

    Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox11.Text, TextBox12.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label8.Text = ("")
        If Label8.Text = "" Then
            Timer6.Enabled = False
            Timer7.Enabled = True

        End If
    End Sub

    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox13.Text, TextBox14.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label9.Text = ("")
        If Label9.Text = "" Then
            Timer7.Enabled = False
            Timer8.Enabled = True
   

        End If
    End Sub

    Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox15.Text, TextBox16.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label10.Text = ("")
        If Label10.Text = "" Then
            Timer8.Enabled = False
            Timer9.Enabled = True

        End If
    End Sub

    Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox17.Text, TextBox18.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label11.Text = ("")
        If Label11.Text = "" Then
            Timer9.Enabled = False
            Timer10.Enabled = True

        End If
    End Sub

    Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox19.Text, TextBox20.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label12.Text = ("")
        If Label12.Text = "" Then
            Timer10.Enabled = False
            Timer11.Enabled = True
 
        End If
    End Sub

    Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox21.Text, TextBox21.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label13.Text = ("")
        If Label13.Text = "" Then
            Timer11.Enabled = False
            Timer12.Enabled = True
   
        End If
    End Sub

    Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
        Windows.Forms.Cursor.Position = New Point(TextBox23.Text, TextBox24.Text)
        mouse_event(LinksDown, 0, 0)
        mouse_event(LinksUp, 0, 0)
        Label14.Text = ("")
        If Label14.Text = "" Then
            Timer12.Enabled = False
     
        End If
    End Sub
End Class



Y aquí una imágen del programa:

http://img339.imageshack.us/i/20110418160439.jpg/

[79137913]

HOLA!!!

Esto va en Net

GRACIAS POR LEER!!!

[neoncyber]

Bueno, tal vez si priemero q tu timer se ejecute cada 2000 milis (2seg), ahora en caso q haga clic deberias definir un atributo para tu form

Código (vb) [Seleccionar] Expandir


Private hizoClic As Boolean

y cuando haga clic lo pones en True y llamas al evento q maneja lo de las posiciones

Saludos