用VB编写绿色软件Word文档下载推荐.docx

用VB编写绿色软件Word文档下载推荐.docx

《用VB编写绿色软件Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《用VB编写绿色软件Word文档下载推荐.docx（9页珍藏版）》请在冰点文库上搜索。

我对此乐观：

）

第二、如果用VB开发共享软件，我建议仅用VB的基本控件，此外不要用DAO，ADO等数据库操作控件（或引用），如果操作数据，我建议自己定义数据库格式（可以仿照dBase等数据库格式），在数据量不算大的情况下（比如1万条记录以下），完全可以这样做，目前的用户机器都比较高档，没必要考虑太多的性能问题。

这样的话仅需要运行库即可运行VB程序，在Win2000以上系统，直接就可以运行。

第三、软件界面为了美观，直接用image控件贴图即可，这种方式我一直爱用。

对多语言版本，可以采用读取ini文件方式，也可以直接读取VC编译的纯资源文件（可以参考我写的一篇文章：

VB动态加载纯DLL资源（）。

第四、软件开发完毕后，最好用exe压缩软件压缩一下，这样有两个好处，一是对被人破解加了一个障碍，二是，软件尺寸大大减小，利于发布。

第五、至于加密，那是仁者见仁，智者见智的事了，这里我就没必要多谈了。

随着计算机的不断发展，操作系统的不断更新，硬盘容量、内存容量及相应的存取速度不断提高，使得开发出来的应用程序不再只是单一的可执行文件，特别是Windows应用程序，微软在Windows中引入了一个非常好但管理不方便的新东西──动态链接库DLL。

这样开发出来的应用程序本身变小了，可相应辅佐运行的DLL文件变多了，而且在Windows中开发的程序，特别是用VB开发的程序往往要用到第三方控件OCX。

这样，开发出来的程序就不容易管理，而且Windows应用程序一般都需要安装。

而卸载往往又不彻底，常常会保留一些所谓的共享文件。

安装一个、两个这样的程序倒无妨，安装多了Windows的系统文件夹就会急剧膨胀。

绿色软件就是在这种情况下诞生的，它的特点是程序不用安装，拷贝或解压到一个目录下就可以运行，卸载只要删除整个目录就OK了。

下面我们来谈谈怎样用VB6.0编写一个绿色软件。

首先，用VB编写好应用程序。

需注意的是，一些用不着的第三方控件最好不要保留在工程中，这样开发出来的程序相对较小，并生成EXE文件。

其次，程序编好后，退出开发环境，启动VB6.0中文版工具──Package&

Deployment向导。

用向导将应用程序打包。

完成后用Winzip8.0或其他能打开并能解压CAB文件的压缩工具打开安装目录下的SETUP.CAB，并解压到一个临时目录，删除St6unst.exe和Setup1.exe文件（特别注意Msvbvm60.dll和Asycfilt.dll必须带上，否则程序无法运行）。

再次，将应用程序本身要调用到的下级目录一起拷贝到这个临时目录中。

如没有则跳过这一步。

最后，将这个临时目录中的文件整理一下。

如果你认为这些文件大了些，你可以用ASPACK或其他一些可执行文件压缩工具将这个目录中的可执行文件、DLL文件、OCX文件压缩一下，用VB编写的程序一般经压缩后大小只有原来的30%。

如果运行稳定就可以将BAK文件删除，不行则恢复到原来的面貌。

现在你可以将这个目录改成你所需的名字，打包就可以发行了。

它能在没安装VB的机器中正常运行，怎么样，去Try一下吧，自己也来开发绿色软件。

运行环境：

Windows98、VisualBasic6.0中文版（VisualBasic5.0原理基本相同）、Aspack（可选）。

之三：

现在非常流行"

绿色"

软件，不需要什么安装程序只要一个EXE文件就可以运行程序了，而在VB的编程中有许多地方需要调用第三方的控件（很难用API函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL文件或其他文件打包进去了，那么在VB中怎么用变通的方法实现"

软件呢，请看示例：

1、主程序.EXE

用VB6.0编写的程序，调用了Winsock控件，如果在没有安装VB5.0、6.0的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用VB5.0、6.0的安装程序进行打包，不然只有用用2的方法来解决了。

2、注册程序.EXE

用VB6.0编写的程序，使用资源文件的方法，把Winsock控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过API函数GetSystemDirectory取得系统的Winddows\System的目录，然后把Winsock控件复制到该目录下，并用Shell来完成控件的注册。

⑴启动VB6.0，在"

外接程序→外接程序管理器"

中加载"

VisualBasic6资源编辑器"

⑵在VB资源编辑器窗口中，点击"

添加自定义资料"

，增加Winsock控件（C：

\Winddows\System\nsck.ocx），再双击刚刚创建的自定义资源，弹出"

编辑属性"

窗口，定义如下：

类型：

"

OCX"

标识号：

101

语言：

中文（中国）

⑶保存资源文件，写如下代码：

OptionExplicitPrivateDeclareFunctionGetSystemDirectoryLib"

kernel32"

Alias"

GetSystemDirectoryA"

（ByVallpBufferAsString,ByValnSizeAsLong）AsLongConstMAX_PATH=260注释：

定义足够长的字符串

PrivateSubForm_Load（）

DimTempFile（）AsByteDimFileNumAsIntegerDimTempDirAsStringTempDir=GetWinSysDir注释：

自定义函数取得系统的Winddows\System的目录

TempFile=LoadResData（101,"

）注释：

用以从资源（.res）文件装载若干可能类型的数据，并返回一个Byte数组

