VB加壳脱壳程序源码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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, Shift As Integer, X As Single, Y As Single) Image7.Visible = True
End Sub
Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image7.Visible = False
Image5_Click
End Sub
Private Sub Image6_Click()
Text2.SetFocus
Frame3.Visible = True
List1.Visible = False
Frame4.Visible = False
End Sub