SendMessage

[Debugger]

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Private Sub Form_Load()
    X = 100
    Y = 100
    SendMessage Me.hwnd, WM_LBUTTONDOWN, MK_LBUTTON, Y * 65536 + X
    SendMessage Me.hwnd, WM_LBUTTONUP, MK_LBUTTON, Y * 65536 + X
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Caption = X \ Screen.TwipsPerPixelX & " " & Y \ Screen.TwipsPerPixelY
End Sub

Необходимо сделать клик по конкретной точке в конкретном окне. mouse_event по неизвестным причинам периодически перестает срабатывать, поэтому он не подходит.
На форуме вычитал SendMessage Me.hwnd, WM_LBUTTONDOWN, MK_LBUTTON, Y * 65536 + X.
Хотя что-то мне говорит о неправильности этого. И заголовок формы тоже сообщает мне, что что-то не так.

[Debugger]

Код: Выделить всё

Private Sub Command1_Click()
    Dim l As Long
    Dim x As Integer
    Dim y As Integer
    x = 100
    y = 100
    l = ((y * 65536) + x)
    SendMessage Me.hwnd, WM_LBUTTONDOWN, 0, ByVal l
    SendMessage Me.hwnd, WM_LBUTTONUP, 0, ByVal l
End Sub

Заработало!