VC执行VBS脚本
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()函数),填写如下代码,执行脚本。01. #include "vbsengin.h" 02. OnButton() 03. { 04. IVBSEngin vbsEngin; //声明一个脚本执行代理对象 05. if (vbsEngin.CreateDispatch( "VBSEngin.Api" )) //启动脚本执行代理 06. { 07. vbsEngin.Run(sProgram); //执行脚本,sProgram中存放的是脚本源程序 08. vbsEngin.ReleaseDispatch(); //释放脚本执行代理 09. } 10. } 应用举例 使用VBScript脚本,实现把一些文本传送到WORD中,并保存为DOC文件。(关于调用WORD功能的脚本,大家可以在WORD中录制宏程序,稍微修改就可以转换为VBScript脚本程序了) 01. '' '' 启动 WORD 02. Set word=CreateObject( "Word.Application" ) 03. 04. '' '' 显示 WORD 程序界面(不执行这行,那么你的 WORD 调用不会被用户看到) 05. word.Visible=True 06. 07. '' '' 增加一个新文档 08. word.Documents.Add 09. 10. '' '' 输入文本 11. word.Selection.TypeText( "Hello" ) 12. 13. '' '' 输入回车 14. word.Selection.TypeParagraph 15. word.Selection.TypeText( "good morning" ) 16. 17. '' '' 保存 18. word.ActiveDocument.SaveAs( "c:\Hello.doc" ) 19. 20. '' '' 退出 WORD 程序 21. word.Quit(False) 22. 23. '' '' 释放 WORD 接口 24. Set word=Nothing |
<linker : http://www.vckbase.com/index.php/wv/797>