Cara Memproteksi CD Dengan Visual Basic

Cara Memproteksi CD

Trik Memproteksi Koleksi CD dengan VB (Visual Basic) merupakan cara Memproteksi Koleksi CD dengan bahasa pemrograman visual basic (VB). Cara Memproteksi Koleksi CD dengan VB ini dulu sukses dan bisa di jalankan dengan mudah. Bagaimana tidak saya mempunyai koleksi CD ratusan tapi bingung, terfikir proteksi CD sederhana saja namun orang lain yang tidak tahu tak dapat menggunakannya.

Trik Memproteksi Koleksi CD dengan VB ini hanya berlaku jika autorun CD-room dijalankan dengan kata lain autorun CD-Room tidak di disable. Nah artikel dengan judul Trik Sederhana Memproteksi Koleksi CD Anda telah banyak beredar dan dulunya memang saya share di vbbego.com. namun sekarang saya bisa menemukan di beberapa blog, web, forum ada yang mencantumkan siapa penulisnya ada yang tidak, tetapi biarlah

Trik Memproteksi Koleksi CD dengan VB hanya membutuhkan editor vb yaitu boleh memakai visual studio atau visual basic. Trus ada juga file autorun.inf dan ada juga bowoCD.ini. Fungsi masing masing adalah sebagai berikut :

cekcd.exe

Merupakan hasil pack source vb, bertugas untuk mengecek, dan sebagai file yang paling penting untuk Memproteksi Koleksi CD. Jadi file ini akan bertugas jika tidak menemukan atau ada yang salah langsung merespon CD-room untuk eject

autorun.inf

Merupakan sebuah file yang bertugas untuk setting autorun. Jadi file autorun.inf hanya bertugas memberikan informasi fle apa yang akan di jalankan ketika CD di masukan dan juga memberikan informasi icon apa yang bisa di tampilkan.

bowoCD.ini

Merupakan file yang bertugas sebagai penyimpan informasi disini di gunakan untuk menyimpan serial number hardisk. Jadi nantinya jika cekcd.exe d jalankan akan merequest data yang ada di file ini

Trik Memproteksi Koleksi CD dengan VB ini memang sangat sederhana. Andapun yang belum begitu mengenal VB (Visual Basic) pasti bisa mengikutinya atapun membuatnya. Beberapa pertanyaan sering muncul

Tapi jika fitur autorunnya di disable bagaimana? Masih bisa jalan apa tidak ?

Jawabnya :: Tidak, tapi bisa di akali. Misal jika koleksi CD mp3 maka rubah saja nama filenya. Dan ini yang sekarang saya lakukan. dengan mengubah karakter di nama file orang akan malas mengcopy. Trus jika Video pakai saja software lain untuk memproteksi VCD. Jika data dipack trus di password

Untuk NO=XXXX-XXXX-XXXX-XXXX di isi apaan?

Jawabnya :: lihat pada code form

If Y = sn("c:\") & "-" & sn("d:\")Then

nah anda bisa mendapatkan dengan menyisipkan misalnya

text1.text = sn("c:\") & "-" & sn("d:\")

dan jangan lupa menempatkan textbox di form.

Source Code Visual Basic Trik Memproteksi Koleksi CD dengan VB

Ini adalah beberapa source yang di gunakan untuk mengerjakan trik memproteksi koleksi cd dengan VB

Source Code Form Proteksi Koleksi CD

1. Private Sub Form_Load()
2. Dim buffer As String * 255
3. Dim d As Long
4. Dim Y
5. X = GetPrivateProfileString("SERIAL", "NO", "(error)", buffer, 255, "C:\bowoCD.ini")' Membaca file ini
6. Y = Left(buffer, X)
7. If Y = "(error)" Then
8. retvalue = mciSendString("set CDaudio door open", retrunString, 127, 0)'Cd Keluar
9. End
10. Else
11. If Y = sn("c:\") & "-" & sn("d:\") Then
12. MsgBox "sELAMAT mENGGUNAKAn cDNYa bOWo eKOWIDODo", vbInformation, "BOWO INFO" 'Tampil Pesan
13. End
14. Else
15. retvalue = mciSendString("set CDaudio door open", retrunString, 127, 0)'Cd Keluar
16. End
17. End If
18. End If
19. End Sub

Source Code Module Proteksi Koleksi CD

1. Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
2. Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
3. Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
4. Public Function sn(ByVal RootPatch As String) As String
5. Dim vollabel As String
6. Dim volsize As Long
7. Dim serial As Long
8. Dim MaxLen As Long
9. Dim Flags As Long
10. Dim name As String
11. Dim Namesize As Long
12. Dim s As String
13. If GetVolumeInformation(RootPatch, vollabel, volsize, serial, MaxLen, Flags, name, Namesize) Then
14. s = Format(Hex(serial), "00000000")
15. sn = Left(s, 4) + "-" + Right(s, 4)
16. Else
17. sn = "0000-0000"
18. End If
19. End Function

Source Code Aotorun.inf Proteksi Koleksi CD

1. [autorun]
2. OPEN=cekcd.exe
3. ICON=cekcd.exe

Source Code BowoCD.ini Proteksi Koleksi CD

1. [SERIAL]
2. NO=XXXX-XXXX-XXXX-XXXX