VB加壳脱壳程序源码.docx

文档收集于互联网，已重整理排版 文档收集于互联网，已重整理排版.word 版本可编辑,有帮助. 1:.. VB 加壳脱壳程序源码 1、窗体代码 Private Sub Check1_Click Text2.SetFocus End Sub Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image10.Visible = False End Sub Private Sub Image3_Click If Text1.Text = ““ Then MsgBox “Please Select A File First!“, vbInformation Else List1.Visible = True List2.Visible = False Frame3.Visible = False List1.Text = “ UPX 1.24 “ Text2.SetFocus End If End Sub Private Sub Command2_Click Dim path As String, back_path As String, file_t As String ”Dim”s strings Text2.SetFocus CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName path = Text1.Text back_path = “Backupfile.exe“ If Check1.Value = 1 Then i = FreeFile Open path For Binary As #i file_t = Space(LOF(i)) Get #i, , file_t Close #i Open back_path For Binary As #i Put #i, , file_t Close #i MsgBox “ A Backup of the file has been created in the same location as the original file“, vbInformation End If End Sub Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image8.Visible = True End Sub Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image8.Visible = False Image3_Click End Sub Private Sub Image4_Click If Text1.Text = ““ Then MsgBox “Please Select A File First!“, vbInformation Else Text2.SetFocus List2.Visible = True List1.Visible = False Frame3.Visible = False List2.Text = “ Krypt “ End If End Sub Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image9.Visible = True End Sub Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image9.Visible = False Image4_Click End Sub Private Sub Image5_Click If Text1.Text = ““ Then MsgBox “Please Select A File First!“, vbInformation Else Text2.SetFocus List1.Visible = False List2.Visible = False Frame3.Visible = True Frame4.Visible = True End If End Sub Private Sub Image5_MouseDown(Button As Integer, S