杭州交通信息网旋流除砂器批发:VB如何实现点击就生成某个EXE文件？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/26 19:15:30
点按扭就生成一个EXE文件，并提示：文件以成功生成！
各位高手大哥们，告诉小弟。谢谢了
自己基于自己的资源生成文件
各位高手大哥们，告诉小弟。谢谢了
自己基于自己的资源生成文件
先编译好要生成的exe文件，再查看其属性，看其有多少个字节（注意：是字节！！）打开记事本，写下如下语句：
101 CUSTOM 文件名.exe
保存成 .rc 文件退出。比如保存为D:\sample\new.rc
打开命令提示符，运行 C:\Mincrosoft Visual Studio\VB98\Wixards\rc/r D:\sample\new.rc
以上命令我就不解释了。
D:\sample文件夹下就会生成new.rec文件。进入VB，在你所需要的一个过程中添加以下代码：
'在 “通用-声明”中定义：
private const filesizeofapp2=50960'50960即为你要生成的exe文件的字节大小
'窗体代码：
dim app2() as byte
dim counter as long
app2 = LoadResData(101, "CUSTOM")
Open strFolder & "MiniQQ.exe" For Binary As #1
For counter = 1 To filesizeofapp2
Put #1, counter, app2(counter - 1)
Next counter
Close #1
是调用VB编译称EXE,还是自己基于自己的资源生成文件，这个很复杂，不好讲，10分我倒像看看谁肯为了这分来。。。
可能用VB难了点，生成EXE需要编译器，代码很多，你不一定看的懂。