Imports System.Net
Imports System.Windows.Forms
public class Tester
public Shared Sub Main
Dim mstrfileName As String = "start.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
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
|