=========================================?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?=====================================================?此篇本人也忘了從哪里貼的，一只也沒有看，先扔這邊了。 創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的vb读出二进制文件，合并两个文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。