如何从EXE中提取EXE？？

注意:我没用资源添加的!我是精简版,望高手给个代码! --------------------编程问答-------------------- 你啥意思? --------------------编程问答-------------------- 那就麻烦点，因为你不知道资源类型和资源ID
VB完全安装也就100多兆，这都不舍得！

幸好还有其它办法，如果你有装VC或者VS，可以拿它们的资源编辑器查看（不过我估计你是没有装，VS有N个G，VC也差不多）
最简单的办法，就是用一些资源编辑软件（例如我现在用的：ResScope、eXeScope）
你可以用它来查看资源的类型和ID

然后在VB中，使用LoadResData来获得自定义资源的数据：
Dim byteData() As Byte
byteData = LoadResData(资源类型, 资源ID)
Open App.Path & "\xxx.exe" For Binary As #1
Put #1, , byteData
Close #1
Call Shell(App.Path & "\xxx.exe", vbNormal)


我估计Exe文件应该不会保存为图片、图标、字符串等其它类型的资源吧…………
否则上面的代码就用不了

补充：VB ,  基础类