опять 25 с MSScriptControl.ScriptControl

[eugene2005]

...........
Set nDoc = pDisp.document
Dim sc As New MSScriptControl.ScriptControl
sc.AddObject "document", nDoc
sc.AddObject "window", nDoc.parentWindow


я могу добовлять код - sc.addcode() из текстового файлы, без рекомпиляций, а вот не пойму как можно вернуть обратно в родную среду что введено к примеру в brausere в <input type="text" name="searchbox"> хочу проверить пуст или что то введено в данном текстбоксе.

как можно через скриптконтрол вернуть обратно в программу что ведено, без скажем прямого nDoc.all("searchbox").value ???

что то типа такого хочу (фантазии)
dim returned as string
dim fromtextfile as string
fromtextfile = "document.all(""searchbox"").value"
returned = sc.executestatement(fromtextfile)

if returned <> "" then msgbox "text entered ok!"

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

[Antonariy]

Сам же и ответил на свой вопрос. Почти.

Допустим, у тебя в скрипте есть функция

function GetVal()
{
return(document.all("searchbox").value);
}

Вызов:
returned = sc.Run("GetVal")
или
returned = sc.Eval("GetVal()")

Надеюсь, правильно понял проблему. Кстати, весь скриптконтрол описан в msdn.

[Andrey Fedorov]

а вот не пойму как можно вернуть обратно в родную среду что введено к примеру в brausere в <input type="text" name="searchbox"> хочу проверить пуст или что то введено в данном текстбоксе.

Приложенный примерчик устроит?