利用vb实现“绿色”软件

• 　　现在非常流行“绿色”软件，不需要什么安装程序只要一个 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，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
  
  　　⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：\Winddows\System\nsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
  　　类型： “OCX”
  　　标识号： 101
  　　语言： 中文（中国）
  
  　　⑶保存资源文件，写如下代码：
  　　

  Option Explicit
  　　Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  　　Const MAX_PATH = 260 注释：定义足够长的字符串
  　　Private Sub Form_Load()
  　　Dim TempFile() As Byte
  　　Dim FileNum As Integer
  　　Dim TempDir As String
  　　TempDir = GetWinSysDir 注释：自定义函数取得系统的 Winddows\System 的目录
  　　TempFile = LoadResData(101, "OCX") 注释：用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组
  　　FileNum = FreeFile
  　　Open TempDir & "\nsck.ocx" For Binary Access Write As #FileNum 注释：新建文件(把 Winsock 控件复制到指定目录下)
  　　Put #FileNum, , TempFile
  

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用vb实现“绿色”软件 相关文章：
• ·利用vb实现“绿色”软件
• 利用vb实现“绿色”软件 相关软件

上一篇:VB打造超酷个性化菜单(3)

下一篇:vb 高手搜集-常见问题总结(1)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