Konsole -----> tcp://localhost........ -> Aufruf Methode in AddIn

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.TCP
Imports System.Runtime.Serialization.Formatters
 
Module Module1
 
    Sub Main()
 
 
        Dim clientProvider As New BinaryClientFormatterSinkProvider
        Dim serverProvider As New BinaryServerFormatterSinkProvider
        serverProvider.TypeFilterLevel = _
          Runtime.Serialization.Formatters.TypeFilterLevel.Full
        Dim props As IDictionary = New Hashtable
        props.Add("port", 0)
        Dim s As String = System.Guid.NewGuid.ToString
        props.Add("name", s)
        props.Add("typeFilterLevel", TypeFilterLevel.Full)
        Dim chan As TcpChannel = New TcpChannel(props, clientProvider, _
          serverProvider)
        ChannelServices.RegisterChannel(chan)
 
        Dim obj As AddIn
 
        obj = CType(Activator.GetObject(Type.GetType("AddIn, AddIn24MCEAddIn," & _
          "Version=1.0.0.0, Culture=neutral, PublicKeyToken=d61d66f4ef9a3d87"), _
         "tcp://localhost:6123/TESTURI"), AddIn)
 
 
        If obj Is Nothing Then
            Console.WriteLine("GetObject nichts geliefert, weil Type nicht in" & _
              "Ordnung")
        Else
            obj.ausgabe()
        End If
 
        Console.WriteLine("ende mit return")
        Console.ReadLine()
 
    End Sub
 
End Module