让你的程序也能执行脚本

下载源代码

  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 
自毁程序是一些电脑高手编写的可执行代码,没有现成的。我给个代码你看一下,如果你能看懂就可以用了。面的代码由Gary Nebbett写就.Gary Nebbett乃是WINDOWS NT/2000 NATIVE API REFERENCE的作者.乃NT系统一等一的高手.下面就分析一些他的这段代码. 这段代码在PROCESS没有结束前就将启动PROCESS的EXE文件删除了. int main(int argc, char *argv[]) { HMODULE module = GetModuleHandle(0); CHAR buf[MAX_PATH]; GetModuleFileName(module, buf, sizeof buf); CloseHandle(HANDLE(4)); __asm { lea eax, buf push 0 push 0 push eax push ExitProcess push module push DeleteFile push UnmapViewOfFile ret } return 0; } 现在,我们先看一下堆栈中的东西 偏移 内容 24 0 20 0 16 offset buf 12 address of ExitProcess 8 module 4 address of DeleteFile 0 address of UnmapViewOfFile 调用RET返回到了UnmapViewOfFile,也就是栈里的偏移0所指的地方.当进入UnmapViewOfFile的流程时,栈里见到的是返回地址DeleteFile和HMODUL module.也就是说调用完毕后返回到了DeleteFile的入口地址.当返回到DeleteFile时,看到了ExitProcess的地址,也就是返回地址.和参数EAX,而EAX则是buffer.buffer存的是EXE的文件名.由GetModuleFileName(module, buf, sizeof buf)返回得到.执行了DeleteFile后,就返回到了ExitProcess的函数入口.并且参数为0而返回地址也是0.0是个非法地址.如果返回到地址0则会出错.而调用ExitProcess则应该不会返回. 这段代码的精妙之处在于: 1.如果有文件的HANDLE打开,文件删除就会失败,所以,CloseHandle(HANDLE(4));是十分巧妙的一手.HANDLE4是OS的硬编码,对应于EXE的IMAGE.在缺省情况下,OS假定没有任何调用会关闭IMAGE SECTION的HANDLE,而现在,该HANDLE被关闭了.删除文件就解除了文件对应的一个句柄. 2.由于UnmapViewOfFile解除了另外一个对应IMAGE的HANDLE,而且解除了IMAGE在内存的映射.所以,后面的任何代码都不可以引用IMAGE映射地址内的任何代码.否则就OS会报错.而现在的代码在UnmapViewOfFile后则刚好没有引用到任何IMAGE内的代码. 3.在ExitProcess之前,EXE文件就被删除了.也就是说,进程尚在,而主线程所在的EXE文件已经没了.(WINNT/9X都保护这些被映射到内存的WIN32 IMAGE不被删除.)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值