[VB6] Autoclick

[boluart]

abre un nuevo formulario, agregale 2 botones y pon este codigo:

Código:

 
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONUP As Long = &H202
Private Const WM_LBUTTONDOWN As Long = &H201
Private Sub Command1_Click()
    Dim DaWord As Long
    DaWord = MakeDWord((Command2.Width / 15) / 2, (Command2.Height / 15) / 2)
    SendMessage Command2.hwnd, WM_LBUTTONDOWN, 1&, ByVal DaWord
    SendMessage Command2.hwnd, WM_LBUTTONUP, 1&, ByVal DaWord
End Sub
Private Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function
Private Sub Command2_Click()
MsgBox "button2"
End Sub