เป็น Code Auto Click นะครับผม ลองศึกษากันดูนะครับ

Code ที่ผมใช้นะคับ

[HIDE-THANKS][HIDE="5"]ก่อนอื่นเลยสร้าง Form ให้มีหน้าตาดังนี้



Button 3 / Label 1 / Timer 1 (อย่าลืม Timer ด้วยนะครับ สำคัญ)

แล้ว Copy Code นี้ไปวาง ใน Form เลยครับผม
Code:
Public Class Form1
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    Private Sub MyMethod()
        Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
        mouse_event(&H2, 0, 0, 0, 1)
        mouse_event(&H4, 0, 0, 0, 1)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Label1.Text + 1
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MyMethod()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Stop()
    End Sub
End Class
แล้วลอง คลิก ปุ่ม Start แล้ว ไปวาง ใน ปุ่ม Click นะครับ สังเกตุ ได้ว่า Label จะเพิ่ม ขึ้นเรื่อย ๆ ส่วน เรื่อง ความ เร็วในการ คลิกนั้นอยู่ ที่ Interval ของ Timer นะครับ ยิ่งน้อย ยิ่งรัว นะครับ ลองศึกษา กันดูนะครับผม

Credit SmileSiam[/HIDE][/HIDE-THANKS]