Cara Mematikan (men-disable) Fungsi Keyboard dan Mouse dengan Code VB6 - Pada terbitan artikel kali Saya ingin membagikan trik bagaimana mematikan fungsi Keyboard dan Mouse menggunakan VB6.
Untuk menonaktifkan tombol keyboard secara manual kita harus mengerti tentang kode map dari fungsi keyboard tersebut pada value data registry editor contohnya kode scan code map tombol Caps lock pada keyboard layout :00000000 00000000 02000000 00003A00 00000000.Agar tidak berfungsi atau berubah fungsi maka kode tersebut harus di rubah sesuai fungsi yang diharapkan.
Kali ini kita akan membuat fungsi tersebut dengan kode visual Basic. Sebenarnya untuk melakukan tip ini sangat sederhana sekali Anda hanya membutuhkan sebuah Timer dan satu baris kode fungsi. Dimana Timer ini berfungsi untuk menentukan lamanya tombol tersebut akan di disable.
Berikut dibawah ini adalah cara mematikan fungsi Mouse dan Keyboard :
1. Tanamkan 1 Timer dan 1 Commandbutton di form Anda
2. Kemudian copy kode dibawah ini :
Option Explicit
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True 'mulai men-disable
BlockInput True
End Sub
Private Sub Form_Load()
'kecepatan timer 1/1000 mili detik dalam kondisi False (tidak men-disable)
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i > 5 Then 'lamanya 5 detik kembali normal
BlockInput False
i = 0
End If
End Sub
3. Simpan kode Anda dan jalankan program.
Apabila program Anda berhasil dijalankan coba Anda klik Commanbutton, maka Keyboard dan Mouse Anda tidak berfungsi selama 5 detik setelah itu akan normal kembali.
Catatan :
Kode yang bercetak tebal diatas adalah lamanya waktu ketika Mouse dan Keyboard tidak berfungsi
Demikian tip Cara Mematikan (men-disable) Fungsi Keyboard dan Mouse dengan Code VB6. Semoga bermanfaa.Selamat mencoba semoga berhasil.
No comments:
Post a Comment