Hola, me topé con este foro y vi algunos temas interesantes y pensé que aquí podría ser ayudado y aprender un poco más sobre VB. Estoy creando un autoclick y no veo que sea muy eficaz, les voy a dejar los códigos para que ustedes me digan en qué fallo, si hay algún error, podría mejorar esto o lo otro:

Public Class Form1
<System.Runtime.InteropServices.DllImport("user32")>
Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
End Function
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
Shadows DoubleClick = 2
Shadows MouseDoubleClick = 4
Dim valueinterval = 4
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Event Click1 As Action(Of AccessibleEvents)
Event Click2 As Action(Of AccessibleEvents)
Event Click3 As Action(Of AccessibleEvents)

Public Sub EnableDoubleBuffering()
' Set the value of the double-buffering style bits to true.
Me.SetStyle(ControlStyles.DoubleBuffer _
Or ControlStyles.UserPaint _
Or ControlStyles.AllPaintingInWmPaint, _
True)
Me.UpdateStyles()
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(DoubleClick, 0UI, 0UI, 0UI, 0UI)
mouse_event(MouseDoubleClick, 0UI, 0UI, 0UI, 0UI)
mouse_event(valueinterval, 0UI, 0UI, 0UI, 0UI)



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 Class







Es que no da muchos clicks y sé que para que los dé es repetir una y otra vez la función mouse_event pero me gustaría que me explicaran más la forma del mouse_event se supone que es la forma en la que da los clicks al añadirle números y simbología, gracias.
CarlosElCurioso98 escribió:Hola, me topé con este foro y vi algunos temas interesantes y pensé que aquí podría ser ayudado y aprender un poco más sobre VB. Estoy creando un autoclick y no veo que sea muy eficaz, les voy a dejar los códigos para que ustedes me digan en qué fallo, si hay algún error, podría mejorar esto o lo otro:

Public Class Form1
<System.Runtime.InteropServices.DllImport("user32")>
Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
End Function
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
Shadows DoubleClick = 2
Shadows MouseDoubleClick = 4
Dim valueinterval = 4
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Event Click1 As Action(Of AccessibleEvents)
Event Click2 As Action(Of AccessibleEvents)
Event Click3 As Action(Of AccessibleEvents)

Public Sub EnableDoubleBuffering()
' Set the value of the double-buffering style bits to true.
Me.SetStyle(ControlStyles.DoubleBuffer _
Or ControlStyles.UserPaint _
Or ControlStyles.AllPaintingInWmPaint, _
True)
Me.UpdateStyles()
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(DoubleClick, 0UI, 0UI, 0UI, 0UI)
mouse_event(MouseDoubleClick, 0UI, 0UI, 0UI, 0UI)
mouse_event(valueinterval, 0UI, 0UI, 0UI, 0UI)



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 Class

Es que no da muchos clicks y sé que para que los dé es repetir una y otra vez la función mouse_event pero me gustaría que me explicaran más la forma del mouse_event se supone que es la forma en la que da los clicks al añadirle números y simbología, gracias.
Es mejor analizar por lo
Public Class Form1
    <System.Runtime.InteropServices.DllImport("user32")>
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
    ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
    Shadows DoubleClick = 2
    Shadows MouseDoubleClick = 4
    Dim valueinterval = 4
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Event Click1 As Action(Of AccessibleEvents)
    Event Click2 As Action(Of AccessibleEvents)
    Event Click3 As Action(Of AccessibleEvents)

    Public Sub EnableDoubleBuffering()
        ' Set the value of the double-buffering style bits to true.
        Me.SetStyle(ControlStyles.DoubleBuffer _
          Or ControlStyles.UserPaint _
          Or ControlStyles.AllPaintingInWmPaint, _
          True)
        Me.UpdateStyles()
    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(DoubleClick, 0UI, 0UI, 0UI, 0UI)
        mouse_event(MouseDoubleClick, 0UI, 0UI, 0UI, 0UI)
        mouse_event(valueinterval, 0UI, 0UI, 0UI, 0UI)



        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 Class
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
Te dejo de un autoclicker en au3 q acabo de escribir, supongo que funcionara, no he podido testearlo por que no tengo compilador ahora mismo
msgbox(0, "Aviso", "Los clicks se ejecutaran en 5 segundos")
local $clicksnum = "20"
sleep(5000)

for $c = 0 to $clicksnum 
mouseclick("left")
sleep(10)
next

msgbox(0, "Completado", "Ya se han realizado los " & $clicksnum & "clicks.")
666699966999999996699966699999
666699966999999996699966969999
699999966999999996699966996999
666699966999999996699966999699
666699966999999996699966999699
699999996699999966999966996999
699999999669999669999966969999
699999999996666999999966699999
https://reversecodes.wordpress.com

http://indeseables.github.io/
Responder

Volver a “Manuales”