Может это подойдет, надо каплю доработать... Источник: http://www.azbukavb.narod.ru/advice/advice2.html#6 Rlzz Напишите как , что бы прога на Байсике эмулировала нажатие Enter на системном сообщении из браузера. Пришло много аллертов , а неохота выгружать браузер - лучше пусть прога старается нажимает ENTER на сообщение.
Если я всё правильно понял, то от меня требуется программа, которая периодически шлёт браузеру нажатие клавиши ENTER? Итак, вперёд! Для того, чтобы чему-нибудь послать нажатие клавиши, это нужно сначала активизировать. Для активизирования окна отлично подходит комманда AppActivate. Но она требует заголовок окна, которое нужно активизировать, или хотя бы первые буквы заголовка. В этом случае нам повезло - когда браузер шлёт алерты, то в заголовках стоит его имя! В моём случaе это Netscape. Если же у Вас Internet Explorer, то и стоять там будет что-то подобное - что выявите сами. А теперь нам нужно написать саму программу. 1.Создайте стандартный проект. 2.На него повешайте объект таймер. Интервал же нужно установитьв зависимости от того, с какой частотой должны посылаться нажатия. Возьмём одну десятую секунды - Interval = 100. 3.Теперь нужно сделать двойной клик по таймеру и открыть окно Code. Впишите: Private Sub Timer1_Timer() On Error GoTo abc 'в случае возникновения ошибки выходим на _ метку abc, ошибки возникнут непременно, т.к. _ программа будет работать и во время отсутствия _ окон - аллертов. Активирование же окна, которого нет _ вызывает ошибку AppActivate "Netscape" 'Активируем окно с заголовком Netscape _ '(Internet Explorer) SendKeys "~" 'Посылаем клавишу ENTER: строка "~" идеентична 'строке "{ENTER}" abc: 'а это метка abc, на которую мы выходим при возникновинии _ ошибки, метка abc ведёт нас прямо к выходу из процедуры End Sub Теперь же нужно просто запустить программу и все аллерты она будет закрывать сама! Кстати, получилась весьма полезная программка для пользователей Netscape - он всё время спрашивает загружать или нет? Удачи!
Ответить
|