js的语言可以在vbs上用吗？

JavaScript024

js的语言可以在vbs上用吗？,第1张

for(var i=sum=0i<=100sum+=i++)

WSH.echo(sum)

保存为js即可执行，如果你的js关联被修改了，那保存为jse即可

因为js里没有msgbox之类的弹窗，alert是浏览器的函数，不是js的，

所以要借助WSH宿主的echo来显示弹窗、

不知道你说的VBScript 里面能用JAVAscript吗？是在<script language=vbscript></script>定义中用javascript语句，还是在同一个页面里同时用vbscript和javascript。

在同一个页面里是可以同时用vbscript和javascript的，在同一个页面中用vbscript定义的变量，过程，函数，在javascript中可以使用， 相反，在javascript定义的在vbscript中也是可以用的，就是调用的语法不一样。

不过在同一个页面中同时使用vbscript和javascript会加重服务器的负担，因为服务器会同时起用2个脚本引勤来处理

Dim code As Object

Set code = CreateObject("ScriptControl")

code.Language = "JavaScript"

查询一下如何使用 VBS ScriptControl

VB/VBS 动态执行 代码

我们有时候需要在程序中动态执行一段string类型的代码，类似js中的eval函数，

下面的操作可以满足这一要求。

（有一点要注意，ScriptControl 调用的是vbs，有的vb的函数不能用，如val ）

我们需要使用ScriptControl

在部件中添加MS Script Control 1.0

在窗体中添加一个MS Script Control

使用方法如下：

ScriptControl1.Language = "VBScript" '定义语言

ScriptControl1.AddObject "Text1", Text1 '添加控件，否则在执行时无法调用，

'需要什么控件添加什么就行

ScriptControl1.ExecuteStatement("Text1.Text=""12345""") '执行语句

也可以用ScriptControl1.AddCode来添加函数

如：

ScriptControl1.AddObject "Label1", Label1

ScriptControl1.AddCode "sub Test() label1=""hello"" end sub" '定义了一个函数test

ScriptControl1.Run ("test") '调用函数test甚至可以给添加的函数加上参数，如：

ScriptControl1.AddObject "Label1", Label1

ScriptControl1.AddCode "sub test(str)" &vbCrLf &" label1=str " &vbCrLf &" end sub"

ScriptControl1.Run "test", "Hello" '第二个参数是一个Variant型的数组，用来传递函数test的参数