procedure ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;
Генерация события нажтия кнопки мыши.
Здравствуйте уважаемые.......я хотел бы узнать как мне можно программно генерировать нажатия кнопки мыши(например ЛКМ).При чём нажатия долнжы происходить не только в облости моего прилложения но и за его границами,т.е.даже когда приложение не активно(не находится в фокусе) нажатия ЛКМ все равно генерируются...в принципе всё...
Если лень вывкладывать куски кода,то хотя бы просто скажите от чего отталкиваться.Заранее Спасибо!
Если лень вывкладывать куски кода,то хотя бы просто скажите от чего отталкиваться.Заранее Спасибо!
Вот такая штука кликает по форме в окне, хендл и заголовок которого указываются входящими параметрами. Покрутите, мож чего выйдет..
Если хотите, чтобы курсор попадал в случайную позицию на мониторе, можно делать так:
Код:
Если хотите, чтобы курсор попадал в случайную позицию на мониторе, можно делать так:
Код:
randomize;
SetCursorPos(random(Screen.Width-1), random(Screen.Height-1));
SetCursorPos(random(Screen.Width-1), random(Screen.Height-1));
Код:
procedure ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;
Спасибо покручу.....=)тока вот я как понял этот код заставляет кликать по форме....
а мне на до чуть чуть другое....вообщем всё равно спасибо
Код:
randomize;
SetCursorPos(random(Screen.Width-1), random(Screen.Height-1));
SetCursorPos(random(Screen.Width-1), random(Screen.Height-1));
Это ужо знаю...только делал чуть чуть по другому через Windows.SetCursor вроди так....
Отталкивайся от "перехват событий", "hook". Поищи на фоуме или гугле. Тема разжевана.
Цитата: yager84
Отталкивайся от "перехват событий", "hook". Поищи на фоуме или гугле. Тема разжевана.
это ещё зачем?
CrazyTimon тебе надо переместить курсор внужное место и нажать кнопку мыши или же нажать на какую-то кнопку в чужом окне? в любом случае посмотри FAQ раздела
нажать какуюто нопку в чужом окне.....если точнее в браузере.....
кнопка - элемент страницы?
CrazyTimon, посмотри на функцию mouse_event. Она не привязана к окнам, т.е. с помощью нее можно полностью сэмитировать мышь.
создание накрутчика намечается?
ну чтото типо того.....росто часто нужно бывает =)
тему можно закрывать....ибо нашёл сцылку http://tripsin.narod.ru/articles/mouse_imitation/mouse_imitation.htm