Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Обработка onload в vbs файле / 6 сообщений из 6, страница 1 из 1
25.06.2008, 21:58
    #35394937
evStranger
evStranger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
Помогите чайнику. Необходимо перехватить загрузку страницы в браузер в vbs скрипте. Пытаюсь сделать это следующим макаром:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Mine()
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application")
    ie.visible = True
    ie.Document.body.onload = tonLoad()
	Call ie.Navigate("ya.ru")
End Sub

Sub tonLoad()
	msgbox("Loaded")
End Sub

Call Mine()
Загвоздка в строке ie.Document.body.onload = tonLoad(), в ней же и весь смысл. Есть ли какие-то соображения по этому поводу? Заранее благодарен.
-------------------------------------------------------------------------------------
Ad cogitandum et agendum homo natus est
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 00:28
    #35395046
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
А чего вы хотели? Чтоб Document сменился, а body осталось? Такого в природе не бывает.

У ie есть собственные события, их и используйте. Например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Set ie = WScript.CreateObject("InternetExplorer.Application", "IE_")

ie.Visible =  1 
Wscript.Sleep  1000 

ie.navigate "www.sql.ru"

While ie.readyState<> 4 
    Wscript.Sleep  200 
Wend

Sub IE_BeforeNavigate2(ByVal pDisp, ByRef url, ByRef Flags, ByRef TargetFrameName, _
                       ByRef PostData, ByRef Headers, ByRef Cancel)
    Wscript.Echo "Will Navigate to URL <" & URL & ">"
End Sub

Sub IE_NavigateComplete2(ByVal pDisp, ByVal URL)
    Wscript.Echo "Navigation to URL: <"  & URL & "> Complete"
End Sub

Sub IE_DocumentComplete(ByVal pDisp, ByVal URL)
    Wscript.Echo "Document Complete URL: <" & URL & ">"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 01:50
    #35395093
evStranger
evStranger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
Отлично, именно такого решения я и искал. Спасибо
-------------------------------------------------------------------------------------
Ad cogitandum et agendum homo natus est
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2008, 12:32
    #35398482
evStranger
evStranger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
По ходу пьессы возник еще один вопрос: в коде страницы есть строка ява скрипта:
авторTimerOn = setTimeout('RefreshPage()', 10000);
за счет чего страница обновляется каждые 10 секунд. Можно ли из инициирующего VBS скрипта после отработки метода Navigate отключить этот таймер?
-------------------------------------------------------------------------------------
Ad cogitandum et agendum homo natus est
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2008, 12:40
    #35398515
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
Код: plaintext
IE.document.parentWindow.execScript "clearTimeout(TimerOn);"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2008, 13:12
    #35398644
evStranger
evStranger
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка onload в vbs файле
Господи, как же все в итоге просто оказывается... Огромное спаибо
-------------------------------------------------------------------------------------
Ad cogitandum et agendum homo natus est
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Обработка onload в vbs файле / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 377ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1456292]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 267ms
total:  377ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]