利用vb实现“绿色”软件

利用vb实现“绿色”软件

　　冰箱软件会员,免会员的电视软件大全,软件年费会员现在非常流行“绿色”软件，不需要什么安装程序只要一个 EXE 文件就可以运行程序了，而在 VB 的编程中有许多地方需要调用第三方的控件（很难用 API 函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL 文件或其他文件打包进去了，那么在 VB 中怎么用变通的方法实现“绿色”软件呢，请看示例：

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

　　用 VB6.0 编写的程序，使用资源文件的方法，把 Winsock 控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过API函数GetSystemDirectory取得系统的Winddows\System的目录，然后把Winsock控件复制到该目录下，并用Shell来完成控件的注册。 ⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器” ⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：\Winddows\System\nsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下： 类型： “OCX” 标识号： 101 语言： 中文（中国） ⑶保存资源文件，写如下代码：

　　注释：补充：S 和 MAX_PATH 的值是可以随便赋的， 注释：如: Dim S As String * 20 注释： Length = GetSystemDirectory(S, 20)

　　在用 VB6.0 保存上述两个程序后，请再使用 VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用 VB5.0 编译的程序，在 Win98、2000 下不需要任何 DLL 文件）

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