让你的程序也能执行脚本

核心提示：本文示例源代码或素材下载 VBScript（JScript）是应用广泛，简单易学的脚本语言，让你的程序也能执行脚本，使用VBScript（JScript）调用COM组件则更是容易，那么，（关于调用WORD功能的脚本，大家可以在WORD中录制宏程序，如果在你的程序中也能够执行脚本，则在简化程序设计的基础上

本文示例源代码或素材下载

VBScript（JScript）是应用广泛，简单易学的脚本语言。使用VBScript（JScript）调用COM组件则更是容易。那么，如果在你的程序中也能够执行脚本，则在简化程序设计的基础上，还会极大地提升软件的功能。为了方便大家使用这个功能，我写了一个具有自动化（Automation/IDispatch）功能的EXE包装程序来代理调用脚本执行。这个包装程序接口只有2个函数，说明如下：

1. Void SetScriptLanguage(long nLanguage);

   功能：设置使用脚本语言的类型

   参数：0=使用VBScript 1=使用Jscript

   说明：如果不调用这个函数，则默认使用VBScript

2. Void Run(LPCSTR lpszProgram);

   功能：执行脚本

   参数：脚本程序

使用方法与步骤：（以下的说明，是以VC6为蓝本，VC7的用户请参照进行操作变化）

1. 复制文件到任意一个文件夹中，然后至少执行VBSENGIN.EXE 程序一次。完成组件的注册工作。
2. 创建或打开一个MFC的程序工程。
3. 添加代码，进行COM初始化。在App的InitInstance()函数中添加AfxOleInit()的调用。或者在使用COM功能之前调用函数CoInitialize(NULL)，而COM功能结束后调用 CoUninitialize()。
4. 添加VBSENGIN.TLB到工程中。打开ClassWizard对话窗，执行Add Class按钮的From a type library。然后选择VBSENGIN.TLB文件，加入IVBSEngin接口的包装类。
5. 在你程序中的的适当地方（比如OnButton()函数），填写如下代码，执行脚本。

#include "vbsengin.h"
OnButton()
{
　　IVBSEngin vbsEngin;　　　　　　　　　　　　 //声明一个脚本执行代理对象
　　if(vbsEngin.CreateDispatch("VBSEngin.Api")) //启动脚本执行代理
　　{
　　　　vbsEngin.Run(sProgram);　　　　　　//执行脚本，sProgram中存放的是脚本源程序
　　　　vbsEngin.ReleaseDispatch();　　　　//释放脚本执行代理
　　}
}

应用举例

使用VBScript脚本，实现把一些文本传送到WORD中，并保存为DOC文件。（关于调用WORD功能的脚本，大家可以在WORD中录制宏程序，稍微修改就可以转换为VBScript脚本程序了）

''''启动WORD
Set word=CreateObject("Word.Application")
''''显示WORD程序界面（不执行这行，那么你的WORD调用不会被用户看到）
word.Visible=True
''''增加一个新文档
word.Documents.Add
''''输入文本
word.Selection.TypeText("Hello")
''''输入回车
word.Selection.TypeParagraph
word.Selection.TypeText("good morning")
''''保存
word.ActiveDocument.SaveAs("c:\Hello.doc")
''''退出WORD程序
word.Quit(False)
''''释放WORD接口
Set word=Nothing