使用VB创建声卡检测工具

据我了解，在一些下载站提供了声卡检测器下载，我们是不是也可以打造一个呢？
有兴趣的可以扩充功能放在下载站下载，这也很不错喔
步骤：新建工程，在窗体上放置一个textbox控件和一个commandbutton控件
右击窗体---查看代码---输入以下代码
Dim Existent As Boolean
    Dim Consequencd As Long
    Dim Returncaps As Waveoutcaps
    Dim Mainver As Long
    Dim Lesserver As Long
    Dim Pname As String * 32
    Dim Aboutwave As Long
    Dim Channel As String * 2
    Dim i As Integer
    Private Declare Function waveOutGetNumDevs Lib "Winmm.dll" () As Long
Private Declare Function waveOutGetDevCaps Lib "Winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As Waveoutcaps, ByVal uSize As Long) As Long

Private Const Mb_OK = &H0
Private Const Maxpnamelen = 32
Private Const Wave_Format_1m08 = &H1
Private Const Wave_Format_1m16 = &H4
Private Const Wave_Format_1s08 = &H2
Private Const Wave_Format_1s16 = &H8
Private Const Wave_Format_2m08 = &H10
Private Const Wave_Format_2m16 = &H40
Private Const Wave_Format_2s08 = &H20
Private Const Wave_Format_2s16 = &H80
Private Const Wave_Format_4m08 = &H100
Private Const Wave_Format_4m16 = &H400
Private Const Wave_Format_4s08 = &H200
Private Const Wave_Format_4s16 = &H800