Эмуляция нажатия клавиш мыши

[Painkiller_13]

Есть програма которая имитирует нажатия мышкой по координате.

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down 
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up 

Cursor.Position = New Point(x, y)
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

Код работает но при этом мышка перемещаеться перед кликом на указаною координату. Как зделать что клик был но сама мышка не двигалась.
Или как можно например имитировать щелчки в другом окне которое свернуто. То окно в которое будет посылаться клики мышкой не должно становиться активным оно должно оставаться фоновым.

[waleri]

Измените окно, чтоб оно не реагировало на нажатие мыши.

[Painkiller_13]

И как например изменить окно калькулятора или блокнота?
Тут нужно использовать функции API
Найти хендл окна и отправить ему через SendMessage код кнопки только я ни как не могу разобраться как это зделать.

[waleri]

Можно попробовать через FindWindow но этого может оказаться недостаточно.
Найти в списке процессов нужный, потом просмотреть все окна и проверить, какие окна относятся к этому процессу.

Читайте про Process32First(), EnumWindows() и GetWindowThreadProcessId()

[Painkiller_13]

Почему при поиске окна у меня выдает набор разных цифр (90194313216,4439226657538048) и тд хотя если заголовок окна не найдет должен возрашаться ноль.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowsName As String) As Long

Dim hwnd As Long
hwnd = FindWindow(vbNullString, Textbox1.text)
Label1.Text = hwnd

Заголовки и класы искал через Spy++