Как выясняется кривовато, но поддерживает.
Сегодня наткнулся на статью. Решил поделиться с общестенностью.
http://www.script-coding.info/WSH/WScript.html#3.4.
Вобще конечно хорошо бы сделать раздел для VBScript. Там можно было бы много чего выложить
Пример обработки событий обычного InternetExplorer.Application.
Для проверки:
1) Копируем в файл IE.vbs и запускаем.
2) Пробуем перейти на любую страницу
3) Закрываем IE
- Код: Выделить всё
'/// Создаём экземпляр нового класса
Set InternetExplorer = New InternetExplorerClass
'/// Делаем IE видимым
InternetExplorer.Application.Visible = True
'// Описываем события
Sub InternetExplorer_DocumentComplete(pDisp, URL)
MsgBox "Загрузка " & URL & " завершена.",vbInformation,"Internet Explorer"
End Sub
Sub InternetExplorer_OnQuit()
MsgBox "Вы закрыли Internet Explorer",vbInformation,"Internet Explorer"
Wscript.Quit
End Sub
'/// Класс модуль InternetExplorer
Class InternetExplorerClass
Public Application
Private Sub Class_Initialize
'/// Вся идея в создании объекта через WScript. Вторым параметром указывается префикс функций-обработчиков событий
Set Application = Wscript.CreateObject("InternetExplorer.Application","InternetExplorer_")
End Sub
Sub Class_Terminate
'/// Для того чтобы WScript не завершил выполнение сценария при попытке уничтожить модуль делаем цикл, который завершается если объект IE перестал существовать.
On Error Resume Next
Do
WScript.Sleep 10
Loop Until Application = ""
End Sub
End Class
