MSScriptControl.ScriptControl组件属性、方法、事件介绍

MSScriptControl 是一个在 Windows 操作系统中可以执行脚本的控件。MSScriptControl 控件开放了 ScriptControl 对象来编写和执行 VBScript 以及 JScript 代码。下面我们将介绍一些 ScriptControl 对象的常用属性、方法和事件。

属性介绍

Language属性

用于指定脚本语言，常用的有 VBScript 和 JScript 两种脚本语言。

示例代码：

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"

AllowUI属性

用于指定脚本是否可以启动用户界面元素（例如消息框、对话框等）。当该属性值为 True 时，脚本可以弹出对话框，而当该属性值为 False 时，脚本将无法启动用户界面元素。

示例代码：

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.AllowUI = False

方法介绍

AddCode方法

用于向 ScriptControl 对象中添加脚本代码。添加的代码将随后编译并生成可执行的脚本。

示例代码：

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"
sc.AddCode("MsgBox ""Hello World""")

Run方法

用于执行已经添加到 ScriptControl 对象中的脚本代码。

示例代码：

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"
sc.AddCode("function add(x, y):add = x + y:end function")
result = sc.Run("add", 1, 2)
MsgBox result

以上示例代码会向 ScriptControl 对象添加了一个 VBScript 函数 add(x, y)，用于将 x 和 y 相加并返回相加结果，然后使用 Run 方法来执行这个函数。

事件介绍

Error事件

当发生脚本编译或运行错误时，会触发 Error 事件，并返回一个错误对象。

示例代码：

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"
sc.AddCode("Option Explicit:Function divide(x, y):divide = x/y:end function")
Set ErrorHandler = WScript.CreateObject("MSScriptControl.ScriptControl")
ErrorHandler.Language = "VBScript"
ErrorHandler.AddCode("sub ErrorHandle(errObj): MsgBox errObj.Description: end sub: sc.ErrorHandler = GetRef(""ErrorHandle"")")
result = sc.Run("divide", 10, 0)

以上示例代码中，当执行 10 / 0 时会触发 ScriptControl 的 Error 事件，然后我们使用 ErrorHandler 对象来监听 Error 事件，并调用对应的处理过程。