[zloy]

ВОбщем даже незнаю как реализовать все думаю видели прогу radmin там можно на удалённом компьютере щелкать мышкой как будто находишься сам за ним вот никто не поможет с реализацией
Кстати это не для вируса для совершенно полезной проги

[mav_c]

Сообщение от zloy

ВОбщем даже незнаю как реализовать все думаю видели прогу radmin там можно на удалённом компьютере щелкать мышкой как будто находишься сам за ним вот никто не поможет с реализацией
Кстати это не для вируса для совершенно полезной проги

Посылай сообщения мышки тому окну которому нужно с помощью SendMessage. Для всех окон используй дескриптор окна = 0. Сообщения мыши WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RIGHTBUTTONDOWN (И др. см. в MSDN)

[X-rem]

Не... Нужно WebBrowser Добавить в Uses и на форму
Там ардес будет ну например: //Server
И будет тебе.

[mav_c]

Сообщение от X-rem

Не... Нужно WebBrowser Добавить в Uses и на форму
Там ардес будет ну например: //Server
И будет тебе.

Чёт ты не то говориш!
Ты наверна не так понял.

[DSL88]

Есть такое событие. В каждой дельфе (писал работу по удаленному помошнику и там мона была тыкать).
После долгих ковыряний в хелпах и исходниках найдено:

Код:

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Mouse.CursorPos.X, Mouse.CursorPos.Y,0,0);
//нажимаем кнопочку мышки (левую естественно)
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Mouse.CursorPos.X, Mouse.CursorPos.Y,0,0);
//отжимаем

есть процедура нажатия одной строчкой, тока не помню как...
Mouse.CursorPos.X - Положение для нажатия мышки по вертикали
Mouse.CursorPos.Y - Положение для нажатия мышки по горизонтали
что значат два остальных параметра я так и не узнал

Да, и еще: модуль Windows должен быть подключен.

[-sanya-]

---------------------------------------------------------------------------
НАЖАТЬ НА ЛЕВУЮ КНОПКУ МЫШКИ

Mouse_event(MOUSEEVENTF_LEFTDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_LEFTUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
НАЖАТЬ НА ПРАВУЮ КНОПКУ МЫШКИ

Mouse_event(MOUSEEVENTF_RIGHTDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_RIGHTUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
НАЖАТЬ НА КОЛЕСИКО МЫШКИ

Mouse_event(MOUSEEVENTF_MIDDLEDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_MIDDLEUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
-----------------------------------------------------------------------------------