Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
 
Namespace MyLibVLC
 
    Friend Class clsLibVlc
 
        ' Methods
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_audio_get_track_count(ByVal player As _
        IntPtr, ByRef ex As libvlc_exception_t) As Integer
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_audio_get_volume(ByVal instance As _
        IntPtr, ByRef p_exception As libvlc_exception_t) As Integer
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_audio_set_track(ByVal player As IntPtr, ByVal _
        i_track As Integer, ByRef ex As libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Friend Shared Sub libvlc_audio_set_volume(ByVal instance As IntPtr, _
        ByVal i_volume As Integer, ByRef p_exception As libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_media_new(ByVal p_instance As IntPtr, _
        <MarshalAs(UnmanagedType.LPStr)> ByVal psz_mrl As String, ByRef p_e _
        As libvlc_exception_t) As IntPtr
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_media_player_new_from_media(ByVal media _
        As IntPtr, ByRef ex As libvlc_exception_t) As IntPtr
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_media_player_play(ByVal player As IntPtr, _
        ByRef ex As libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_media_player_release(ByVal player As IntPtr)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_exception_get_message(ByRef p_exception _
        As libvlc_exception_t) As String
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_exception_init(ByRef p_exception As _
        libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_exception_raised(ByRef p_exception As _
        libvlc_exception_t) As Integer
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_media_player_set_drawable(ByVal player As _
        IntPtr, ByVal drawable As IntPtr, ByRef p_e As libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_media_player_stop(ByVal player As IntPtr, _
        ByRef ex As libvlc_exception_t)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_media_release(ByVal p_meta_desc As IntPtr)
        End Sub
        <DllImport("libvlc.dll")> _
        Public Shared Function libvlc_new(ByVal argc As Integer, <MarshalAs( _
        UnmanagedType.LPArray, ArraySubType:=UnmanagedType.LPStr)> ByVal _
        argv As String(), ByRef ex As libvlc_exception_t) As IntPtr
        End Function
        <DllImport("libvlc.dll")> _
        Public Shared Sub libvlc_release(ByVal instance As IntPtr)
        End Sub
    End Class
 
 
End Namespace