Problema Con Autoclick.

[Brasan789]

Hola buenas, me han dicho que usando la Opcion ToString en autoclicks de .NET se obtiene más eficacia yo querria saber como hacer para que no me de errores  aqui estaria el codigo :

Código (vbnet) [Seleccionar] Expandir

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 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.F9)
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


Mod: tema modificado, Publica codigo usando Etiquetas GeSHi

[Eleкtro]

me han dicho que usando la Opcion ToString en autoclicks de .NET se obtiene más eficacia

¿pero eficacia ...de que?, no se entiende lo que has dicho, la extensión .ToString devuelve una representación String del objeto en cuestión, ¿con la eficacia de que otra cosa lo quieres comparar?.

querria saber como hacer para que no me de errores

Especifica que error tienes con el código que has mostrado, o que intentas implementar sin que te vaya a dar errores.

• 10 pasos para plantear una duda informática
• FAQ : Como hacer preguntas "inteligentes"

EDITO:
Si te estás refieriendo a modificar el valor de la propiedad .Text del Label y del Textbox del código que has mostrado para usar los datatypes correctos (String), como por ejemplo aquí:

Código (VBNET) [Seleccionar] Expandir

TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y

Entonces solo tienes que especificar la extensión ToString así:

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = MousePosition.X.ToString
TextBox2.Text = MousePosition.Y.ToString

Pero de todas formas es algo innecesario, ya que el compiler lo hace automáticamente, pero puedes convertirlo a String como en el ejemplo para mostrar buenas prácticas de uso del lenguaje.,
no se si eso es lo que preguntas.

Saludos

[Brasan789]

Me refiero a aumentar la potnecia de clicks

[engel lex]

Me refiero a aumentar la potnecia de clicks

si le haces clicks más potentes no se daña el mouse? mira que con hacer click más fuerte no se hace nada 

[Eleкtro]

Me refiero a aumentar la potnecia de clicks

Pues eso no tiene nada que ver con lo que dijiste al principio, con la función ToString.

⇲ Lee aquí:
Re: Dudas con Timer como sustituto de Sleep -- por precisión del tiempo