Есть две формы, на них есть компонент WebBrowser.
На второй форме, компоненту WB, загружаю документ с JS скриптом, его документу устанавливаю "opener" первого окна (WB). При попытке вызвать из второго окна JS скрипт (он выполняет переход opener'a на другую страницу), выдаётся ошибка "Отказано в доступе".. Как решить, чего делать?
Вот исходник (Подключены две библиотеки MS Internet Control и MS HTML Object Library):
Форма 1:
- Код: Выделить всё
Public HD As HTMLDocument
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set HD = WebBrowser1.Document
Form2.Show
End Sub
Форма 2:
- Код: Выделить всё
Dim HD As HTMLDocument
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "c:\1.html"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set HD = WebBrowser1.Document
HD.parentWindow.opener = Form1.HD.parentWindow
End Sub
Код HTML-Страницы:
- Код: Выделить всё
<script>
function ol(loc) {
opener.document.location=loc
}
</script>
<a href="javascript:ol('about:blank')">Opener</a>
С уважением Андрей.
