如何从EXE中提取EXE？？

g281219464 2008-06-15 09:19:13

注意:我没用资源添加的!我是精简版,望高手给个代码!

...全文

132 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Sandrer 2008-06-16

打赏
举报

那就麻烦点，因为你不知道资源类型和资源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文件应该不会保存为图片、图标、字符串等其它类型的资源吧…………
否则上面的代码就用不了