在vb中调用执行vbscript脚本。仅仅作为下一步工作的笔记。

到微软的网站上下载Windows Script Control，它是一个ActiveX(R) 控件。下载安装完成后，新建一个vb应用程序项目，在部件中引用 MSScript.ocx。

插入测试代码：

Private Sub Command1_Click() Dim sc As Object Set sc = New MSScriptControl.ScriptControl sc.Language = "VBScript" Print sc.Eval("a=input<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(time) & vbcrlf & msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(date)") End Sub

代码将执行inputBox函数和time,msgBox,date函数。

执行结果的窗口:

ScriptControl 对支持 ActiveX(TM) Script 的宿主 Script 引擎提供简单接口。接下来我们对被转化成ScriptControlClass类的ScriptControl的属性和方法进行一些说明。

以下是一些相关属性和方法的说明：属性AllowUI 属性：应用于 ScriptControl 本身或 Scirpt 引擎显示的用户界面元素，可读写。CodeObject 属性：返回对象，该对象用于调用指定模块的公用成员。只读。Error 属性：返回 Error 对象，其中包含所发生的最后一个错误的相关详细信息。只读。Language 属性：设置或返回正在使用的 Script 语言名称。可读写。Modules 属性：为 ScriptControl 对象返回模块集合。只读。Procedures 属性：返回在指定模块中定义的过程集合。只读。SitehWnd 属性：设置或返回窗口的 hWnd，通过执行 Script 代码，此窗口用于显示对话框和其他用户界面元素。可读写。State 属性：设置或返回 ScriptControl 对象的模式。可读写。Timeout 属性：设置或返回时间（毫秒），此时间后用户可选择中止 Script 代码的执行或允许代码继续执行。可读写。UseSafeSubset 属性：设置或返回 Boolean 值，指明宿主应用程序是否有保密性要求。如果宿主应用程序需要安全控制，则 UseSafeSubset 为 True，否则为 False。可读写。方法AddCode 方法：向模块添加指定代码。可多次调用 AddCode 方法。AddObject 方法：使主机对象模型对 Script 引擎可用。Eval 方法：计算表达式并返回结果。ExecuteStatement 方法：执行指定的语句。Reset 方法：放弃所有已经添加到 ScriptControl 中的 Script 代码和对象。Run 方法：运行指定过程。事件Error 事件：出现运行时错误时，发生此事件。Timeout 事件：当超出了 Timeout 属性指定的时间且用户在结果对话框中选定了 End 时，发生此事件。