Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2012, 07:55   #11
als999
Пользователь
 
Регистрация: 15.11.2010
Сообщений: 17
По умолчанию

В итоге автоматизировать запись удалось с использованием макроса в браузере (макрос записал с использованием плагина iMacros, плагин доступен для Firefox и Chrome).
Запись через макросы VBA допилить не удалось, т.к. не разобрался, как сделать, чтобы часть кода, в которой нажимается кнопка, запускалась ровно в 09:00:00.
als999 вне форума Ответить с цитированием
Старый 11.07.2012, 06:40   #12
als999
Пользователь
 
Регистрация: 15.11.2010
Сообщений: 17
По умолчанию

Итоговый код процедуры, который решает поставленную в первом посте задачу (может кому-нибудь пригодится):

Вводные данные: IE запущен, открыта страница (для примера mail.rambler.ru)

Sub rec01()

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 , "Internet Explorer") <> 0 Then
Set ie = ShellWindows.Item(i)
End If
Next
x = 0
tmp = 0
n = Date + TimeValue("09:00:00")

While x = 0
If DateDiff("s", Now, n) = 0 Then
x = 1
ie.document.getelementbyID("login") .Value = "***"
ie.document.getelementbyID("passwor d").Value = "***"
ie.document.getelementbyID("profile .send").Click
End If
Wend

End Sub
als999 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
эмуляция нажатия клавиши F Vitek_DeadlyHunter Общие вопросы Delphi 3 03.11.2011 12:44
Как имитировать клик мыши в определенном месте в браузере iukash Qt и кроссплатформенное программирование С/С++ 5 17.02.2011 15:28
Эмуляция нажатия клавиши helenfly Win Api 9 01.12.2009 12:09
Эмуляция нажатия клавиши...... Zoidberg Win Api 4 11.01.2007 18:44