vb实现绿色软件

现在非常流行绿色'软件，不需要什么安装程序只要一个EXE文件就可以运行程序了，而在VB的编程中有许多地方需要调用第三方的控件（很难用API函数搞定所有的功），或其他文件打包进去了，那么在VB中怎么用变通的方法实现绿色”软件呢，请看示例：1、主程序.EXE用VB6.0编写的程序，调用了Winsock控件，如果在没有安装VB5.0、6.0的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用VB5.0、6.0的安装程序进行打包，不然只有用用2的方2、注册程序.EXE用VB6.0编写的程序，使用资源文件的方法，把Winsock控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过API函数GetSystemDirectory取得系统的WinddowsWSystem的目录，然后把Winsock控件复制到该目录下，并用Shell来完成控件的注册。⑴启动VB6.0,在外接程序-外接程序管理器”中加载“VisualBasic6资源编辑器”⑵在VB资源编辑器窗口中，点击添加自定义资WWinddowsWSystemWnsck.ocx)，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：语言：中文(中国)⑶保存资源文件，写如下代码：PrivateDeclareFunctionGetSystemDirectoryLib\"kernel32\"Alias\"GetSystemDirectoryA\"(ByVaiIPBufferAsConstMAX_PATH=260注释：定义足够长的字符串PrivateSubForm_Load()DimTempFile()AsByteDimTempDirAsStringTempDir=GetWinSysDir注释：自定义函数取得系统的WinddowsWSystem的目录TempFile=LoadResData(101,\"OCX\")注释：用以从资源(.res)文件装载若干可能类型的数据,并返回一个Byte数组OpenTempDir&\"\\nsck.ocx\"ForBinaryAccessWriteAs#FileNum注释：新建文件(把Winsock控件复制到指定目录下)Put#FileNum,,TempFileClose#FileNum\",vbNormalFocus注释：注册控件，有弹出对话框Shell\"regsvr32\"&TempDir&\"\\nsck.ocx/s\",vbNormalFocus注释：注册控件，无弹出对话框MsgBox\"注册成功，现在本程序可正常运行了！！\",vbOKOnly,\"注册控件\"PublicFunctionGetWinSysDir()注释：定义读取WinddowsWSystem的所在目录的函数S=String(MAX_PATH,0)注释：赋值S=Left(S,InStr(S,Chr(O))-1)注释：去掉多余的空格GetWinSysDir=S注释：如:DimSAsString*20在用VB6.0保存上述两个程序后，请再使用VB5.0重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用VB5.0编译的程序，在Win9