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:
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í:
Ese es timer1 y timer 2, para el siguiente click:
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:
Y aquí una imágen del programa:
http://img339.imageshack.us/i/20110418160439.jpg/
Código [Seleccionar]
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]
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]
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]
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/