HaloMods "Classic" Read-only Archive

Code: Select all

WindowsMediaPlayer1.URL = OpenFileDialog.FileName

Code: Select all

Public Class Form1

    'the filename is the location of the file the app will play
    Dim FileName As String

    'this will store our return value from the mciSendString function
    Dim ReturnValue As Integer

    'this will store the data returned from the lpstrReturnString parameter.
    'it will have a 128 character buffer
    Dim ReturnData As String = Space(128)

    'this will store our return string from the mciGetErrorString function.
    'it will have a 128 character buffer
    Dim Status As String = Space(128)

    'a boolean is a true or false statement. we will get true if
    'our mciGetErrorString successfully determines the string it
    'recieves from the mciSendString function
    Dim Success As Boolean

    'these 2 functions use .dll's that should be on evey windows running pc
    Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
            lpstrReturnString As String, ByVal uReturnLength As Integer, _
                ByVal hwndCallback As Integer) As Integer

    Private Declare Function mciGetErrorString Lib "winmm.dll" Alias _
        "mciGetErrorStringA" (ByVal dwError As Integer, ByVal lpstrBuffer _
            As String, ByVal uLength As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        FileName = Chr(34) & Application.StartupPath & "\something.mp3" & Chr(34)

        ReturnValue = mciSendString("open " & FileName & " type mpegvideo alias oursong", 0, 0, 0)
        ReturnValue = mciSendString("play oursong", 0, 0, 0)

        ' Optional.
        Success = mciGetErrorString(ReturnValue, Status, 128)
        TextBox2.Text = Status

    End Sub

End Class

Code: Select all

        Dim sp As New Media.SoundPlayer(Application.StartupPath & "\something.wav")
        sp.PlayLooping()