LzmTW.uRemoting.Dll应用举例：建立一个时间服务器

Author:水如烟

示图：


首先说一下，利用这个Dll做一个聊天程序是很方便的，通过设置ServiceInformation的CludeMachines和NotCludeMachines可以实现私聊和群聊。
这个工程有四个项目，Base.Dll,Server.Dll,Host.exe,Client.exe

项目Base提供公用信息，Client和Host都引用到。两个文件：MessageCommon.vb，MyServiceInformations.vb
文件MyServiceInformations.vb，配置信息

Imports LzmTW.uRemoting

Public Class MyServiceInformationsClass MyServiceInformations
    Inherits ServiceInformationCollectionBase
    Public Overrides Sub Initialize()Sub Initialize()
        Dim info As ServiceInformation

        info = New ServiceInformation
        With info
            With .Channel
                .ChnlType = ChannelType.TcpChannel
                .FilterLevel = Runtime.Serialization.Formatters.TypeFilterLevel.Full
                .Port = "8000"
                .PortName = "MyTimer"
                .ServerMachine = "FK-A09-05"
            End With
            With .Service
                .Mode = Runtime.Remoting.WellKnownObjectMode.Singleton
                .ServerUri = "MyTimerServerUri"
                .ServiceName = "MyTimer"
            End With
        End With
        Me.Add(info)

    End Sub
End Class

文件MessageCommon.vb，用来互通消息

Public Class MessageCommonClass MessageCommon
    Inherits LzmTW.uRemoting.MessageBase
    Sub New()Sub New(ByVal text As String)
        Me.Name = "一般会话"
        Me.Body = text
    End Sub
End Class

MyServiceInformations类在服务端（即宿主机）一经运行，即生成ServiceInformation.bin文件，当然对它可以编辑。部署客户端时将此文件附到发布包即可。如果服务端的地址改变了，也可以将其重新编辑。这里对这个二进制文件的编辑操作我就省略了，利用上面这个类就可以编辑信息的，只是没给编辑界面。

项目Server供Host引用，包含两个文件：MessageTimer.vb，MyTimer.vb
MessageTimer.vb，发出服务器时间

Public Class MessageMyTimerClass MessageMyTimer
    Inherits LzmTW.uRemoting.MessageBase
    Sub New()Sub New()
        Me.Name = "时间服务"
        Me.Body = Now
    End Sub
End Class

MyTimer.vb

Imports LzmTW.uRemoting
Public Class MyTimerClass MyTimer
    Inherits ServiceBase
    Dim m_sendEventTimer As System.Threading.Timer

    Sub New()Sub New()
    End Sub

    Public Sub BeginServer()Sub BeginServer()
        Dim timerDelegate As System.Threading.TimerCallback = AddressOf SendTimeToClients
        m_sendEventTimer = New System.Threading.Timer(timerDelegate, Nothing, 500, 1000)
    End Sub
    Private Sub SendTimeToClients()Sub SendTimeToClients(ByVal stateInfo As Object)
        Me.OnSendMessage(Nothing, New MessageMyTimer)
    End Sub

    Public Overloads Function InitializeLifetimeService()Function InitializeLifetimeService() As Object
        Return Nothing
    End Function

    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            m_sendEventTimer.Dispose()
        End If
    End Sub
End Class

CLient项目，只有一个文件ClientForm.vb

Imports LzmTW.uRemoting
Public Class ClientFormClass ClientForm
    Inherits System.Windows.Forms.Form

