让你的程序也能执行脚本
作者:
VBScript(JScript)是应用广泛,简单易学的脚本语言。使用VBScript(JScript)调用COM组件则更是容易。那么,如果在你的程序中也能够执行脚本,则在简化程序设计的基础上,还会极大地提升软件的功能。为了方便大家使用这个功能,我写了一个具有自动化(Automation/IDispatch)功能的EXE包装程序来代理调用脚本执行。这个包装程序接口只有2个函数,说明如下:
- Void SetScriptLanguage(long nLanguage);
功能:设置使用脚本语言的类型
参数:0=使用VBScript 1=使用Jscript
说明:如果不调用这个函数,则默认使用VBScript
- Void Run(LPCSTR lpszProgram);
功能:执行脚本
参数:脚本程序
使用方法与步骤:(以下的说明,是以VC6为蓝本,VC7的用户请参照进行操作变化)
- 复制文件到任意一个文件夹中,然后至少执行VBSENGIN.EXE 程序一次。完成组件的注册工作。
- 创建或打开一个MFC的程序工程。
- 添加代码,进行COM初始化。
在App的InitInstance()函数中添加AfxOleInit()的调用。或者在使用COM功能之前调用函数CoInitialize(NULL),而COM功能结束后调用 CoUninitialize()。
- 添加VBSENGIN.TLB到工程中。
打开ClassWizard对话窗,执行Add Class按钮的From a type library。然后选择VBSENGIN.TLB文件,加入IVBSEngin接口的包装类。
- 在你程序中的的适当地方(比如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
--------------------next---------------------
如何插入表格??
我试验了多次都不成功啊。
word.ActiveDocument.Tables.Add(word.Selection.Range, 5,2, wdWord9TableBehavior, wdAutoFitContent)
老是提示错误!错在哪儿呢? ( chenyuntian 发表于 2007-9-29 17:05:00)
在杨老师发表的<用 ATL ActiveX 绘制任意平面函数的曲线 >可以得到脚本代理的代码参考.我在杨老师发表的文章中已经学到了很多的有关com的知识了.十分的感谢杨老师!!
( Error111 发表于 2005-11-4 7:53:00)
哈哈 ( kuaileren003 发表于 2005-8-1 10:59:00)
哦,忘记了,刚才说的源代码客户端的源代码,是组件怎么写出来的源代码。
唉,难道神秘感是崇拜的前提条件?还是鹤挤鸡槽感觉良好? ( mfCVinci 发表于 2004-10-21 10:50:00)
....为什么没源代码呢?授人以鱼不如授人以渔。杨老师也太小气了吧?
其实这种封装早就有了,大家请看
以及查阅msdn IActiveScript接口。
-_-b还是花我些时间去找。知道中国软件为什么不行了吧。高手吝啬,环境恶劣啊。 ( mfCVinci 发表于 2004-10-21 10:42:00)
我觉得不错,另外大家可能都是用的ms word,我用的是sun openoffice,他的兼容性和ms word很好,不用改代码就可以很好的工作。 ( Nizvoo 发表于 2004-8-26 10:57:00)
请解答,谢谢了 ( heipi98 发表于 2004-6-8 17:11:00)
用杨老师的代码也出现了同样的问题,不知道是什么原因 ( heipi98 发表于 2004-6-8 17:11:00)
我试验了一下,我得脚本文件名为“IP过滤.vbs”,程序中这样使用 vbsEngin.Run("IP过滤");
但是出现了问题 :
IACTIVEscriptsite::Onscripterror()
line "IP过滤"
脚本单独运行,应用程序单独运行都没有问题,请问该如何修正这个错误 ( heipi98 发表于 2004-6-8 11:51:00)
代码更新,修复一个 VBSEngin 中的 bug. ( hangwire 发表于 2004-4-1 17:08:00)
.......................................................
--------------------next---------------------