用资源文件做捆绑工具，（exe加入资源文件)

 

 *************************************************************************
'**模 块 名：Form1
**说 明：永远的魔灵 by icecept(郭卫）
'**创 建 人：icecept(魔灵)
'**日 期：2009-11-15 20:27:03
'**修 改 人：icecept(魔灵)
'**版 本：V1.0.0
'**E-mail   ：[email protected] QQ：543375508
'**网 址：http://hi.baidu.com/icecepthttp://icecept.jimdo.com
'*************************************************************************'

Option Explicit
Dim vDataFileName As String

Private Sub Form_Load() '程序启动时生成文件
Dim DataFile() As Byte
vDataFileName = App.Path & "/华容道.exe" '要解出的数据文件名，这里的路径没必要这么张扬，可以找个隐蔽点的地方
DataFile = LoadResData(101, "CUSTOM") '从资源文件读入文件内容
Open vDataFileName For Binary As #1   '建立数据文件，以二进制方式打开
Put #1, , DataFile
Close #1 '写完后关闭文件
Shell vDa