Windows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MessageListView As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents LocalTimerLabel As System.Windows.Forms.Label
    Friend WithEvents MessageTextBox As System.Windows.Forms.TextBox
    Friend WithEvents SendMessageButton As System.Windows.Forms.Button
    Friend WithEvents TimingButton As System.Windows.Forms.Button
    Friend WithEvents LinkServerButton As System.Windows.Forms.Button
    Friend WithEvents ServerTimeLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
        Me.MessageListView = New System.Windows.Forms.ListView
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
        Me.LocalTimerLabel = New System.Windows.Forms.Label
        Me.MessageTextBox = New System.Windows.Forms.TextBox
        Me.SendMessageButton = New System.Windows.Forms.Button
        Me.TimingButton = New System.Windows.Forms.Button
        Me.LinkServerButton = New System.Windows.Forms.Button
        Me.ServerTimeLabel = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'MessageListView
        '
        Me.MessageListView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.MessageListView.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4})
        Me.MessageListView.FullRowSelect = True
        Me.MessageListView.GridLines = True
        Me.MessageListView.Location = New System.Drawing.Point(12, 80)
        Me.MessageListView.Name = "MessageListView"
        Me.MessageListView.Size = New System.Drawing.Size(424, 152)
        Me.MessageListView.TabIndex = 12
        Me.MessageListView.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "序号"
        Me.ColumnHeader1.Width = 38
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "来源地址"
        Me.ColumnHeader2.Width = 90
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "消息类型"
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "消息内容"
        Me.ColumnHeader4.Width = 197
        '
        'LocalTimerLabel
        '
        Me.LocalTimerLabel.Location = New System.Drawing.Point(16, 56)
        Me.LocalTimerLabel.Name = "LocalTimerLabel"
        Me.LocalTimerLabel.Size = New System.Drawing.Size(208, 16)
        Me.LocalTimerLabel.TabIndex = 11
        Me.LocalTimerLabel.Text = "本地时间:"
        '
        'MessageTextBox
        '
        Me.MessageTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.MessageTextBox.Location = New System.Drawing.Point(148, 248)
        Me.MessageTextBox.Name = "MessageTextBox"
        Me.MessageTextBox.Size = New System.Drawing.Size(288, 21)
        Me.MessageTextBox.TabIndex = 10
        Me.MessageTextBox.Text = ""
        '
        'SendMessageButton
        '
        Me.SendMessageButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.SendMessageButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.SendMessageButton.Location = New System.Drawing.Point(4, 240)
        Me.SendMessageButton.Name = "SendMessageButton"
        Me.SendMessageButton.Size = New System.Drawing.Size(136, 32)
        Me.SendMessageButton.TabIndex = 9
        Me.SendMessageButton.Text = "发送信息(&M)"
        '
        'TimingButton
        '
        Me.TimingButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.TimingButton.Location = New System.Drawing.Point(120, 8)
        Me.TimingButton.Name = "TimingButton"
        Me.TimingButton.Size = New System.Drawing.Size(104, 32)
        Me.TimingButton.TabIndex = 8
        Me.TimingButton.Text = "同步时间(&T)"
        '
        'LinkServerButton
        '
        Me.LinkServerButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.LinkServerButton.Location = New System.Drawing.Point(4, 8)
        Me.LinkServerButton.Name = "LinkServerButton"
        Me.LinkServerButton.Size = New System.Drawing.Size(104, 32)
        Me.LinkServerButton.TabIndex = 7
        Me.LinkServerButton.Text = "连接服务(&L)"
        '
        'ServerTimeLabel
        '
        Me.ServerTimeLabel.Location = New System.Drawing.Point(232, 56)
        Me.ServerTimeLabel.Name = "ServerTimeLabel"
        Me.ServerTimeLabel.Size = New System.Drawing.Size(200, 16)
        Me.ServerTimeLabel.TabIndex = 13
        Me.ServerTimeLabel.Text = "服务器时间:"
        '
        'ClientForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(448, 277)
        Me.Controls.Add(Me.ServerTimeLabel)
        Me.Controls.Add(Me.MessageListView)
        Me.Controls.Add(Me.LocalTimerLabel)
        Me.Controls.Add(Me.MessageTextBox)
        Me.Controls.Add(Me.SendMessageButton)
        Me.Controls.Add(Me.TimingButton)
        Me.Controls.Add(Me.LinkServerButton)
        Me.Name = "ClientForm"
        Me.Text = "时间同步器"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private WithEvents LocalTimer As New Windows.Forms.Timer
    Private TimerServiceInfo As ServiceInformation
    Private ClientFactory As ClientFactory
    Private MessageIndex As Integer

    Private ServerTime As Date

    Private Sub ClientForm_Load()Sub ClientForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LocalTimer.Interval = 1000
        LocalTimer.Start()
    End Sub

    Private Sub LocalTimer_Tick()Sub LocalTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LocalTimer.Tick
        Me.LocalTimerLabel.Text = String.Format("本地时间:{0}", Now)
    End Sub

    Private Sub LinkServerButton_Click()Sub LinkServerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkServerButton.Click
        If Not ClientFactory Is Nothing Then Exit Sub

        Dim ServiceInfos As New Base.MyServiceInformations
        TimerServiceInfo = ServiceInfos("MyTimer")

        '测试远程服务是否启动
        Dim tmpService As IService = ServicesFactory.ActivatorGetObject(TimerServiceInfo)
        Try
            Console.WriteLine(tmpService.Information.ClientServerUri)
            ClientFactory = New ClientFactory
            AddHandler ClientFactory.ServiceMessageArrived, AddressOf OnMessageArrived
            ClientFactory.ServiceAdd(TimerServiceInfo)
            ClientFactory.ServiceEventConnect(TimerServiceInfo.Service.ServiceName)
            Me.AddListViewItem("本地", "本地操作", "连接时间服务器成功")
            tmpService = Nothing
        Catch ex As Exception
            Me.AddListViewItem("本地", "本地操作", "连接时间服务器失败")
        End Try
    End Sub

    Private Sub TimingButton_Click()Sub TimingButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimingButton.Click
        If ClientFactory Is Nothing Then Exit Sub
        If Math.Abs(Now.Subtract(Me.ServerTime).TotalSeconds) > 1 Then
            Microsoft.VisualBasic.TimeOfDay = Me.ServerTime
            If Math.Abs(Now.Subtract(Me.ServerTime).TotalSeconds) > 1 Then
                Me.AddListViewItem("本地", "本地操作", "同步时间失败")
            Else
                Me.AddListViewItem("本地", "本地操作", "同步时间成功")
            End If
        End If
    End Sub

    Private Sub SendMessageButton_Click()Sub SendMessageButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMessageButton.Click
        If ClientFactory Is Nothing Then Exit Sub
        ClientFactory.MessageSendToServer(TimerServiceInfo.Service.ServiceName, Nothing, New Base.MessageCommon(Me.MessageTextBox.Text))
        Me.AddListViewItem("本地", "会话发送", Me.MessageTextBox.Text)
    End Sub

    Private Sub OnMessageArrived()Sub OnMessageArrived(ByVal sender As Object, ByVal arg As IMessage)
        If arg.Name = "时间服务" Then
            Me.ServerTime = CType(arg.Body, Date)
            Me.ServerTimeLabel.Text = String.Format("服务器时间:{0}", arg.Body)
        Else
            With arg
                Me.AddListViewItem(.Machine, .Name, .Body)
            End With
        End If
    End Sub

    Private Sub AddListViewItem()Sub AddListViewItem(ByVal Address As String, ByVal SourceClass As String, ByVal Text As String)
        MessageIndex += 1
        Dim Items(3) As String
        Items(0) = MessageIndex
        Items(1) = Address
        Items(2) = SourceClass
        Items(3) = Text
        Me.MessageListView.Items.Insert(0, New Windows.Forms.ListViewItem(Items))
    End Sub
