where are you running the code? try the following on the client side:<script language="vbscript">
set sc = CreateObject("ScriptControl")
sc.Language="JScript"
sc.AddObject "window",window
sc.Eval ("window.alert('hello')")
</script>
set sc = CreateObject("ScriptControl")
sc.Language="JScript"
sc.AddObject "window",window
sc.Eval ("window.alert('hello')")
</script>
execScript "alert('hehe')","javascript"
</script>
如果你在VB中调用alert当然出错。和saucer(思归) 写的一样。你在VB中可以这样:
Private Sub Form_Load()
Dim SC
Set SC = CreateObject("ScriptControl")
SC.Language = "JScript"
SC.AddObject "form", Me
SC.Eval ("form.Caption=""Welcome"";")
End Sub
你是想做个控件放到HTML中吧?
<object id=myobj classid=...></object>
这个?
然后你想在那ActiveX中控制window?
方法很简单哦
暴露 obj.Init(/*[in]*/IDispWindow)
然后
在HTML的脚本中调用
myobj.Init(window)
就把window传进去了。。不过window并不是默认的空间对象。所以在内部,你也只能用window.alert
而不能用alert
不妨试一下WScript.Echo("aaaa");
1