Các chiêu thức trong lập trình Không cho dịch ngược phần mềm của bạn
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (56.11 KB, 1 trang )
Không cho dịch ngược phần mềm của bạn
Binh khí : 1 nút ấn cới tên Command1, 1 DirListBox với tên Dir1, 1 DriveListBox với tên Drive1 ,1
FileListBox với tên File1
Xuất xứ : www.pscode.com
Đoạn mã :
Private Sub Command1_Click()
A = "."
Open Text1.Text For Binary As #1
Seek #1, 25
Put #1, , A
Close #1
MsgBox "The File, ''" & Text1 & "'', Was Protected from being
decompiled!", vbOKOnly, "Decompile Protection Attempt Successful!"
End Sub
Private Sub Dir1_Change()
File1 = Dir1
Text1 = Drive1 & "/" & Dir1
End Sub
Private Sub Drive1_Change()
Drive1 = Dir1
End Sub
Private Sub File1_Click()
Text1 = Dir1 & "\" & File1
End Sub
Private Sub File1_DblClick()
Command1_Click
End Sub
Private Sub Form_Load()
MsgBox "Lien he voi tac gia voi email ",
40, "Thanh cong!"
Text1.Text = ""
Command1.Caption = "File da duoc khoa!"
End Sub
