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

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 cindy.joyce@worldnet.att.net", 40, "Thanh cong!" Text1.Text = "" Command1.Caption = "File da duoc khoa!" End Sub . 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