AutoHotkey Community

RegRead,Lang,HKEY_CURRENT_USER,Control Panel\International\Language
StringLeft,Lang,Lang,2
if Lang <> DE
{
   ; Wrong language
   ExitApp
}
if A_OSType <> WIN32_NT
{
   ; Wrong system
   ExitApp
}

;This script register the keys that are being pushed and duplicates them. "David" is turned into "DDaavviidd". The script should work for all key, including Enter, Arrow, and function keys.

#a::reload
#x::
{
   FileDelete, C:\Test.txt  ;Used for to show what was picked up from the keyboard
   Loop
   {
      ArrayLength += 1
      ;Should pick up all keys pushed on the keyboard.
      Input, Key, VL1, {Enter}{Escape}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{Ins}{BS}{Capslock}{Numlock}{PrintScreen}{Pause}
      if ErrorLevel <> Max ;ErrorLevel is not "Max" if i.e. F1 was pushed
      {
         StringTrimLeft, Key, ErrorLevel, 7

         ;In order for Send to send i.e. F1 it needs to put brackets around it, like {F1}
         Key = {%Key%}
      }
      
      ;other special characters that need brackets around them in order for Send to send them i.e. {{}
      if (Key = "{" or Key = "}" or Key = "^" or Key = "+" or Key = "#" or Key = "!")
      {
         Key = {%Key%}
      }
      Key := INCLUDESTATE(Key, "Control")
      Key := INCLUDESTATE(Key, "RAlt")
      Key := INCLUDESTATE(Key, "LAlt")
      Send, %Key%
      FileAppend, %Key%, C:\Test.txt
   }
   return
}

;Adds i.e. {Alt down} + character so the characters are written correctly
INCLUDESTATE(Key, modifier)
{
   GetKeyState, state, %modifier%
   if (state = "d")
   {
      Key = {%modifier% down}%key%{%modifier% up}
   }
   return key
}