[原创]va---XLS封装成EXE制作全攻略.docVIP

[原创]XLS封装成EXE制作全攻略 XLS封装成EXE制作全攻略■,,,,ldhyob,,,,2003.12曾在论坛发表过一张帖，是关于制作动态EXE例子(/cdb/viewthread.php?tid=15781)的，大家对此兴趣颇浓，都建议公开详细制作细节，故决定写出此文以帮助关注那张帖的版友们能完全自已独立完成xls2exe的过程，实现简单的封装。首先申明，将xls做成exe并不是指就能使您的VBA工程受到坚强的保护，当然您可以通过数种方法来提高xls文档VBA工程防止查看的保护几率，如屏蔽一些系统热键、监控VBE窗口的开启、给文档加上口令保护、加VBA口令、使VBA“不可查看”、利用宏表4.0来禁止用户取消宏来查看文档等等，但“道高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”加密……关于这些保护方法不属本文叙述范围，请版友在论坛上查看相关帖。假如您手头已有一xls文档等待封装，假如您机子上已安装有VB6开发系统，那么请跟着往下操作：一、用VB制作EXE文件头部分1、打开VB，“文件”-“新建工程”-“标准EXE”；2、此时会出现名为Form1的默认窗体编辑窗口，Form1将作为软件启动封面窗体，打开该Form1的属性窗口，对如下属性进行设置：BorderStyle=0，StartUpPosition=2，Icon与Picture属性设置成你需要的图标（这也将成为你EXE的图标）和设计好准备使用的图片（即软件封面），窗体的大小设置成您需要的合适值即可。3、往窗体中添加一个时钟控件timer1，并将其InterVal属性设为1000。4、双击窗体打开代码编辑窗口，录入以下代码：Private,,,,Declare,,,,Function,,,,SetWindowPos,,,,Lib,,,,user32,,,,(ByVal,,,,hwnd,,,,As,,,,Long,,,,,ByVal,,,,hWndInsertAfter,,,,As,,,,Long,,,,,ByVal,,,,x,,,,As,,,,Long,,,,,ByVal,,,,y,,,,As,,,,Long,,,,,ByVal,,,,cx,,,,As,,,,Long,,,,,ByVal,,,,cy,,,,As,,,,Long,,,,,ByVal,,,,wFlags,,,,As,,,,Long),,,,As,,,,LongPrivate,,,,Declare,,,,Function,,,,GetTempFileName,,,,Lib,,,,kernel32,,,,Alias,,,,GetTempFileNameA,,,,(ByVal,,,,lpszPath,,,,As,,,,String,,,,,ByVal,,,,lpPrefixString,,,,As,,,,String,,,,,ByVal,,,,wUnique,,,,As,,,,Long,,,,,ByVal,,,,lpTempFileName,,,,As,,,,String),,,,As,,,,LongPrivate,,,,Declare,,,,Function,,,,GetTempPath,,,,Lib,,,,kernel32,,,,Alias,,,,GetTempPathA,,,,(ByVal,,,,nBufferLength,,,,As,,,,Long,,,,,ByVal,,,,lpBuffer,,,,As,,,,String),,,,As,,,,LongPrivate,,,,Const,,,,MAX_PATH,,,,=,,,,260Private,,,,Const,,,,EXE_SIZE,,,,=,,,,81920,,,,本EXE实际字节大小Private,,,,Type,,,,FileSectionBytes(),,,,As,,,,ByteEnd,,,,TypePrivate,,,,Type,,,,SectionedFileFiles(),,,,As,,,,FileSectionEnd,,,,TypeDim,,,,StopTime,,,,As,,,,IntegerPrivate,,,,Sub,,,,Form_Activate()If,,,,Command(),,,,=,,,,,,,,Then,,,,Main1End,,,,SubPrivate,,,,Sub,,,,Form_Load()On,,,,Error,,,,Resume,,,,NextIf,,,,Command(),,,,=,,,,,,,,ThenForm1.Visible,,,,=,,,,TrueSetWindowPos,,,,Form1.hwnd,,,,,-1,