<Log()> _ 
 Public Class PersonClass Person 
    Inherits ContextBoundObject 
 
    Sub New()Sub New(ByVal s As String) 
 
    End Sub 
 
    Public Function SayHello()Function SayHello(ByVal yourName As String) As String 
        Return "Hello: " + yourName 
    End Function 
End Class 

Imports System.Runtime.Remoting.Contexts
Imports System.Runtime.Remoting.Activation
Imports System.Runtime.Remoting.Messaging

Public Class LogAttributeClass LogAttribute
    Inherits ContextAttribute
    Sub New()Sub New()
        MyBase.New("LogAttribute")
    End Sub
    Public Overrides Sub GetPropertiesForNewContext()Sub GetPropertiesForNewContext(ByVal ctorMsg As System.Runtime.Remoting.Activation.IConstructionCallMessage)

        ' 添加一个新的属性到上下文的属性中

        Dim myContextLogProperty As New ContextLogProperty
        ctorMsg.ContextProperties.Add(myContextLogProperty)

    End Sub

    Public Overrides Function IsContextOK()Function IsContextOK(ByVal ctx As System.Runtime.Remoting.Contexts.Context, ByVal ctorMsg As System.Runtime.Remoting.Activation.IConstructionCallMessage) As Boolean
        Return False
        ' false 表示还有新的属性要加进去
    End Function

End Class

Public Class ContextLogPropertyClass ContextLogProperty
    Implements IContextProperty, IContributeServerContextSink
    Public Sub Freeze()Sub Freeze(ByVal newContext As System.Runtime.Remoting.Contexts.Context) Implements System.Runtime.Remoting.Contexts.IContextProperty.Freeze

    End Sub

    Public Function IsNewContextOK()Function IsNewContextOK(ByVal newCtx As System.Runtime.Remoting.Contexts.Context) As Boolean Implements System.Runtime.Remoting.Contexts.IContextProperty.IsNewContextOK
        Return True
    End Function

    Public ReadOnly Property Name()Property Name() As String Implements System.Runtime.Remoting.Contexts.IContextProperty.Name
        Get
            Return "Logger"
        End Get
    End Property

    Public Function GetServerContextSink()Function GetServerContextSink(ByVal nextSink As IMessageSink) As IMessageSink Implements System.Runtime.Remoting.Contexts.IContributeServerContextSink.GetServerContextSink
        Dim sink As New LogSink(nextSink)
        Return sink
    End Function

End Class


Public Class LogSinkClass LogSink
    Implements IMessageSink
    Private _nextSink As IMessageSink
    Sub New()Sub New(ByVal nextSink As IMessageSink)
        _nextSink = nextSink
    End Sub
    Public Function AsyncProcessMessage()Function AsyncProcessMessage(ByVal msg As IMessage, ByVal replySink As IMessageSink) As IMessageCtrl Implements IMessageSink.AsyncProcessMessage
        'Debug.Assert(False)
        Return _nextSink.AsyncProcessMessage(msg, replySink)
    End Function

    Public ReadOnly Property NextSink()Property NextSink() As IMessageSink Implements IMessageSink.NextSink
        Get
            Return _nextSink
        End Get
    End Property

    Public Function SyncProcessMessage()Function SyncProcessMessage(ByVal msg As IMessage) As IMessage Implements IMessageSink.SyncProcessMessage
        LogMessage(msg)
        Return _nextSink.SyncProcessMessage(msg)
    End Function

    Public Sub LogMessage()Sub LogMessage(ByVal msg As IMessage)
        If TypeOf (msg) Is IConstructionCallMessage Then
            MessageBox.Show(String.Format("{0}的构造函数", CType(msg, IConstructionCallMessage).TypeName))
        End If
        If TypeOf (msg) Is IMethodMessage Then
            Dim msg1 As IMethodMessage = CType(msg, IMethodMessage)
            MessageBox.Show(String.Format("方法{0}参数个数{1}", msg1.MethodName, msg1.ArgCount))
        End If
    End Sub
End Class