Reply to thread

[CODE]Imports System

Imports System.Windows.Forms

Imports MediaPortal.GUI.Library

Imports MediaPortal.Dialogs

Public Class Plugin

    Implements IPlugin

    Implements ISetupForm

    Public Sub Start() Implements IPlugin.Start

        Log.Info("Started and Added Handler")

        AddHandler MediaPortal.Player.g_Player.PlayBackChanged, AddressOf PlayBackChanged

    End Sub

    Public Sub PlayBackChanged(ByVal type As MediaPortal.Player.g_Player.MediaType, ByVal stoptime As Integer, ByVal filename As String)

        Dim dlg As GUIDialogOK = GUIWindowManager.GetWindow(GUIWindow.Window.WINDOW_DIALOG_OK)

        dlg.SetHeading("Window Title")

        dlg.SetLine(1, "Last Song was")

        dlg.SetLine(2, filename)

        dlg.DoModal(GUIWindowManager.ActiveWindow)

    End Sub

    Public Sub [Stop]() Implements IPlugin.Stop

        RemoveHandler MediaPortal.Player.g_Player.PlayBackChanged, AddressOf PlayBackChanged

        Log.Debug("Removed Handler")

    End Sub

    Public Function Author() As String Implements MediaPortal.GUI.Library.ISetupForm.Author

        Return "Your_Name"

    End Function

    Public Function CanEnable() As Boolean Implements MediaPortal.GUI.Library.ISetupForm.CanEnable

        Return True

    End Function

    Public Function DefaultEnabled() As Boolean Implements MediaPortal.GUI.Library.ISetupForm.DefaultEnabled

        Return True

    End Function

    Public Function Description() As String Implements MediaPortal.GUI.Library.ISetupForm.Description

        Return "Description"

    End Function

    Public Function GetHome(ByRef strButtonText As String, ByRef strButtonImage As String, ByRef strButtonImageFocus As String, ByRef strPictureImage As String) As Boolean Implements MediaPortal.GUI.Library.ISetupForm.GetHome

    End Function

    Public Function GetWindowId() As Integer Implements MediaPortal.GUI.Library.ISetupForm.GetWindowId

        Return 1000000

    End Function

    Public Function HasSetup() As Boolean Implements MediaPortal.GUI.Library.ISetupForm.HasSetup

        Return False

    End Function

    Public Function PluginName() As String Implements MediaPortal.GUI.Library.ISetupForm.PluginName

        Return "Test"

    End Function

    Public Sub ShowPlugin() Implements MediaPortal.GUI.Library.ISetupForm.ShowPlugin

    End Sub

End Class[/CODE]

This works. I have just tested it.

Make sure you put your plugin in the process folder.