百分，在线等 我在VB6 中调用 JScript 脚本对象报错！

Question

var conn ;
var rs;
conn = new ActiveXObject("ADODB.Connection");
conn.open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=WHCLZMPC;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=WHCLZMPC;Use Encryption for Data=False;Tag with column collation when possible=False")
rs = new ActiveXObject("ADODB.Recordset");
rs.open("SELECT * FROM t_Item",conn); 
rs.MoveFirst;// 我只是想弹出一个消息框 报错 “ windwo 为定义”
var truthBeTold = window.confirm("单击“确定”继续。单击“取消”停止。");
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
var w;
w = new window;
w.print("dfdf");
rs.MoveNext;
vb6代码 
Private Sub Command1_Click()
   'ScriptControl1.AddCode (Text1.Text)
   ScriptControl1.Eval (Text1.Text)
   
End Sub

Answer 1

Text1.Text = "msgbox ""abcd"""
ScriptControl1.ExecuteStatement (Text1.Text)

Answer 2

tztz520(午夜逛街) ( ) 
 是 JScript 脚本

Answer 3

不明白，vb和jscript怎么搞到一起。

Answer 4

qiangsheng(代码工人)  在 vb中调用 脚本对象组件

Answer 5

window对象是ie里面特有的，呵呵~~~~

Answer 6

你可以用AddObject方法来添加一个脚本能够访问的对象，例如：
Dim Window As New CWindow
Dim Script As New ScriptControl
Script.Language = "Jscript"
Script.AddObject "window", Window
Script.Eval "window.Confirm('fff')"而CWindow类的定义：
Public Function Confirm(s As String) As String
Confirm = InputBox(s)
End Function

Answer 7

不使用WINDOWS对象，如何显示一个消息框呢？

Answer 8

你不要window对象你可以改成其他的名字啊Script.AddObject "hehe", Window
然后js里面就 hehe.Confirm('hehe')