Code:
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
Bookmarks