声卡测试工具，获取本机声卡信息

Find ＝ “Find Sound Blaster Card”
Y ＝ waveOutGetNumDevs ()
.如果 (Y ＞ 0)
MessageBox (取窗口句柄 (), “测试完毕，能找到声卡!” ＋ #换行符 ＋ “Test OK!,I can found Sound Blaster Card!”, Find, 位或 (#MB_OK, #MB_ICONASTERISK))
.否则
MessageBox (取窗口句柄 (), “未找到声音设备” ＋ #换行符 ＋ “No found device”, Find, 位或 (#MB_OK, #MB_ICONASTERISK))
.如果结束
返回 (Y ＞ 0)