Microsoft Media Center Edition 2005 <--- per Reflection -----< Meine DLL ( _
  Klasse AddIn)

Imports System
imports System.Collections
Imports Microsoft.MediaCenter.AddIn
 
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.TCP
Imports System.Runtime.Serialization.Formatters
 
 
    Public Class AddIn
 
        Inherits MarshalByRefObject
        Implements IAddInModule
        Implements IAddInEntryPoint
 
        Private mce As AddInHost
        private serverOnline as boolean
 
        Public Sub Initialize(ByVal dictAppInfo As _
          System.Collections.IDictionary, ByVal dictEntryPoint As _
          System.Collections.IDictionary) Implements IAddInModule.Initialize
 
        End Sub
 
        Public Sub Uninitialize() Implements _
          Microsoft.MediaCenter.AddIn.IAddInModule.Uninitialize
 
        End Sub
 
        Public Sub ausgabe()
        	'mce.HostControl.Dialog("ausgabe","Hinweis",1,120,True)
        End Sub
 
 
        Public Sub Launch(ByVal host As Microsoft.MediaCenter.AddIn.AddInHost) _
          Implements Microsoft.MediaCenter.AddIn.IAddInEntryPoint.Launch
 
			Try
 
				mce = host
				mce.HostControl.Dialog("Launch","Hinweis",1,120,True)
 
				Dim clientProvider As BinaryClientFormatterSinkProvider = Nothing
        		Dim serverProvider As BinaryServerFormatterSinkProvider = New _
          BinaryServerFormatterSinkProvider
        		serverProvider.TypeFilterLevel = _
        Runtime.Serialization.Formatters.TypeFilterLevel.Full
        		Dim props As IDictionary = New Hashtable
        		props.Add("port", 6123)
        		Dim chan As TcpChannel = New TcpChannel(props, clientProvider, _
          serverProvider)
        		ChannelServices.RegisterChannel(chan)
 
        		Dim ref As ObjRef = RemotingServices.Marshal(me,"TESTURI")
 
				mce.HostControl.Dialog("Listen","Hinweis",1,120,True)
 
        	Catch ex As exception
        		mce.HostControl.Dialog(ex.message,"Hinweis",1,120,True)
        		mce.HostControl.Dialog(ex.stacktrace,"Hinweis",1,120,True)
        	End Try
 
 
			'Endlosschleife setzen, damit Instanz nicht verloren geht
			While(1 = 1)
				System.Threading.Thread.Sleep(10000)
			end while
 
        End Sub
    End Class