Rudi2475
24th October 2012, 02:29 PM
Assalamualaikum .. maaf ni gan kalo repost
ane mau share cara bikin desktop locker menggunakan VB 6
sesuai namanya desktop locker adalah aplikasi untuk mengunci desktop
jadi kalo mau masuk harus login dulu (kira kira begitu)
bahan:
1. Button
2. Text Box
3. EventVB_I.dll (http://www.vbforums.com/attachment.php?attachmentid=81618&d=1293022293)
4. Form
buat sebuah form dengan command button dan teks box
[/spoiler] for show:
http://s19.postimage.org/e28xe9vbn/Cropper_Capture_2.jpg
trus pilih project >> references >> browser (cari file EventVB_I.dll yang telah di download)
ubah form properties seperti gambar dibawah
for show:
http://s19.postimage.org/8csotyp5f/desktop1.jpg
dan di propeties form yang nama nya borderstyle di ganti menjadi none biar ga ada tombol minimizenya
di propeties textbox cari yang bernama passwordchart ganti menjad " * " tanpa tanda kutip
lalu klik 2x command button isi kan code berikut
<div style="margin:20px; margin-top:5px">
[spoiler=open this] for code:
<div class="alt2" style="margin: 0px; padding: 6px; border: 1px inset;">
<div style="display: none;">
If Text1.Text = "kaskus" Then '
ane mau share cara bikin desktop locker menggunakan VB 6
sesuai namanya desktop locker adalah aplikasi untuk mengunci desktop
jadi kalo mau masuk harus login dulu (kira kira begitu)
bahan:
1. Button
2. Text Box
3. EventVB_I.dll (http://www.vbforums.com/attachment.php?attachmentid=81618&d=1293022293)
4. Form
buat sebuah form dengan command button dan teks box
[/spoiler] for show:
http://s19.postimage.org/e28xe9vbn/Cropper_Capture_2.jpg
trus pilih project >> references >> browser (cari file EventVB_I.dll yang telah di download)
ubah form properties seperti gambar dibawah
for show:
http://s19.postimage.org/8csotyp5f/desktop1.jpg
dan di propeties form yang nama nya borderstyle di ganti menjadi none biar ga ada tombol minimizenya
di propeties textbox cari yang bernama passwordchart ganti menjad " * " tanpa tanda kutip
lalu klik 2x command button isi kan code berikut
<div style="margin:20px; margin-top:5px">
[spoiler=open this] for code:
<div class="alt2" style="margin: 0px; padding: 6px; border: 1px inset;">
<div style="display: none;">
If Text1.Text = "kaskus" Then '