Imports System
Imports System.Collections.Generic
Imports InterfaceClasses

Public Class Plugin

    Public Sub New() 'wtf is this for?

    End Sub
    Private _hostPlugin As InterfaceClasses.IPluginHost
    Public Function Name() As String
        'This MUST be a single word, no spaces and unique to your plugin
        Return "SampleVBPlugin"
    End Function
    Public Function Author() As String
        Return "Tidder"
    End Function
    Public Function Description() As String
        Return "A small sample VB plugin"
    End Function
    Public Function Version() As String
        Return "1.0.0"
    End Function
    Public Sub Initialize(ByVal host As InterfaceClasses.IPluginHost)
        _hostPlugin = host
    End Sub
    Public Sub passPluginMessage(ByVal sender As String, ByVal message As String)
        Try
            Dim ipcmsg As New IPCMessage(message)
            If ipcmsg.getClass() = "test" Then
                If ipcmsg.getMethod() = "play" Then
                    _hostPlugin.passCoreMessage("SampleVBPlugin", "MediaEngine:media play")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)


        End Try
    End Sub

End Class