AutoHotkey Community

; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         CraSH23000
;
; Script Function:
;   Template script (you can customize this template by editing
;"ShellNew\Template.ahk" in your Windows folder)
;

#NoEnv
SendMode Input 
SetWorkingDir %A_ScriptDir%


original :=        "abcdefghijklmnopqrstuvwxyz0123456789.,/[]\;!@#$%^&*()<>?{}|:"
original_capped := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Loop % StrLen(original)
{
  c1 := SubStr(original, A_Index, 1)
  Hotkey ~%c1%, DoHotkey

  c2 := SubStr(original, A_Index, 1)
  Hotkey ~+%c2%, DoHotkey_capped

}

return


DoHotkey:
   
   StringRight ThisKey, A_ThisHotkey, 1

   i2 := InStr(original, ThisKey)

   ;msgbox: i2 is %i2%

   i3 := (i2*100)

   SoundBeep, %i3%,100

return

DoHotkey_capped:
   
   StringRight ThisKey, A_ThisHotkey, 1

   i2 := InStr(original_capped, ThisKey)

   ;msgbox: i2 is %i2%

   i3 := (i2*50)

   SoundBeep, %i3%,100

return


~Space::SoundBeep, 37,100

~BackSpace::SoundBeep, 5000,100
~tab::SoundBeep, 8000,100