VB.Net Tutorial/Windows/Sound Card
Sound card checker
<source lang="vbnet">Imports System.Net Imports System.Windows.Forms public class Tester
public Shared Sub Main Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then Console.WriteLine("Can play wav file") Else Console.WriteLine("cannot play wav file") End If End Sub Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Const SND_FILENAME As Integer = &H20000 Const SND_ALIAS As Integer = &H10000 Const SND_SYNC As Integer = &H0 Declare Auto Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Int32 Declare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32 Private Const SND_MEMORY As Integer = &H4 Private Const SND_ASYNC As Integer = &H1 Private Const PROCESS_DOMAIN As String = "" Const SND_SYNC1 = &H0 Const SND_ASYNC1 = &H1 Const SND_NODEFAULT = &H2 Const SND_LOOP = &H8 Const SND_NOSTOP = &H10
End class</source>