msscriptcontrol - 如何将 DLL 导入到 MSScriptControl.ScriptControl

Question

我有一个关于 MS 脚本控件的查询，我有一个 VB6 程序，它使用 MSScript 控件来允许用户在应用程序中编写宏。

我的问题是如何将 DLL 导入 MSScriptControl.ScriptControl 类型的对象。

Answer 1

你的意思是加载一个 scriptControl 对象？

在VBScript中：

set x = createobject("msscriptcontrol.scriptcontrol")
x.language = "vbscript"
x.executestatement "a = 12"

在 vb6 中：

Public Sub class_initialize()
Set Script = CreateObject("ScriptControl")
Script.Language = "VBScript"
Script.Reset
Script.ExecuteStatement "abc = 123"
End Sub