This is a Hitskin.com skin preview
Install the skin • Return to the skin page
Cara memproteksi CD dgn VB
4 posters
:: DYTOSHARE FORUM :: Tips n' Trik
Halaman 1 dari 1
Cara memproteksi CD dgn VB
Maaf kalo udah repost
Pernah punya data pribadi yang disimpan di CD atau punya koleksi Software kesayangan terus CDnya dipinjam tanpa sepengetahuan kita? Gimana Kesel gak?
Itulah yang terjadi pada CD Software kesayangan ku, Berdasarkan pengalaman saya sih, Biasanya orang yang minjem CD tanpa permisi gak pernah ngembaliin CD kita. Padahal tau gak udah susah-susah ngumpulin software sampe download berjam-jam ya Raib juga CDnya.
Dan lebih sialnya data yang dihardisk juga udah di delete. Ya dah cape dah harus databack ampe kesel nungguinnya. Gak mau kejadian menyedihkan itu terulang lagi jadi ada ide dah buat proteksi cd. Untuk kali ini saya menggunakan bantuan software Visual Basic 6.0
Caranya
1. Buka VB kita lalu klik standard EXE
2. Masukan item-item sebagai berikut :
4 Label, 2 textbox, 2 timer, 1 module dan 2 command
Berikut propertiesnya :
Form1 : nama ==> frmpassword
text1 : nama ==> txtnama
text2 : nama ==> txtpassword dan passwordchar isi dengan tanda bintang ( * )
label1: caption jadi ?Masukan Password Anda.
label2: caption jadi “nama”
label4: caption jadi “password”
label3: nama ==> peringatan dan caption ganti dengan ?Akses Akan Ditolak Saat 15 Detik?
timer1 ganti intervalnya jadi 15000 yang nanti cd otomatis keluar dalam waktu 15 detik
timer2 ganti intervalnya jadi 50
3. Buat tampilannya semenarik mungkin atau bisa lihat seperti gambar diatas.
4. Setelah selesai mengatur tampilan kita lanjut dengan penulisan perintahnya.Copy source kode dibawah ini. Kembali pada Vb kita Klik menu view pada menu bar lalu pilih code. Pastekan kode tadi disana.
- Spoiler:
- Option Explicit
Dim buka As Long
Dim huh As Long
Private Sub Command1_Click()
Dim a As Integer
Do While (True)
If (txtnama.Text = “ghostisme” And txtpassword.Text = “123cabul“;) Then
a = MsgBox(“ThanKs For Your Password! Jangan Kasih Tau Siapa-Siapa Ya!“, vbInformation + vbOKOnly, “Disk Ghostisme Oke“;)
Unload frmpassword
Exit Do
End
Else
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
End If
Loop
End Sub
Private Sub Command2_Click()
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
Unload Me
End Sub
Private Sub Timer1_Timer()
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
End Sub
Private Sub Timer2_Timer()
Label3.ForeColor = QBColor(Rnd * 15)
End Sub
5. Tambahkan module dengan klik project pada menu bar lalu pilih add module.
6. Copy pastekan kode berikut pada module
- Spoiler:
- Option Explicit
Declare Function CdRoOmX Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
7. Tekan F5 untuk menjalankannya! Bagiamana Coba test apakah dalam 15 detik Cdrom kamu keluar otomatis atau gak?
8. Setelah di perkirakan berhasil tinggal buat exe filenya yaitu dengan klik file pada menu bar pilih make project1.exe, lalu save dengan nama terserah kamu contoh protector.exe
Ket: pada tulisan yang berwarna merah kamu dapat menggantinya sesuai kebutuhan dan untuk contoh program ini gunakan user namenya “ghostisme” dan password “123cabul”
Setelah selesai membuat program tinggal buat autorunnya pada notepad dengan menuliskan kode dibawah ini lalu save dengan nama autorun.inf
- Spoiler:
- [autorun]
OPEN=protector.exe
ICON=protector.exe
Bagaimana dapat berjalan bukan! jadi bagi yang gak tau user ama paswordnya ya CDnya gak bakal kebuka soalnya CDromnya keluar terus waktu masukin CD kita.Mantap bukan?
Masih Kurang puas? pengen yang lain yang lebih sadis? Gimana kalo bukan cuma CDRom yang kebuka tapi Komputernya jadi MATI?
hehe Coba rubah perintah untuk membuka CDRom menjadi shutdown pasti muantep! Kenapa gak tahu kode buat perintah shutdown? masukin aja kode ini
shell ?shutdown -s -f -t 0
don`t try this at home
Sumber : Cyberhacking
higiinia- Newbie
- Jumlah posting : 114
Join date : 29.01.11
Age : 31
Lokasi : makassar
Re: Cara memproteksi CD dgn VB
higiinia wrote:
Maaf kalo udah repost
Pernah punya data pribadi yang disimpan di CD atau punya koleksi Software kesayangan terus CDnya dipinjam tanpa sepengetahuan kita? Gimana Kesel gak?
Itulah yang terjadi pada CD Software kesayangan ku, Berdasarkan pengalaman saya sih, Biasanya orang yang minjem CD tanpa permisi gak pernah ngembaliin CD kita. Padahal tau gak udah susah-susah ngumpulin software sampe download berjam-jam ya Raib juga CDnya.
Dan lebih sialnya data yang dihardisk juga udah di delete. Ya dah cape dah harus databack ampe kesel nungguinnya. Gak mau kejadian menyedihkan itu terulang lagi jadi ada ide dah buat proteksi cd. Untuk kali ini saya menggunakan bantuan software Visual Basic 6.0
Caranya
1. Buka VB kita lalu klik standard EXE
2. Masukan item-item sebagai berikut :
4 Label, 2 textbox, 2 timer, 1 module dan 2 command
Berikut propertiesnya :
Form1 : nama ==> frmpassword
text1 : nama ==> txtnama
text2 : nama ==> txtpassword dan passwordchar isi dengan tanda bintang ( * )
label1: caption jadi ?Masukan Password Anda.
label2: caption jadi “nama”
label4: caption jadi “password”
label3: nama ==> peringatan dan caption ganti dengan ?Akses Akan Ditolak Saat 15 Detik?
timer1 ganti intervalnya jadi 15000 yang nanti cd otomatis keluar dalam waktu 15 detik
timer2 ganti intervalnya jadi 50
3. Buat tampilannya semenarik mungkin atau bisa lihat seperti gambar diatas.
4. Setelah selesai mengatur tampilan kita lanjut dengan penulisan perintahnya.Copy source kode dibawah ini. Kembali pada Vb kita Klik menu view pada menu bar lalu pilih code. Pastekan kode tadi disana.
- Spoiler:
Option Explicit
Dim buka As Long
Dim huh As Long
Private Sub Command1_Click()
Dim a As Integer
Do While (True)
If (txtnama.Text = “ghostisme” And txtpassword.Text = “123cabul“;) Then
a = MsgBox(“ThanKs For Your Password! Jangan Kasih Tau Siapa-Siapa Ya!“, vbInformation + vbOKOnly, “Disk Ghostisme Oke“;)
Unload frmpassword
Exit Do
End
Else
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
End If
Loop
End Sub
Private Sub Command2_Click()
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
Unload Me
End Sub
Private Sub Timer1_Timer()
buka = CdRoOmX(“set CDAudio door open”, huh, 127, 0) ‘ >> Code untuk membuka CD TRay
End Sub
Private Sub Timer2_Timer()
Label3.ForeColor = QBColor(Rnd * 15)
End Sub
5. Tambahkan module dengan klik project pada menu bar lalu pilih add module.
6. Copy pastekan kode berikut pada module
- Spoiler:
Option Explicit
Declare Function CdRoOmX Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
7. Tekan F5 untuk menjalankannya! Bagiamana Coba test apakah dalam 15 detik Cdrom kamu keluar otomatis atau gak?
8. Setelah di perkirakan berhasil tinggal buat exe filenya yaitu dengan klik file pada menu bar pilih make project1.exe, lalu save dengan nama terserah kamu contoh protector.exe
Ket: pada tulisan yang berwarna merah kamu dapat menggantinya sesuai kebutuhan dan untuk contoh program ini gunakan user namenya “ghostisme” dan password “123cabul”
Setelah selesai membuat program tinggal buat autorunnya pada notepad dengan menuliskan kode dibawah ini lalu save dengan nama autorun.inf
- Spoiler:
[autorun]
OPEN=protector.exe
ICON=protector.exe
Bagaimana dapat berjalan bukan! jadi bagi yang gak tau user ama paswordnya ya CDnya gak bakal kebuka soalnya CDromnya keluar terus waktu masukin CD kita.Mantap bukan?
Masih Kurang puas? pengen yang lain yang lebih sadis? Gimana kalo bukan cuma CDRom yang kebuka tapi Komputernya jadi MATI?
hehe Coba rubah perintah untuk membuka CDRom menjadi shutdown pasti muantep! Kenapa gak tahu kode buat perintah shutdown? masukin aja kode ini
shell ?shutdown -s -f -t 0
don`t try this at home
Sumber : Cyberhacking
wah keren juga nih, ijin cobain dulu y gan.
Oya, sy mnt link VBnet yg baru+jamunya donk gan, please.....
sebelumnya makasih
hitamputih- DS Maniac
- Jumlah posting : 376
Join date : 23.01.11
Re: Cara memproteksi CD dgn VB
saya mau nanya gan, apakah bekerja juga untuk DVD, misalnya isinya Film ?
Re: Cara memproteksi CD dgn VB
visual basic :
[You must be registered and logged in to see this link.]
[You must be registered and logged in to see this link.]
Re: Cara memproteksi CD dgn VB
Sip deh, matur tengkyu y gan momodMr. Noor wrote:visual basic :
[You must be registered and logged in to see this link.]
hitamputih- DS Maniac
- Jumlah posting : 376
Join date : 23.01.11
Re: Cara memproteksi CD dgn VB
hitamputih wrote:Sip deh, matur tengkyu y gan momodMr. Noor wrote:visual basic :
[You must be registered and logged in to see this link.]
sama-sama gan
Re: Cara memproteksi CD dgn VB
Mr. Noor wrote:saya mau nanya gan, apakah bekerja juga untuk DVD, misalnya isinya Film ?
maaf bang mamod... ane belum coba trik ini.. ane hanya nemu dari forum sebelah..
mnurut ane cuman CD doank kayaknya....
Karna ane udah punya VB,, ane coba ngetes trik ini.. baki di CD ato di DVD..
higiinia- Newbie
- Jumlah posting : 114
Join date : 29.01.11
Age : 31
Lokasi : makassar
Re: Cara memproteksi CD dgn VB
untuk protek DVD ada gak sih software nya,?
kemarin saya tanya sama temen itu ada cuma kayakalat DVD burn. buat proteck nya cuma harga nya mantap
kemarin saya tanya sama temen itu ada cuma kayakalat DVD burn. buat proteck nya cuma harga nya mantap
Re: Cara memproteksi CD dgn VB
softwarenya ada gan... kalo di XP ane gak tau..
tp kalo diubuntu banyak bnget.. gak tau apa namanya..
saking bnyaknya aplikasi di ubuntu sy.. gak tau fungsinya apa..hahahha:Ngakak:
mesti dicoba satu2..
yg ane bikin pusing pemutar video dan musiknya bnyk banget.. pusing milih yg mana..???
tp kalo diubuntu banyak bnget.. gak tau apa namanya..
saking bnyaknya aplikasi di ubuntu sy.. gak tau fungsinya apa..hahahha:Ngakak:
mesti dicoba satu2..
yg ane bikin pusing pemutar video dan musiknya bnyk banget.. pusing milih yg mana..???
higiinia- Newbie
- Jumlah posting : 114
Join date : 29.01.11
Age : 31
Lokasi : makassar
Re: Cara memproteksi CD dgn VB
oh maksudnya kalo mau nge buka fie yng ada di CD harus pake password gtu??
SC ny bener ga... ane coba dulu akh
SC ny bener ga... ane coba dulu akh
Prismatic'Unicorn- Newbie
- Jumlah posting : 185
Join date : 16.01.11
Age : 28
Lokasi : Diantara gunung CEWE
:: DYTOSHARE FORUM :: Tips n' Trik
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
Sun Jul 21, 2019 12:45 am by Rulytea
» Jasa Olah Data SPSS
Sun Apr 16, 2017 11:58 am by partaidemokrat
» Ask: Membuat program berbasis android
Mon Apr 06, 2015 12:30 am by Damar
» New Jupiter MX King 150cc brow, berapa yah harga nya ?
Thu Dec 11, 2014 10:37 am by dadangherdiana
» MEMBUAT INJEK PROXY ITU MUDAH
Mon Nov 03, 2014 12:22 pm by djohn6000
» apa ada yang bisa bikin aplikasi penjualan pulsa android
Sun Oct 26, 2014 3:00 pm by gyokosaki
» Ayo Download Win XP SP4 (Versi Tidak Resmi) bagi Para Fans Setia Win XP
Mon Sep 08, 2014 12:57 pm by dytoshare
» [SHARE] Devil May Cry 4 PC (2008)
Fri Jun 13, 2014 2:55 am by cendolmu
» [SHARE] Enemy Front PC (2014)
Fri Jun 13, 2014 2:36 am by cendolmu