按键添加提示音_鸡你太美按键音效包

按键盘j键，可以发出坤叫的脚本【j、n、t、m】

带音频文件的整合包：

鸡你太美按键触发音效.ahk

SetBatchLines -1
SetWorkingDir %A_ScriptDir%

; AHK脚本以管理员权限自启
if !(A_IsAdmin || InStr(DllCall("GetCommandLine", "Str"), ".exe /r"))
  RunWait % "*RunAs " (_:=A_IsCompiled ? """" : A_AhkPath " /r """) A_ScriptFullPath (_ ? """" : """ /r")

~j::
停止播放(A_ScriptDir "\鸡你太美music.mp3")
异步播放音频(A_ScriptDir "\鸡.mp3")
Return

~n::
停止播放(A_ScriptDir "\鸡你太美music.mp3")
异步播放音频(A_ScriptDir "\你.mp3")
Return

~t::
停止播放(A_ScriptDir "\鸡你太美music.mp3")
异步播放音频(A_ScriptDir "\太.mp3")
Return

~m::
停止播放(A_ScriptDir "\鸡你太美music.mp3")
异步播放音频(A_ScriptDir "\美.mp3")
Return

~Space::异步播放音频(A_ScriptDir "\鸡你太美music.mp3")

~CapsLock::异步播放音频(A_ScriptDir "\你干嘛.mp3")


异步播放音频(mFile) {
  if !(DN := GetAudioDuration(mFile))
    MsgBox 0x10, 不支持此音频文件, 系统API不支持此音频播放，`n可转换成恒定码率再试一次。, 2
  DllCall("Winmm\mciSendString", "Str", "Open """ mFile """", "Uint", 0, "Uint", 0, "Uint", 0)
  , DllCall("Winmm\mciSendString", "Str", "Play """ mFile """ FROM 000 to " DN, "Uint", 0, "Uint", 0, "Uint", 0)
}

停止播放(mFile) {
  DllCall("Winmm\mciSendString", "Str", "Close """ mFile """", "Uint", 0, "Uint", 0, "Uint", 0)
}

; 获取音频文件长度 By SKAN  https://www.autohotkey.com/forum/viewtopic.php?p=361791#361791
GetAudioDuration(mFile) {
  VarSetCapacity(DN, 16), DLLFunc := "winmm.dll\mciSendString" (A_IsUnicode ? "W" : "A")
  , DllCall(DLLFunc, "Str", "Open """ mFile """ Alias MP3", "Uint", 0, "Uint", 0, "Uint", 0)
  , DllCall(DLLFunc, "Str", "Status MP3 Length", "Str", DN, "Uint", 16, "Uint", 0)
  , DllCall(DLLFunc, "Str", "Close MP3", "Uint", 0, "Uint", 0, "Uint",0)
  Return DN
}