FileNum=FreeFileOpenTempDir&

\nsck.ocx"

ForBinaryAccessWriteAs#FileNum注释：

新建文件（把Winsock控件复制到指定目录下）

Put#FileNum,,TempFileClose#FileNum

注释：

Shell"

regsvr32"

&

TempDir&

vbNormalFocus注释：

注册控件,有弹出对话框

\nsck.ocx/s"

注册控件,无弹出对话框

MsgBox"

注册成功，现在本程序可正常运行了！

vbOKOnly,"

注册控件"

UnloadMeEndSubPublicFunctionGetWinSysDir（）注释：

定义读取Winddows\System的所在目录的函数

DimSAsString,LengthAsLongS=String（MAX_PATH,0）注释：

赋值

Length=GetSystemDirectory（S,MAX_PATH）注释：

S为取得目录，MAX_PATH为长度

S=Left（S,InStr（S,Chr（0））-1）注释：

去掉多余的空格

GetWinSysDir=SEndFunction

补充：

S和MAX_PATH的值是可以随便赋的，

如：

DimSAsString*20

Length=GetSystemDirectory（S,20）

3、补充说明

在用VB6.0保存上述两个程序后，请再使用VB5.0重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。

（用VB5.0编译的程序，在Win98、2000下不需要任何DLL文件）

4、程序运行

将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的"

软件就完成了。

之四：

VB-PowerWrapv4.1汉化版（开发VB绿色软件的好工具）

『软件简介』

VB-PowerWrap允许开发者在发布他们的程序时不需要再加入一大堆

的OCX与DLL文件。

该程序可以帮助VisualBasic程序员在发布他们

的可执行文件时不需要再担心关于其他链接库与OCX的问题了。

VB-PowerWrap允许你将程序所必需的所有.dll文件与.ocx文件打包到你的VB程序内部，并且不需要用户安装，直接就可以运行。

并且VB-PowerWrap可以自动注册所必需的.dll与.ocx文件！

VB-PowerWrap通过扫描一个VisualBasic的工程文件，并将该工

程所需要的文件进行打包，然后创建一个包含所有必要文件的可执行文件

供程序员发布。

VB-PowerWrap使用了超强的压缩模块，这样可以创建出

最小的.exe文件。

VB-PowerWrap功能简介：

压缩所有的DLL与OCX文件

如果需要则在用户的机器上注册必要的控件

不会出现恼人的运行时问题

自动扫描工程所必需的DLL与OCX文件。

可以用于VisualBasic4、5、6版本中。

下载地址：

之五：

VisualBasic中第三方控件使用之金蝉脱壳

在用VB编程中合理的使用第三方控件，往往能够事半功倍。

但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。

要做到这一点通常有两种办法：

一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。

二是制作安装程序，缺点是制作过程烦琐。

而且上面两种办法也不符合绿色软件的要求。

所谓的绿色软件是指软件只有单个可执行文件且无须安装，目前很受用户欢迎。

那么有没有办法在使用了第三方控件的情况下实现绿色软件梦呢?

答案是有。

做法是，将第三方控件以自定义资源文件方式保存在程序中，程序运行之后使用控件之前将所用到的控件生成到该程序目录下，完成控件从可执行文件中的金蝉脱壳。

具体做法如下：

第一步：

将要用到的控件拷贝到当前工程目录下，右键单击该控件，选择属性，记下文件大小。

注意，应记下以字节为单位的具体数字，而不是多少K，以备编程使用。

第二步：

引用并正常使用该控件。

第三步：

新建资源文件加入工程，在资源文件编辑器中添加所使用的第三方控件为自定义资源（CUSTOM），资源号使用默认的101。

如果使用了多个控件则分别添加到资源文件的101、102.资源项中，脱壳代码也要作相应的修改。

第四步：

编写控件脱壳代码，使其读取资源文件的数据，在程序当前目录下生成控件。

代码如下：

PrivateConstOCXSIZE=57344`欲生成的控件大小是57344Byte,名字为CoolToolBar.ocxSubMain（）

DimOcx（）AsByte`OCX是个Btye类型的数组

DimCounterAsLongOcx=LoadResData（101,"

CUSTOM"

）`将自定义资源中101号资源读入数组OCX

`注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"

而不是帮助所说的数字10IfRight（App.Path,1）="

\"

Then`读取程序所在路径,判断是否为根目录并分别处理

`程序在根目录下

IfDir（App.Path&

CoolToolBar.ocx"

）="

Then`程序路径下有无控件,无则生成控件

`以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录

OpenApp.Path&

ForBinaryAs#1ForCounter=0ToOCXSIZE-1`注意因为从0Byte开始因此以文件大小-1Byte为终值

Put#1,,Ocx（Counter）

NextCounterClose#1EndifElse

`程序不在根目录下

\CoolToolBar.ocx"

NextCounterClose#1EndifEndifForm1.Visible=True`主程序所用控件已经生成，显示主窗体，进入主程序。

EndSub

注意：

将以上代码作为一个模块添加到工程中，并在工程-工程属性设置中将启动对象选为SubMain,即上面的脱壳代码。

然后编译生成EXE文件，将该EXE文件拷贝到其他没有安装所用控件的计算机上运行一下看看是否实现了控件携带之金蝉脱壳。

如果是那么OK！

以上为使用一个控件的情况，使用多个控件方法基本相同，不在赘述。

特别声明：

1：

资料来源于互联网，版权归属原作者

2：

资料内容属于网络意见，与本账号立场无关

3：

如有侵权，请告知，立即删除。