Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 055
от 16.03.2003, 23:10

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 89
Отправлено ответов: 107
Активность: 120.2 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Igoryk
Статус: Профессиональный
Общий рейтинг: 129.44
URL: IgorykSoft
[Подробней >>]
Licvidator
Статус: Опытный
Общий рейтинг: 142.51
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 88. Помогите плиз! Нужно написать прогу на Визео Васике которая передвигает курсор мышки и кликает (сама... (ответов: 2)

Вопросов: 1, ответов: 2


 Вопрос № 88

Помогите плиз!
Нужно написать прогу на Визео Васике которая передвигает курсор мышки и кликает (сама) разными кнопками Левой (и двойной) Правой и Средней. Как передвинуть курсор нашел, а вот кликнуть...
Ответить лучше на мыло.
Зараннее багодарен
Дима.



Вопрос отправлен: 13.03.2003, 23:07
Отправитель: Dima (malu2@newmail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Igoryk

Добрый день, 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.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (34)
C / C++ (29)
Perl (6)
Delphi (16)
Pascal (19)
Basic / VBA (11)
Java / JavaScript (10)
PHP (7)
MySQL / MSSQL (6)
Пользователю
Windows 95/98/Me (33)
Windows NT/2000/XP (25)
"Железо" (29)
Поиск информации (14)
Администратору
Windows NT/2000/XP (12)
Linux / Unix (13)
Юристу
Гражданское право (7)
Семейное право (3)
Трудовое право (4)
КоАП (4)

Отправить вопрос всем экспертам выбранной рассылки.




Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное