Вызов браузера из VB и эмуляция нажатия левой клавиши мыши в определенном месте

[als999]

Доброго времени суток уважаемые форумчане.
Я работаю в организации, в которой очень много сотрудников, а столовая одна на всех.

Очередь в столовую формируется электронно: в определенное время (в 9:00:00) на веб-странице (доступной только через внутреннюю сеть) в определенном месте появляется кнопка "Записать в очередь" (кнопка появляется без перезагрузки страницы).

Пользователи со всех подразделений начинают нажимать эту кнопку (как правило начинают нажимать на место, где должна появиться кнопка, за пару секунд до ее появления, и жмут много раз с максимальной частотой).

В течение около 10-30 секунд после наступления 9:00:00 на веб странице крутится значок "ожидание" (который обычно появляется, когда в браузере нажал на ссылку, но страница еще не загрузилась). После загрузки страницы все видят очередность похода подразделений на обед.

Я не знаю почему, но нашему подразделению редко когда получается записаться раньше 3-го десятка, поэтому к приходу в столовую еды уже мало, она остывшая, да и ко времени похода в столовую уже ни о чем, кроме как о еде, не думается ...

Хотелось бы попробовать исключить человеческий фактор при нажатии на кнопку записи. Из доступных на моем рабочем месте инструментов, которые могут автоматизировать процесс записи - только Excel с VB.

Как я представляю, можно в процедуре VB написать программу по следующему алгоритму:
___________________________
1. активировать браузер
2. перевести курсор мыши на место, где появляется кнопка записи в очередь
3. эмулировать нажатие левой клавиши мыши на текущем положении курсора с периодичностью, например, 10 миллисекунд в течение 10 секунд.
___________________________

Как пройти первый шаг - понятно (AppActivate "Очередь в столовую"), а вот как реализовать шаги 2 и 3 - не смог найти.

Прошу вашей помощи.

[Watcher_1]

Приветствую!
Зачем переводить курсор у кнопки есть событие Click
Вот его и нужно обработать
Вот пример захода на mail.ru

Sub AutomateIE()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate ("mail.ru")
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
  
    ie.document.getelementbyID("mailbox__login").Value = "*************"
    ie.document.getelementbyID("mailbox__password").Value = "**********"
    ie.document.getelementbyID("mailbox__auth__button").Click
    
End Sub

[als999]

Watcher_1, спасибо за оперативный ответ.
В коде страницы код для кнопки такой: <button id="Record" type="submit" title="Записать в очередь" ...>Записать</button>
Значит, мне вместо ie.document.getelementbyID("mailbox __auth__button").Click из вашего примера нужно написать ie.document.getelementbyID("Record" ).Click?

[Watcher_1]

Получается так...

[als999]

Проверить работу макроса пока не могу, т.к. запись открыта в течение часа (с 9:00:00 до 10:00:00), после чего кнопка записи скрывается с экрана.
После проверки отпишусь.

[nerv]

als999, чтобы проверить, Вам необходимо знать ID (или что-то еще) нужных Вам элементов.

Watcher_1, как я себе это представляю:
1. создаем объект IE
2. заходим на нужную страницу
3. используя таймер браузера [setInterval], проверяем появился ли нужный нам элемент через n миллисекунд.
4. как только его обнаружили, кликаем

[als999]

nerv, в приведенном мною выше примере кода страницы, ID кнопки, как я понимаю, Record?

Шаги алгоритма 1, 2 - теже что и в коде Watcher_1, а вот 3-4 как реализовать?

[als999]

Watcher_1, код в целом работает, но в таком виде задачу не решает. Причина - в момент загрузки IE перед 09:00:00 сервер висит и страница не успевает загрузиться. Т.е. нужно чтобы IE загружался заранее, а программно нужно только нажать кнопку.
Вопрос в том, как после активации IE (кодом AppActivate "Очередь в столовую") обратиться к элементу с id Record?

[Watcher_1]

Пробуем такой вариант НО Internet Explorer должен быть запущен и страница загружена

Dim ShellApp
Set ShellApp = CreateObject("Shell.Application")
Dim ShellWindows
Set ShellWindows = ShellApp.Windows()
Dim i
For i = 0 To ShellWindows.Count - 1
    If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        Set ie = ShellWindows.Item(i)
    End If
Next
'MsgBox ie.LocationURL
ie.document.getelementbyID("mailbox__login").Value = "********"
ie.document.getelementbyID("mailbox__password").Value = "*********"
ie.document.getelementbyID("mailbox__auth__button").Click

[als999]

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

Пробуем такой вариант

вариант рабочий, только вместо

InStr(ShellWindows.Item(i).FullName, "iexplore.exe")

нужно ввести

InStr(ShellWindows.Item(i).FullName, "Internet Explorer")

Но записаться все равно не удалось
Я кнопку нажимаю в цикле, и видимо он бежит слишком часто, что кнопка не успевает отобразиться. Нужно либо ставить задержку между нажатиями (например, таймером, или вторым внутренним циклом), либо дожидаться наступления 09.00:00 и тогда начинать нажимать. Думаю, второй вариант более надежен.

А как сделать, чтобы часть кода, в которой нажимается кнопка, запускалась ровно в 09:00:00?