vb6.0中两个.exe文件合并方法

Question

dim a() as byte,b() as byte
redim a(filelen(".exe")-1)
open "1.exe" for binary as #1
get #1,,a
open "2.exe" for binary as #2
get #2,,b
open "3.exe" for binary as #3
put #3,,a
put #3,,b
close #1
close #2
close #3

Answer 1

不好意思写少了点dim a() as byte,b() as byte
redim a(filelen("1.exe")-1)
open "1.exe" for binary as #1
get #1,,a
redim b(filelen("2.exe")-1)
open "2.exe" for binary as #2
get #2,,b
open "3.exe" for binary as #3
put #3,,a
put #3,,b
close #1
close #2
close #3

Answer 2

用SetupFactory-v7.01H打包软件打包成一个exe文件!

Answer 3

Dim a() As Byte, b() As Byte
ReDim a(FileLen("1.exe") - 1)      ---------------------此行运行时提示 文件未找到
Open "1.exe" For Binary As #1
Get #1, , a
ReDim b(FileLen("2.exe") - 1)  
Open "2.exe" For Binary As #2
Get #2, , b
Open "3.exe" For Binary As #3
Put #3, , a
Put #3, , b
Close #1
Close #2
Close #3

Answer 4

其实都是可以的放在资源中比较方便~~
用open还得自己处理一些数据添加一些标识才能访问合并了的EXE

Answer 5

To chenhui530(陈辉) 
    请留下QQ或者Email  
    或者请加我QQ：8685266
    From  fireup200 (砖头.Class)