Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Public Class Class1
    Inherits System.MarshalByRefObject
    Implements Microsoft.MediaCenter.AddIn.IAddInEntryPoint
    Implements Microsoft.MediaCenter.AddIn.IAddInModule
 
    Public Sub Launch(ByVal host As Microsoft.MediaCenter.AddIn.AddInHost) _
      Implements Microsoft.MediaCenter.AddIn.IAddInEntryPoint.Launch
 
        Dim fs As New FileStream("C:\mce.dat", FileMode.Create)
        Dim formatter As New BinaryFormatter
        formatter.Serialize(fs, host)
        fs.Close()
 
    End Sub
 
    Public Sub Initialize(ByVal dictAppInfo As System.Collections.IDictionary, _
      ByVal dictEntryPoint As System.Collections.IDictionary) Implements _
      Microsoft.MediaCenter.AddIn.IAddInModule.Initialize
 
    End Sub
 
    Public Sub Uninitialize() Implements _
      Microsoft.MediaCenter.AddIn.IAddInModule.Uninitialize
 
    End Sub
End Class