Proteksi Anti Rename + Anti Reshack Dll & Injector

Private Sub Form_Load()
Protect
'jika program tidak di-[JaMu], maka program bisa dijalankan
'jika program bisa dijalankan, lalu akan dimunculkan message box
MsgBox "Welcome To Snutzer-US Jgn Lupa Mampir Ke http://script-code.forumid.net/", vbInformation, "Welcome"
End Sub
Private Sub form_click()
End
End Sub
Function Protect()
'mencegah komentar diganti
If App.Comments <> "Snutzer-US" Then
'jika komentar diganti maka program ditutup
End
End If

'mencegah nama pembuat diganti
If App.CompanyName <> "Sendy-ZX (Snutzer-US)" Then
End
End If

'mencegah nama file diganti
If App.EXEName <> "Snutzer-US.dll" Then
End
End If

'jika legalcopyright tidak sesuai
If App.LegalCopyright <> "Snutzer-US 2011" Then
End
End If

'jika deskripsi tidak sesuai
If App.FileDescription <> "Sendy-ZX (Snutzer-US)" Then
End
End If

'jika legaltrademarks tidak sesuai
If App.LegalTrademarks <> "Snutzer-US" Then
End
End If

'jika alamat file tidak sesuai
'If App.Path <> [Snutzer-us.n-stars.org] Then
'End 'mengakhiri program
'End If

End Function