Chinaunix首页 | 论坛 | 博客
  • 博客访问: 9461180
  • 博文数量: 1227
  • 博客积分: 10026
  • 博客等级: 上将
  • 技术积分: 20273
  • 用 户 组: 普通用户
  • 注册时间: 2008-01-16 12:40
文章分类

全部博文(1227)

文章存档

2010年(1)

2008年(1226)

我的朋友

分类: C/C++

2008-04-23 21:46:20

让你的程序也能执行脚本

作者:




  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 

阅读(259) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~