求助：如何用AutoHotkey结合BASS库实现电脑键盘多音钢琴功能

嘿，我完全懂你想用电脑键盘当钢琴却被单声部限制的烦躁——多开AHK实例确实搞不定重复按同一音符的问题，毕竟同一个音要能同时播放多个实例才行！别担心，咱们一步步把BASS库整合进去，轻松实现真正的多声部演奏。

第一步：准备BASS库文件 #

• 先下载对应你系统（32/64位）的BASS库，解压后找到bass.dll文件，把它和你的AutoHotkey脚本放在同一个文件夹里。

第二步：编写整合BASS的AHK脚本 #

下面是一个完整的示例脚本，注释里写清了每部分的作用，你可以直接用，也能根据自己的需求调整：

; 加载BASS音频库
#Persistent
bassDll := DllCall("LoadLibrary", "Str", "bass.dll", "Ptr")
if (!bassDll) {
    MsgBox, 加载BASS库失败！请确认bass.dll和脚本在同一文件夹。
    ExitApp
}

; 初始化BASS，设置44100Hz采样率、立体声模式
DllCall("bass\BASS_Init", "Int", -1, "Int", 44100, "Int", 0, "Ptr", 0, "Ptr", 0)

; 定义键盘按键对应的音符频率（这里用QWERTY键对应C大调音阶，可自行修改）
noteMap := {
    "a": 261.63,  ; C4 中央C
    "s": 293.66,  ; D4
    "d": 329.63,  ; E4
    "f": 349.23,  ; F4
    "g": 392.00,  ; G4
    "h": 440.00,  ; A4
    "j": 493.88,  ; B4
    "k": 523.25   ; C5
}

; 存储每个音符的活跃播放通道，支持多通道同时运行
activeChannels := {}

; 处理按键按下事件：每按一次就创建新通道播放音符
~a::~s::~d::~f::~g::~h::~j::~k::
    currentKey := SubStr(A_ThisHotkey, 2)
    targetFreq := noteMap[currentKey]
    
    ; 创建正弦波音频流（频率、音量可调整）
    newChannel := DllCall("bass\BASS_StreamCreate", "Int", 44100, "Int", 2, "Int", 0, "Ptr", RegisterCallback("PlaySineWave"), "Ptr", &targetFreq)
    DllCall("bass\BASS_ChannelPlay", "Ptr", newChannel, "Int", 1)
    
    ; 记录这个通道，方便后续管理（比如按键抬起时停止）
    if (!activeChannels.HasKey(currentKey))
        activeChannels[currentKey] := []
    activeChannels[currentKey].Push(newChannel)
return

; 正弦波生成回调函数（BASS用来生成音频数据）
PlaySineWave(buf, len, user) {
    freq := NumGet(user, 0, "Float")
    static pos := 0
    step := freq * 2 * 3.14159 / 44100
    VarSetCapacity(data, len, 0)
    Loop % len//4 {
        sample := Sin(pos) * 0.3  ; 0.3是音量，可调整
        NumPut(sample, data, (A_Index-1)*4, "Float")
        NumPut(sample, data, (A_Index-1)*4+2, "Float")
        pos += step
        if (pos > 2*3.14159)
            pos -= 2*3.14159
    }
    DllCall("RtlMoveMemory", "Ptr", buf, "Ptr", &data, "Int", len)
    return len
}

; 脚本退出时释放所有BASS资源
ExitApp:
    DllCall("bass\BASS_Free")
    DllCall("FreeLibrary", "Ptr", bassDll)
ExitApp

关键说明 #

• 多声部核心：每次按键都会创建一个独立的音频通道，所以同一个音符按多次会同时播放多个实例，完美解决单声部问题。
• 自定义优化：如果你想用真实钢琴采样代替正弦波，可以把BASS_StreamCreate换成BASS_SampleLoad加载WAV格式的音频文件，音质会更真实。
• 系统适配：一定要下载和你的AutoHotkey版本（32/64位）匹配的bass.dll，否则会加载失败。

内容的提问来源于stack exchange，提问作者John Phillips