VB加壳脱壳程序源码.doc

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

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

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)