Помогите плиз! Нужно написать прогу на Визео Васике которая передвигает курсор мышки и кликает (сама) разными кнопками Левой (и двойной) Правой и Средней. Как передвинуть курсор нашел, а вот кликнуть... Ответить лучше на мыло. Зараннее багодарен Дима.
Добрый день, Dima! Поищи описание функции mouse_event, а вообще на vbnet.ru есть то, что тебе нужно. Ответ отправлен: 14.03.2003, 21:29 Отправитель: Igoryk Отвечает Licvidator
Здравствуйте, Dima! Если ты хочешь программным образом имитировать щелчок мышью на каком-то элементе управления, то для этого следует воспользоваться API-функцией SendMessage, для которой второй параметр должен быть равен BM_CLICK = &HF5, а два следующие — нулю. Если элемент управления, который ты хочешь щелкнуть, будет некоторое время отрабатывать этот щелчок, то следует выполнить асинхронный щелчок с помощью функции PostMessage. Для проверки этого алгоритма выполни такой тестовый пример: *** 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 Declare Function PostMessage _ Lib "user32" Alias "PostMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long Private Const BM_CLICK = &HF5
Private Sub Command2_Click() Debug.Print "Начало Command1_Click" Call SendMessage(Check1.hwnd, BM_CLICK, 0, ByVal 0&) Call SendMessage(Option1.hwnd, BM_CLICK, 0, ByVal 0&) Call SendMessage(Command1.hwnd, BM_CLICK, 0, ByVal 0&) Debug.Print "Конец Command1_Click" End Sub
Private Sub Option1_Click() Debug.Print "Option1_Click" End Sub
Private Sub Check1_Click() Debug.Print "Check1_Click" End Sub
Private Sub Command1_Click() Debug.Print "Command1_Click" End Sub *** А вот как имитировать нажатие остальных кнопок я не знаю. Надо поиграться с константами &HF5, попробовать подобрать:) Ответ отправлен: 14.03.2003, 10:49 Отправитель: Licvidator
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.