Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];

Вниз

Что не так в процедуре ? ПОДСКАЖИТЕ она эмулирует щелчок мыши   Найти похожие ветки 

 
hammich   (2003-05-14 12:03) [0]

Мне нужна процедура которая эмулирует щелчок мышью по некоторой координате.
Я делаю это вот такой процедурой:

void DoClick(long x, long y)
{
Sleep(2000);
SetCursorPos(x, y);
POINT lpPoint;
GetCursorPos(&lpPoint);
HWND hWnd;
RECT lpRect;
hWnd = WindowFromPoint( lpPoint);
Sleep(500);
GetWindowRect(hWnd,&lpRect);
lpPoint.x = lpPoint.x - lpRect.left;
lpPoint.y = lpPoint.y - lpRect.top;
int lParam = 65536*lpPoint.y + lpPoint.x;
Sleep(100);
SetCapture(hWnd);
Sleep(100);
int nHittest = SendMessage(hWnd, WM_NCHITTEST, 0, lParam);
Sleep(100);
SendMessage(hWnd,WM_NCLBUTTONDOWN,nHittest,lParam);
Sleep(100);
SendMessage(hWnd,WM_NCLBUTTONUP,nHittest,lParam);
Sleep(100);
ReleaseCapture();
}

Дело в том что не во все места данная процедура делает клик,
на некоторые области, например меню, кнопка максимизации она не работает.
Программа виснет на SendMessage(hWnd,WM_NCLBUTTONDOWN,nHittest,lParam);
Я пробовал и сообщения WM_LBUTTONDOWN, WM_LBUTTONUP, все равно не работает.
Что не так? Что нужно изменить?


 
Snap   (2003-05-14 12:36) [1]

Во первых это сайт по ДЕЛЬФИ. Во вторых есть специальная процедура mouse_event, и она очень хорошо описана в МСДН и делает как раз то что тебе нужно. А в третьих я не понял зачем ты ставишь задержку в начале процедуры?



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
14-55843
cyborg
2003-07-01 00:30
2003.07.17
100 самых часто употребимых россиянами слов


1-55583
Max_
2003-07-02 15:39
2003.07.17
RichEdit и загрузка отформатированного текста!


1-55591
denis24
2003-07-03 11:51
2003.07.17
помогите с работой в ворде!!!


14-55833
Blackweber
2003-07-01 10:49
2003.07.17
как запустить из батника несколько екзешников, без явного указани


1-55539
Sheng
2003-07-02 23:20
2003.07.17
Реестр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский