Temas

Hola buenas, quisiera saber cúal de vosotros me daría sus servicios en la creacion de un bot , ese programador por supuesto se hablaria de su precio por el trabajo

[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 :]

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

[Como Ponerle a un NumericUpDown Para un Autoclicker? En Microsoft Visual Studio 2013]

Como Ponerle a un NumericUpDown Para un Autoclicker? En Microsoft Visual Studio 2013

Como Puedo Ponerle Numeros Binarios A Un Programa De Visual Basic 2008

Como Puedo Ponerle Numeros Binarios A Un Programa De Visual Basic 2008

Hola si quisiera saber como hacer un autoclick que de clicks en Nanosegundos

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 MOUSEEVENTF_MOVE = 1
    Private Const MOUSEEVENTF_LEFTDOWN = 2
    Private Const MOUSEEVENTF_LEFTUP = 4
    Private Const MOUSEEVENTF_RIGHTDOWN = 8
    Private Const NULLunString = 3
    Private Const MouseClickUP = 1
    Private Const MouseClickDown = 1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Dim campo1
    Dim campo2
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim hotkey2 As Boolean
        hotkey2 = GetAsyncKeyState(Keys.F9)
        If hotkey2 = True Then
            TextBox1.Text = campo1
            TextBox2.Text = campo2
            campo1 = Cursor.Position.X
            campo2 = Cursor.Position.Y
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    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(TextBox1.Text, TextBox2.Text)
        mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)
    End Sub

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

End Class