145 lines
4.6 KiB
AutoHotkey
145 lines
4.6 KiB
AutoHotkey
#Persistent ; Keep the script running
|
|
SoundBeep, 300, 250
|
|
capsLockOn := false
|
|
iniFile := "capsLockSounds.ini"
|
|
|
|
SetTimer, CheckCapsLock, 50 ; Check the CapsLock status every 50 milliseconds
|
|
|
|
if (FileExist(iniFile)) {
|
|
IniRead, offSound, %iniFile%, SoundFiles, OffSound
|
|
IniRead, onSound, %iniFile%, SoundFiles, OnSound
|
|
IniRead, loopSound, %iniFile%, SoundFiles, LoopSound
|
|
IniRead, timerInterval, %iniFile%, Settings, TimerInterval
|
|
; Ensure timer interval is not below 2 seconds
|
|
if (timerInterval < 2000)
|
|
timerInterval := 2000
|
|
}
|
|
|
|
; Hotkey to terminate the script with Ctrl + Shift + X
|
|
^+x::
|
|
PlayExitSound()
|
|
ExitApp
|
|
return
|
|
|
|
PlayExitSound() {
|
|
notes := [500, 550, 600]
|
|
|
|
for _, note in notes {
|
|
SoundBeep, note, 200
|
|
Sleep 150
|
|
}
|
|
}
|
|
|
|
CheckCapsLock:
|
|
If (GetKeyState("CapsLock", "T") && !capsLockOn) {
|
|
capsLockOn := true
|
|
SetTimer, BeepEvery10Seconds, %TimerInterval%
|
|
SoundPlay, %onSound%
|
|
} else if (!GetKeyState("CapsLock", "T") && capsLockOn) {
|
|
capsLockOn := false
|
|
SetTimer, BeepEvery10Seconds, Off
|
|
SoundPlay, %offSound%
|
|
}
|
|
Return
|
|
|
|
BeepEvery10Seconds:
|
|
If (capsLockOn && loopSound != "") {
|
|
SoundPlay, %loopSound%
|
|
}
|
|
Return
|
|
|
|
; Hotkey to display the 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 gBrowseOffSound, Browse
|
|
Gui, Add, Button, x410 y10 w70 gPreviewOffSound, 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 gBrowseOnSound, Browse
|
|
Gui, Add, Button, x410 y40 w70 gPreviewOnSound, Preview
|
|
Gui, Add, Text,, Insert the path for the sound when the CapsLock is on here:
|
|
Gui, Add, Edit, x10 y70 w300 vLoopSound, %loopSound%
|
|
Gui, Add, Button, x320 y70 w80 gBrowseLoopSound, Browse
|
|
Gui, Add, Button, x410 y70 w70 gPreviewLoopSound, Preview
|
|
Gui, Add, Text,, type (In Ms) your timer for looping your sound here: noted it should be not less than 2000ms or 2sec
|
|
Gui, Add, Edit, x10 y100 w100 vTimerInterval, %timerInterval%
|
|
Gui, Add, Text, x120 y100, Timer Interval (ms)
|
|
Gui, Add, Button, x150 y130 w100 h30 gSaveSounds, Save
|
|
Gui, Add, Button, x100 y130 w100 h30 gCancel, Cancel
|
|
Gui, Show, , Select Sounds
|
|
return
|
|
|
|
; Browse button for selecting the sound file when CapsLock is off
|
|
BrowseOffSound:
|
|
FileSelectFile, offSound, 1, , Select a sound file when CapsLock is off, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, OffSound, %offSound%
|
|
return
|
|
|
|
; Browse button for selecting the sound file when CapsLock is on
|
|
BrowseOnSound:
|
|
FileSelectFile, onSound, 1, , Select a sound file when CapsLock is on, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, OnSound, %onSound%
|
|
return
|
|
|
|
; Browse button for selecting the sound file for looping when CapsLock is on
|
|
BrowseLoopSound:
|
|
FileSelectFile, loopSound, 1, , Select a sound file for looping when CapsLock is on, Audio Files (*.wav; *.mp3)
|
|
GuiControl,, LoopSound, %loopSound%
|
|
return
|
|
|
|
; Save button to save the selected sound files and timer interval
|
|
SaveSounds:
|
|
; Save the selected sound file paths and timer interval to the INI file
|
|
IniWrite, %offSound%, %iniFile%, SoundFiles, OffSound
|
|
IniWrite, %onSound%, %iniFile%, SoundFiles, OnSound
|
|
IniWrite, %loopSound%, %iniFile%, SoundFiles, LoopSound
|
|
GuiControlGet, timerInterval,, TimerInterval
|
|
; Ensure timer interval is not below 2 seconds
|
|
if (timerInterval < 2000) {
|
|
timerInterval := 10000
|
|
MsgBox, Timer duration should not be below 2000ms or 2 seconds. Timer set to 10seconds.
|
|
}
|
|
IniWrite, %timerInterval%, %iniFile%, Settings, TimerInterval
|
|
MsgBox, configuration saved..
|
|
Gui, Destroy
|
|
return
|
|
|
|
; Preview button functionality
|
|
PreviewOffSound:
|
|
GuiControlGet, offSound, , OffSound
|
|
if (offSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(offSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %offSound%
|
|
}
|
|
return
|
|
|
|
PreviewOnSound:
|
|
GuiControlGet, onSound, , OnSound
|
|
if (onSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(onSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %onSound%
|
|
}
|
|
return
|
|
|
|
PreviewLoopSound:
|
|
GuiControlGet, loopSound, , LoopSound
|
|
if (loopSound = "") {
|
|
MsgBox, File path is empty.
|
|
} else if !FileExist(loopSound) {
|
|
MsgBox, Invalid file path.
|
|
} else {
|
|
SoundPlay, %loopSound%
|
|
}
|
|
return
|
|
|
|
Cancel:
|
|
Gui, Destroy
|
|
return
|