|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.07.2012, 07:55 | #11 |
Пользователь
Регистрация: 15.11.2010
Сообщений: 17
|
В итоге автоматизировать запись удалось с использованием макроса в браузере (макрос записал с использованием плагина iMacros, плагин доступен для Firefox и Chrome).
Запись через макросы VBA допилить не удалось, т.к. не разобрался, как сделать, чтобы часть кода, в которой нажимается кнопка, запускалась ровно в 09:00:00. |
11.07.2012, 06:40 | #12 |
Пользователь
Регистрация: 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 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
эмуляция нажатия клавиши 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 |