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

JavaScript025

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的参数