Прога нажимает 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 - он всё время спрашивает загружать или нет? :)

 

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