End Class

Host项目也只有一个文件，ServerForm.vb

Imports LzmTW.uRemoting
Public Class ServerFormClass ServerForm
    Inherits System.Windows.Forms.Form

Windows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents StartServerButton As System.Windows.Forms.Button
    Friend WithEvents StopServerButton As System.Windows.Forms.Button
    Friend WithEvents SendMessageButton As System.Windows.Forms.Button
    Friend WithEvents MessageTextBox As System.Windows.Forms.TextBox
    Friend WithEvents MessageListView As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents TimerLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
        Me.StartServerButton = New System.Windows.Forms.Button
        Me.StopServerButton = New System.Windows.Forms.Button
        Me.SendMessageButton = New System.Windows.Forms.Button
        Me.MessageTextBox = New System.Windows.Forms.TextBox
        Me.TimerLabel = New System.Windows.Forms.Label
        Me.MessageListView = New System.Windows.Forms.ListView
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
        Me.SuspendLayout()
        '
        'StartServerButton
        '
        Me.StartServerButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.StartServerButton.Location = New System.Drawing.Point(8, 8)
        Me.StartServerButton.Name = "StartServerButton"
        Me.StartServerButton.Size = New System.Drawing.Size(104, 32)
        Me.StartServerButton.TabIndex = 0
        Me.StartServerButton.Text = "启动服务(&B)"
        '
        'StopServerButton
        '
        Me.StopServerButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.StopServerButton.Location = New System.Drawing.Point(128, 8)
        Me.StopServerButton.Name = "StopServerButton"
        Me.StopServerButton.Size = New System.Drawing.Size(104, 32)
        Me.StopServerButton.TabIndex = 1
        Me.StopServerButton.Text = "停止服务(&S)"
        '
        'SendMessageButton
        '
        Me.SendMessageButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.SendMessageButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.SendMessageButton.Location = New System.Drawing.Point(8, 232)
        Me.SendMessageButton.Name = "SendMessageButton"
        Me.SendMessageButton.Size = New System.Drawing.Size(136, 32)
        Me.SendMessageButton.TabIndex = 3
        Me.SendMessageButton.Text = "发送信息(&M)"
        '
        'MessageTextBox
        '
        Me.MessageTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.MessageTextBox.Location = New System.Drawing.Point(152, 240)
        Me.MessageTextBox.Name = "MessageTextBox"
        Me.MessageTextBox.Size = New System.Drawing.Size(256, 21)
        Me.MessageTextBox.TabIndex = 4
        Me.MessageTextBox.Text = ""
        '
        'TimerLabel
        '
        Me.TimerLabel.Location = New System.Drawing.Point(248, 16)
        Me.TimerLabel.Name = "TimerLabel"
        Me.TimerLabel.Size = New System.Drawing.Size(160, 16)
        Me.TimerLabel.TabIndex = 5
        Me.TimerLabel.Text = "时间:"
        '
        'MessageListView
        '
        Me.MessageListView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.MessageListView.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4})
        Me.MessageListView.FullRowSelect = True
        Me.MessageListView.GridLines = True
        Me.MessageListView.Location = New System.Drawing.Point(16, 48)
        Me.MessageListView.Name = "MessageListView"
        Me.MessageListView.Size = New System.Drawing.Size(392, 176)
        Me.MessageListView.TabIndex = 6
        Me.MessageListView.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "序号"
        Me.ColumnHeader1.Width = 38
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "来源地址"
        Me.ColumnHeader2.Width = 90
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "消息类型"
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "消息内容"
        Me.ColumnHeader4.Width = 197
        '
        'ServerForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(432, 273)
        Me.Controls.Add(Me.MessageListView)
        Me.Controls.Add(Me.TimerLabel)
        Me.Controls.Add(Me.MessageTextBox)
        Me.Controls.Add(Me.SendMessageButton)
        Me.Controls.Add(Me.StopServerButton)
        Me.Controls.Add(Me.StartServerButton)
        Me.Name = "ServerForm"
        Me.Text = "时间服务器"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private TimerServiceInfo As ServiceInformation
    Private TimerService As Server.MyTimer
    Private ServiceObj As Runtime.Remoting.ObjRef
    Private ClientFactory As ClientFactory
    Private MessageIndex As Integer

    Private Sub StartServerButton_Click()Sub StartServerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartServerButton.Click
        If Not ClientFactory Is Nothing Then Exit Sub

        TimerService = New Server.MyTimer
        Dim ServiceInfos As New Base.MyServiceInformations
        TimerServiceInfo = ServiceInfos("MyTimer")
        TimerService.Information = TimerServiceInfo
        ServiceObj = ServicesFactory.ServiceMarshal(TimerService)

        '启动TimerService的BeginServer
        ClientFactory = New ClientFactory
        AddHandler ClientFactory.ServiceMessageArrived, AddressOf OnMessageArrived
        ClientFactory.ServiceAdd(TimerServiceInfo)
        ClientFactory.ServiceEventConnect(TimerServiceInfo.Service.ServiceName)
        CType(ClientFactory.Service(TimerServiceInfo.Service.ServiceName), Server.MyTimer).BeginServer()

        Me.AddListViewItem("本地", "系统操作", "启动时间服务")

    End Sub

    Private Sub StopServerButton_Click()Sub StopServerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopServerButton.Click
        If ClientFactory Is Nothing Then Exit Sub
        ClientFactory.MessageSendToServer(TimerServiceInfo.Service.ServiceName, Nothing, New Base.MessageCommon("服务将要停止"))
        TimerService.Dispose()
        ClientFactory.ServiceRemove(TimerServiceInfo.Service.ServiceName)
        RemoveHandler ClientFactory.ServiceMessageArrived, AddressOf OnMessageArrived
        ClientFactory = Nothing

        ServicesFactory.Services.Disconnect(TimerService)
        ServicesFactory.ChannelUnregister(TimerServiceInfo.Channel.PortName)
        ServiceObj = Nothing
        TimerService = Nothing

        Me.TimerLabel.Text = "时间:"
        Me.AddListViewItem("本地", "系统操作", "停止时间服务")
    End Sub

    Private Sub SendMessageButton_Click()Sub SendMessageButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMessageButton.Click
        If ClientFactory Is Nothing Then Exit Sub
        ClientFactory.MessageSendToServer(TimerServiceInfo.Service.ServiceName, Nothing, New Base.MessageCommon(Me.MessageTextBox.Text))
        Me.AddListViewItem("本地", "会话发送", Me.MessageTextBox.Text)
    End Sub

    Private Sub OnMessageArrived()Sub OnMessageArrived(ByVal sender As Object, ByVal arg As IMessage)
        If arg.Name = "时间服务" Then
            Me.TimerLabel.Text = String.Format("时间:{0}", arg.Body)
        Else
            With arg
                Me.AddListViewItem(.Machine, .Name, .Body)
            End With
        End If
    End Sub

    Private Sub AddListViewItem()Sub AddListViewItem(ByVal Address As String, ByVal SourceClass As String, ByVal Text As String)
        MessageIndex += 1
        Dim Items(3) As String
        Items(0) = MessageIndex
        Items(1) = Address
        Items(2) = SourceClass
        Items(3) = Text
        Me.MessageListView.BeginUpdate()
        Me.MessageListView.Items.Insert(0, New Windows.Forms.ListViewItem(Items))
        Me.MessageListView.EndUpdate()
    End Sub
End Class