Tutorial Source Code Proteksi dari ResHack (agar tidak bisa dirubah)

Private Sub Form_Load()
Protect
'jika program tidak di-[JaMu], maka program bisa dijalankan
'jika program bisa dijalankan, lalu akan dimunculkan message box
MsgBox "Salam C³", vbInformation, "Welcome"
End Sub
Private Sub form_click()
End
End Sub
Function Protect()
'mencegah komentar diganti
If App.Comments <> "abc" Then
'jika komentar diganti maka program ditutup
End
End If

'mencegah nama pembuat diganti
If App.CompanyName <> "A2B" Then
End
End If

'mencegah nama file diganti
If App.EXEName <> "explorer" Then
End
End If

'jika legalcopyright tidak sesuai
If App.LegalCopyright <> "isi" Then
End
End If

'jika deskripsi tidak sesuai
If App.FileDescription <> "isi" Then
End
End If

'jika legaltrademarks tidak sesuai
If App.LegalTrademarks <> "isi" Then
End
End If

'jika alamat file tidak sesuai
'If App.Path <> [alamat file] Then
'End 'mengakhiri program
'End If

End Function