173 lines
4.6 KiB
AutoHotkey
173 lines
4.6 KiB
AutoHotkey
#Persistent
|
|
SoundBeep, 300, 250
|
|
capsLockOn := false
|
|
iniFile := "capsLockSounds.ini"
|
|
|
|
SetTimer, CheckCapsLockStatus, 50
|
|
|
|
if (FileExist(iniFile)) {
|
|
IniRead, offSound, %iniFile%, SoundFiles, OffSound
|
|
IniRead, onSound, %iniFile%, SoundFiles, OnSound
|
|
IniRead, loopSound, %iniFile%, SoundFiles, LoopSound
|
|
IniRead, timerInterval, %iniFile%, Settings, TimerInterval
|
|
if (timerInterval < 2000)
|
|
timerInterval := 2000
|
|
}
|
|
|
|
/**
|
|
* Hotkey to terminate the script with Ctrl + Shift + X
|
|
*/
|
|
^+x::
|
|
PlayExitSoundEffect()
|
|
ExitApp
|
|
return
|
|
|
|
/**
|
|
* Play exit sound effect before terminating
|
|
*/
|
|
PlayExitSoundEffect() {
|
|
notes := [500, 550, 600]
|
|
for _, note in notes {
|
|
SoundBeep, note, 200
|
|
Sleep 150
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Check the CapsLock status and play sounds
|
|
*/
|
|
CheckCapsLockStatus:
|
|
If (GetKeyState("CapsLock", "T") && !capsLockOn) {
|
|
capsLockOn := true
|
|
SetTimer, LoopCapsLockSound, %TimerInterval%
|
|
SoundPlay, %onSound%
|
|
} else if (!GetKeyState("CapsLock", "T") && capsLockOn) {
|
|
capsLockOn := false
|
|
SetTimer, LoopCapsLockSound, Off
|
|
SoundPlay, %offSound%
|
|
}
|
|
Return
|
|
|
|
/**
|
|
* Play looping sound when CapsLock is on
|
|
*/
|
|
LoopCapsLockSound:
|
|
If (capsLockOn && loopSound != "") {
|
|
SoundPlay, %loopSound%
|
|
}
|
|
Return
|
|
|
|
/**
|
|
* Hotkey to show GUI for selecting sound files
|
|
*/
|
|
^!+s::
|
|
Gui, Add, Text,, Insert the path for the sound when you turn your CapsLock off here:
|
|
Gui, Add, Edit, x10 y10 w300 vOffSound, %offSound%
|
|
Gui, Add, Button, x320 y10 w80 gBrowseOffSoundFile, Browse
|
|
Gui, Add, Button, x410 y10 w70 gPreviewOffSoundFile, Preview
|
|
Gui, Add, Text,, Insert the path for the sound when you turn your CapsLock on here:
|
|
Gui, Add, Edit, x10 y40 w300 vOnSound, %onSound%
|
|
Gui, Add, Button, x320 y40 w80 gBrowseOnSoundFile, Browse
|
|
Gui, Add, Button, x410 y40 w70 gPreviewOnSoundFile, Preview
|
|
Gui, Add, Text,, Insert the path for the looping sound when CapsLock is on here:
|
|
Gui, Add, Edit, x10 y70 w300 vLoopSound, %loopSound%
|
|
Gui, Add, Button, x320 y70 w80 gBrowseLoopSoundFile, Browse
|
|
Gui, Add, Button, x410 y70 w70 gPreviewLoopSoundFile, Preview
|
|
Gui, Add, Text,, Type (in ms) your timer for looping your sound here (must be >= 2000 ms):
|
|
Gui, Add, Edit, x10 y100 w100 vTimerInterval, %timerInterval%
|
|
Gui, Add, Text, x120 y100, Timer Interval (ms)
|
|
Gui, Add, Button, x150 y130 w100 h30 gSaveSoundSettings, Save
|
|
Gui, Add, Button, x100 y130 w100 h30 gCancelSettings, Cancel
|
|
Gui, Show, , Select Sounds
|
|
return
|
|
|
|
/**
|
|
* Browse for the sound file when CapsLock is off
|
|
*/
|
|
BrowseOffSoundFile:
|
|
FileSelectFile, offSound, 1, , Select a sound file when CapsLock is off, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, OffSound, %offSound%
|
|
return
|
|
|
|
/**
|
|
* Browse for the sound file when CapsLock is on
|
|
*/
|
|
BrowseOnSoundFile:
|
|
FileSelectFile, onSound, 1, , Select a sound file when CapsLock is on, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, OnSound, %onSound%
|
|
return
|
|
|
|
/**
|
|
* Browse for the looping sound file
|
|
*/
|
|
BrowseLoopSoundFile:
|
|
FileSelectFile, loopSound, 1, , Select a sound file for looping when CapsLock is on, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, LoopSound, %loopSound%
|
|
return
|
|
|
|
/**
|
|
* Save selected sound files and timer interval to INI file
|
|
*/
|
|
SaveSoundSettings:
|
|
IniWrite, %offSound%, %iniFile%, SoundFiles, OffSound
|
|
IniWrite, %onSound%, %iniFile%, SoundFiles, OnSound
|
|
IniWrite, %loopSound%, %iniFile%, SoundFiles, LoopSound
|
|
GuiControlGet, timerInterval,, TimerInterval
|
|
if (timerInterval < 2000) {
|
|
timerInterval := 10000
|
|
MsgBox, Timer duration should not be below 2000ms or 2 seconds. Timer set to 10 seconds.
|
|
}
|
|
IniWrite, %timerInterval%, %iniFile%, Settings, TimerInterval
|
|
MsgBox, Configuration saved.
|
|
Gui, Destroy
|
|
return
|
|
|
|
/**
|
|
* Preview the selected off sound
|
|
*/
|
|
PreviewOffSoundFile:
|
|
GuiControlGet, offSound, , OffSound
|
|
if (offSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(offSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %offSound%
|
|
}
|
|
return
|
|
|
|
/**
|
|
* Preview the selected on sound
|
|
*/
|
|
PreviewOnSoundFile:
|
|
GuiControlGet, onSound, , OnSound
|
|
if (onSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(onSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %onSound%
|
|
}
|
|
return
|
|
|
|
/**
|
|
* Preview the selected looping sound
|
|
*/
|
|
PreviewLoopSoundFile:
|
|
GuiControlGet, loopSound, , LoopSound
|
|
if (loopSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(loopSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %loopSound%
|
|
}
|
|
return
|
|
|
|
/**
|
|
* Cancel and close the GUI
|
|
*/
|
|
CancelSettings:
|
|
Gui, Destroy
|
|
return
|