VB.net单exe文件内MP3和WAV音乐文件播放

一、实现音乐文件（MP3和WAV）内嵌exe

笔者使用的开发环境为VS2017，具体添加步骤如下图所示，将1.mp3和2.wav添加到Resources目录下，然后鼠标右击选择属性，然后在资源里把将1.mp3和2.wav在添加一遍，即可完成音乐文件的内嵌。

                                    

                                         

                                                                                              

二、实现WAV音乐播放

.net框架下自带了WAV的播放类 My.Computer.Audio，可以简单的调用Play和Stop方法实现WAV的播放和停止   

'wav播放
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.Audio.Play(My.Resources._2, AudioPlayMode.Background)
    End Sub
    'wav停止
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        My.Computer.Audio.Stop()
    End Sub

三、实现MP3音乐播放

通常使用 media player 控件来播放，但如果添加了 media player 控件的话会增加一个 wmp.dll 文件， 不符合要求， 所以这里使用一个 API 函数来播放

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,ByVal hwndCallback As Long) As Long

mciSendString具体的使用方法这里就不在详细描述，可以到https://baike.baidu.com/item/mciSendString/2905255?fr=aladdin研究。

mciSendString播放过程中碰到界面卡住的问题，考虑使用多线程，不料，使用线程播放后根本播放不了，后来参考了https://www.codeproject.com/questions/183548/how-to-use-mcisendstring-in-a-threaded-application后成功解决了多线程播放问题。

'多线程播放实现类（需放在窗口类的后面否则无法正常运行）
Public Class mciTest
    Private mciConsumerThread As Thread
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,
    ByVal hwndCallback As Long) As Long
    Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
    Dim syncMciResult As Long
    Public Sub New()
        ' The consumer side is started in its own thread
        ' create one from where the mciSendString method gets called
        mciConsumerThread = New Thread(AddressOf threadedMCIconsumer)
        mciConsumerThread.IsBackground = True
        mciConsumerThread.Start()
    End Sub

    Private Sub threadedMCIconsumer()
        Do
            SyncLock MonitorLock
                ' wait for relase of MonitorLock object;
                ' when this statement exits, a new mciCommand
                ' has been issued
                Monitor.Wait(MonitorLock)
                ' the object has been released, so make the mci call
                ' from this thread and put the return value into the
                ' syncMciResult field
                If syncMciCommand <> "" Then
                    syncMciResult = mciSendString(syncMciCommand, Nothing, 0, IntPtr.Zero)
                End If
                ' tell the other thread that a result has been obtained.
                Monitor.Pulse(MonitorLock) ' [This exits the Monitor.wait(MonitorLock) 
                ' command on the other thread.]
                ' start loop all over again, waiting for the next command.
            End SyncLock
        Loop
        ' As this is a background-thread, the loop exits
        ' when the thread is aborted from outside.
    End Sub

    ' The producer is the command being called instead of issuing 
    ' mciSendString directly:

    Public Function mciReplacement(ByVal Command As String) As Integer

        Dim nonLockedReturn As Integer ' this will be the return value

        SyncLock MonitorLock
            ' The MonitorObject has been freed temporarily by the 
            ' threadedMCIconsumer thread.
            ' Grab the syncMciCommand variable and memorize the mciCommand
            syncMciCommand = Command

            ' Release the MonitorObject, so the other thread 
            ' can process the mciSendString
            Monitor.Pulse(MonitorLock) ' [This exits the Monitor.wait(MonitorLock) command 
            ' on the other thread.]

            ' Now wait until the mci-thread signals the arrival of the result.
            Monitor.Wait(MonitorLock)
            ' result has been written into syncMciResult
            nonLockedReturn = syncMciResult
        End SyncLock

        ' use nonLockedReturn to get the result safely out of SyncLock
        Return nonLockedReturn
    End Function

    'The synced variables need to be defined
    Private MonitorLock As New Object()
    Private mciReturnValue As Integer
    Private syncMciCommand As String

End Class

’具体窗体实现播放、暂停、恢复、停止功能

Imports System.Threading '多线程

Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,
    ByVal hwndCallback As Long) As Long
    'Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
    Dim mName
    Dim cMci As New mciTest()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mName = Get_MP3()
        mciSendString("open " & mName & " Alias audiofile", "", 0, 0)
        'cMci.mciReplacement("open " & mName & " alias audiofile")
    End Sub
    ''获取wav文件
    'Function Get_WAV()
    '    Dim path As String = Application.StartupPath + "\2.wav"
    '    Dim fs As New System.IO.FileStream(path, System.IO.FileMode.Create)
    '    fs.Write(My.Resources._2, 0, My.Resources._2.Length)
    '    fs.Close()
    '    Return path
    'End Function
    '获取MP3文件
    Function Get_MP3()
        Dim path As String = Application.StartupPath + "\1.mp3"
        Dim fs As New System.IO.FileStream(path, System.IO.FileMode.Create)
        fs.Write(My.Resources._1, 0, My.Resources._1.Length)
        fs.Close()
        Return path
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        cMci.mciReplacement("open " & mName & " alias audiofile")
        cMci.mciReplacement("play audiofile")
        'cMci.mciReplacement("pause audiofile")
        'cMci.mciReplacement("resume audiofile")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cMci.mciReplacement("stop audiofile")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        cMci.mciReplacement("pause audiofile")
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        cMci.mciReplacement("resume audiofile")
    End Sub
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        System.IO.File.Delete(mName) '退出程序后删除音乐文件
    End Sub
    'wav播放
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.Audio.Play(My.Resources._2, AudioPlayMode.Background)
    End Sub
    'wav停止
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        My.Computer.Audio.Stop()
    End Sub
End Class