|
| | Trik Sederhana Memproteksi Koleksi CD | |
| | Pengirim | Message |
---|
mimpi&harapan boementz moderator
Jumlah posting : 41 Location : indonesia-kebumen Registration date : 20.01.08
| Subyek: Trik Sederhana Memproteksi Koleksi CD Sun Jan 20, 2008 10:34 pm | |
| Nah disini saya ada sedikit tips bagi anda pengguna visual basic. Tips ini memang hanya berlaku bagi sistem operasi windows namun bagi anda yang suka utak atik dapat menggunakan pada sistem operasi lain. Prinsip yang ingin saya kerjakan adalah sebagai berikut
1. CD hanya dapat digunakan bagi komputer yang kita rekomendasi saja. 2. CD akan keluar dari Cdrom jika tidak sesuai yang kita inginkan.
Untuk sourcenya adalah sebagai berikut :
Source Code Form ---------------->
Private Sub Form_Load() Dim buffer As String * 255 Dim d As Long Dim Y X = GetPrivateProfileString("SERIAL", "NO", "(error)", _ buffer, 255, "C:\author.ini")' Membaca file ini Y = Left(buffer, X) If Y = "(error)" Then retvalue = mciSendString("set CDaudio door open", _ retrunString, 127, 0)'Cd Keluar End Else If Y = sn("c:\") & "-" & sn("d:\") Then MsgBox "powered by author", _ vbInformation, "INFO" 'Tampil Pesan End Else retvalue = mciSendString("set CDaudio door open", retrunString, _ 127, 0)'Cd Keluar End End If End If End Sub
Source Code Module -----------------------> 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
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
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
Public Function sn(Byval RootPatch As String) As String Dim vollabel As String Dim volsize As Long Dim serial As Long Dim MaxLen As Long Dim Flags As Long Dim name As String Dim Namesize As Long Dim s As String
If GetVolumeInformation(RootPatch, vollabel, volsize, serial, _ MaxLen, Flags, name, Namesize) Then s = Format(Hex(serial), "00000000") sn = Left(s, 4) + "-" + Right(s, 4) Else sn = "0000-0000" End If End Function
Nah setelah selesai maka anda bisa mengeceknya lebih dulu dengan menjalankan Run atau tekan F5 jika sudah benar maka Cdrom anda akan keluar. Jika anda telah menyukainya maka bisa membuat menjadi aplikasi exe dari File -> Make ... .exe. Dan tunggu proses hingga selesai simpan pada map dokument anda. Misalnya file saya namai cekcd.exe
Langkah selanjutnya adalah membuat agar aplikasi berjalan saat CD dimasukan. Cara yang dapat dilakukan dengan membuat autorun cd yaitu dengan membuat berkas autorun. Buka text editor anda misalnya notepad dan masukan source seperti ini
/---------------------\ Source Code Autorun [autorun] OPEN=cekcd.exe ICON=cekcd.exe \---------------------/
Simpan dengan nama autorun.inf pada map dimana cekcd.exe anda simpan.
Anda lihat lagi pada tabel Source Code Form baris ke 5
GetPrivateProfileString("SERIAL", "NO", "(error)", buffer, 255, "C:\author.ini")
Nah disini tertulis c:\author.ini yaitu source ini sedang membaca berkas bowoCD.ini pada kandar C dengan nama Serial dan kuncinya No kemudian jika tidak ditemukan akan bernilai (error). Untuk itu anda harus membuat lagi file ini dan disimpan pada kandar C:\. Untuk nama berkas bisa sesuka anda namun rubah juga untuk pembacaan nama berkasnya. Sourceya sebagai berikut :
Source Code Aotorun [SERIAL] NO=XXXX-XXXX-XXXX-XXXX
Simpan dengan nama bowoCD.ini dan masukan nilai XXXX-XXXX-XXXX-XXXX sesuai serial diska anda. Nah anda siap membakar CD koleksi anda dan jangan lupa masukan berkas autoran.inf dan cekcd.exe yang telah anda buat pada CD tanpa dimasukan dalam map. Untuk medapatkan serial yang dimaksud pada huruf XXXX-XXXX-XXXX-XXXX, anda dapat membuat aplikasi tersendiri dengan memanfaatkan Source Code Module dan Source Code Form terutama pada baris 11. | |
| | | panglima boementz moderator
Jumlah posting : 50 Age : 39 Location : kebumen Registration date : 15.01.08
| | | | cabuler super moderator
Jumlah posting : 28 Registration date : 22.01.08
| Subyek: Re: Trik Sederhana Memproteksi Koleksi CD Tue Jan 22, 2008 3:34 am | |
| waduh... top :cheers: tapi .. kalo bisa ngonci getuh.. cara ngebuka nya gimana boss :(( AjaRin donk.... | |
| | | kacobanget prajurit
Jumlah posting : 5 Age : 36 Location : bomen Registration date : 19.01.08
| Subyek: Re: Trik Sederhana Memproteksi Koleksi CD Tue Jan 22, 2008 10:24 pm | |
| - mimpi&harapan wrote:
- Nah disini saya ada sedikit tips bagi anda pengguna visual basic. Tips ini memang hanya berlaku bagi sistem operasi windows namun bagi anda yang suka utak atik dapat menggunakan pada sistem operasi lain. Prinsip yang ingin saya kerjakan adalah sebagai berikut
1. CD hanya dapat digunakan bagi komputer yang kita rekomendasi saja. 2. CD akan keluar dari Cdrom jika tidak sesuai yang kita inginkan.
Untuk sourcenya adalah sebagai berikut :
Source Code Form ---------------->
Private Sub Form_Load() Dim buffer As String * 255 Dim d As Long Dim Y X = GetPrivateProfileString("SERIAL", "NO", "(error)", _ buffer, 255, "C:\author.ini")' Membaca file ini Y = Left(buffer, X) If Y = "(error)" Then retvalue = mciSendString("set CDaudio door open", _ retrunString, 127, 0)'Cd Keluar End Else If Y = sn("c:\") & "-" & sn("d:\") Then MsgBox "powered by author", _ vbInformation, "INFO" 'Tampil Pesan End Else retvalue = mciSendString("set CDaudio door open", retrunString, _ 127, 0)'Cd Keluar End End If End If End Sub
Source Code Module -----------------------> 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
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
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
Public Function sn(Byval RootPatch As String) As String Dim vollabel As String Dim volsize As Long Dim serial As Long Dim MaxLen As Long Dim Flags As Long Dim name As String Dim Namesize As Long Dim s As String
If GetVolumeInformation(RootPatch, vollabel, volsize, serial, _ MaxLen, Flags, name, Namesize) Then s = Format(Hex(serial), "00000000") sn = Left(s, 4) + "-" + Right(s, 4) Else sn = "0000-0000" End If End Function
Nah setelah selesai maka anda bisa mengeceknya lebih dulu dengan menjalankan Run atau tekan F5 jika sudah benar maka Cdrom anda akan keluar. Jika anda telah menyukainya maka bisa membuat menjadi aplikasi exe dari File -> Make ... .exe. Dan tunggu proses hingga selesai simpan pada map dokument anda. Misalnya file saya namai cekcd.exe
Langkah selanjutnya adalah membuat agar aplikasi berjalan saat CD dimasukan. Cara yang dapat dilakukan dengan membuat autorun cd yaitu dengan membuat berkas autorun. Buka text editor anda misalnya notepad dan masukan source seperti ini
/---------------------\ Source Code Autorun [autorun] OPEN=cekcd.exe ICON=cekcd.exe \---------------------/
Simpan dengan nama autorun.inf pada map dimana cekcd.exe anda simpan.
Anda lihat lagi pada tabel Source Code Form baris ke 5
GetPrivateProfileString("SERIAL", "NO", "(error)", buffer, 255, "C:\author.ini")
Nah disini tertulis c:\author.ini yaitu source ini sedang membaca berkas bowoCD.ini pada kandar C dengan nama Serial dan kuncinya No kemudian jika tidak ditemukan akan bernilai (error). Untuk itu anda harus membuat lagi file ini dan disimpan pada kandar C:\. Untuk nama berkas bisa sesuka anda namun rubah juga untuk pembacaan nama berkasnya. Sourceya sebagai berikut :
Source Code Aotorun [SERIAL] NO=XXXX-XXXX-XXXX-XXXX
Simpan dengan nama bowoCD.ini dan masukan nilai XXXX-XXXX-XXXX-XXXX sesuai serial diska anda. Nah anda siap membakar CD koleksi anda dan jangan lupa masukan berkas autoran.inf dan cekcd.exe yang telah anda buat pada CD tanpa dimasukan dalam map. Untuk medapatkan serial yang dimaksud pada huruf XXXX-XXXX-XXXX-XXXX, anda dapat membuat aplikasi tersendiri dengan memanfaatkan Source Code Module dan Source Code Form terutama pada baris 11. mas.. ko engga bs seh? ni buat di jalanin di mn? | |
| | | Sponsored content
| Subyek: Re: Trik Sederhana Memproteksi Koleksi CD | |
| |
| | | | Trik Sederhana Memproteksi Koleksi CD | |
|
| Permissions in this forum: | Anda tidak dapat menjawab topik
| |
| |
| |
|