scriptcontrol jscript object expected error

[eugene2005]

делаю

sc.AddCode ("alert('helo')")
кричит что object expected

если vbscript то sc.AddCode ("msgbox ""helo""") ок

обясните как правильно включать и работать с JScript
привидите мне начальные примеры от чего можно отталкиваться... в поиске ничего не нашёл

[VOS]

Оказывается, функции alert языка JScript нет! Alert - метод объекта window, а в scriptcontrol-е 'window' is undefined. Window появляется только внутри броузера.

[RayShade]

Обалдеть! Не может быть! Правда!?

[eugene2005]

да но в том то и дело что я подключаю обект window но тем не менее ничего не выходит!

[Odrick]

Что-то меня гложат смутные сомнения, что из VB повлиять на JS будет весьма проблематично

[eugene2005]

ну я же скрипт котрол пользую и ИЕ там два языка есть и

[Odrick]

Гы Ну давай тогда разбираться, как ты подключаеш "объект window" и главное куда?

[eugene2005]

типа так

dim nWin as HTMLWindow2

addobject "window",nWin
правильно?

это в webbrowser

[Antonariy]

Попробуй window.alert().

[tyomitch]

типа так

dim nWin as HTMLWindow2

addobject "window",nWin
правильно?

Ну вон мне невооружённым глазом видно, что подключаешь ты не window, а Nothing...

[eugene2005]

а как таки подключить window и alert ?

[Antonariy]

Ну вон мне невооружённым глазом видно, что подключаешь ты не window, а Nothing...

Это почему? Может автор пропустил несколько строк типа Set nWin = doc.parentWindow. Хотя и мой невооруженный взгляд отметил косяк - HTMLWindow2 не существует. Либо HTMLWindow, либо IHTMLWindow2.

[Antonariy]

Кстати, если объект - nothing, контрол выдаст ошибку, что nothing подключать нельзя.

[eugene2005]

ну хоть ты убейся
document отлично работает и VBS и JScript ok
а этого злощастного alerta не могу вывести

Dim nDoc As IHTMLDocument
Dim nWin As IHTMLWindow2

sc.AddObject "window", nWin
sc.AddObject "document", nDoc

window.alert("debug alert is ok");

HTMLWindow нет
помогите страждущему до алерта

PS. и зачем мне это надо Set nWin = doc.parentWindow ?

[Odrick]

Потому что у тебя, исходя из приведенного кода, nDoc является не более чем пустой ссылкой. Объекта переменная не содержит.

[eugene2005]

ну о чом ты говоришь! я эту "пустую ссылку" замечательно использую полноценно и нет нареканий!

я могу спокойно делать getelementsbytagname и т.п
а вот window и этот alert никак =) видимо, что ту упускаю из виду и невнимателен... но хоть убей не вижу

[Odrick]

Блин... Ты заставил меня самому все это проделать Вот тебе рабочий код:

Код: Выделить всё

    Dim Ie As InternetExplorer
   
    Set Ie = New InternetExplorer
   
    Ie.Visible = True
   
    Ie.Navigate2 "d:\test.html"
   
    Do While Ie.Busy
        DoEvents
    Loop
   
    scct.AddObject "window", Ie.document.parentWindow
   
    scct.ExecuteStatement "window.alert('aaa');"


scct - ScriptControl. Там где Navigate поставь ссылку на любую страницу.

[eugene2005]

ах вот оно как... через document к window идём

[Odrick]

ну дык именно это тебе и говорил Antonariy несколькими постами выше

[VOS]

Обалдеть! Не может быть! Правда!?

Хм. Ты смайл пропустил или реально не знал??

...
Set Ie = New InternetExplorer
...
scct.AddObject "window", Ie.document.parentWindow
...
scct.ExecuteStatement "window.alert('aaa');"

Ё! И вся эта лажа из-за одного алерта!!! Пользуйся MsgBox'ом!!!

[Odrick]

VOS это ты мне? Мне это, как ты понимаеш, не нужно. А вообще идея топика в том, как получить и передать ScriptControl'у правильные ссылки на объекты window и document, дабы потом он мог с ними правильно работать, если ты не понял

[eugene2005]

ну а теперь обясните мне почему нужно через докюмент выходить на парент виндоу если есть прямая ссылка на него так же как и на докюмент. неужели document - это главная матка IE

[eugene2005]

Обалдеть! Не может быть! Правда!?

Хм. Ты смайл пропустил или реально не знал??

...
Set Ie = New InternetExplorer
...
scct.AddObject "window", Ie.document.parentWindow
...
scct.ExecuteStatement "window.alert('aaa');"

Ё! И вся эта лажа из-за одного алерта!!! Пользуйся MsgBox'ом!!!

лажа не в алерте а в концепции скрипта

Спасибо коллективному разуму. Данная проблема решена.

[Antonariy]

ну а теперь обясните мне почему нужно через докюмент выходить на парент виндоу если есть прямая ссылка на него так же как и на докюмент

Где она есть? В контексте ie-страницы есть, а в контексте свежесозданного скриптконтрола откуда возьмется? Точнее, это скрипты html-страницы выполняются в контексте класса окна, поэтому alert им доступен автоматически. И не сделать

Код: Выделить всё

property get window
    set window = me
end property

было бы преступлением.

А скриптконтрол вообще не подозревает, что на свете существует mshtml с его документами, окнами, прочей ерундой... Для того, чтобы скрипты, скопированные с html-странички, в нем работали без изменений, нужно хотя бы создать в нем глобальные объекты, характерные для ie-страницы, такие как document, window. Короче, вся начинка HTMLWindow2. А если пробежаться по коллекции document.all и добавить элементы с проставленными id, то и срипт типа window.alert(txtEmail.value) отработается на ура!