Tidak ada balasan pada topik ini

[Dhimot]

Buat kalian Para Programer VB6 !
Ini Aku Share SourceCode VB6 Buat Memproteksi

Kode Ini Hanya Function Buat Applikasi Kamu dan Masih Perlu Dikembangkan . Ini Cuma Dasarnya Tapi Lumayan Kok Ane Udh Coba
Tujuan Code Untuk Menghindari atau detail tidak bisa diedit oleh orang lain
jadi seseorang tidak dapat mengubah Detailnya!!^_^

Source Code

Quote

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

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

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

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

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

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

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

End Function

Tulisan Berwarna Merah Boleh Diganti dengan Fungsi yg sesuai diatas...

NB: isi dulu bagian versions, informations, comments, legal copyrigths........setelah sudah............barus isi SC diatas............