fix reference errors

ComputingServices/ComponentModel/IHostBase.vb

@@ -49,10 +49,10 @@ Imports Microsoft.VisualBasic.Net.Abstract
 
 Namespace ComponentModel
 
-    Public MustInherit Class IHostBase : Inherits IMasterBase(Of TcpSynchronizationServicesSocket)
+    Public MustInherit Class IHostBase : Inherits IMasterBase(Of TcpServicesSocket)
 
         Sub New(portal As Integer)
-            __host = New TcpSynchronizationServicesSocket(portal)
+            __host = New TcpServicesSocket(portal)
         End Sub
 
         Sub New()

ComputingServices/FileSystem/FileSystemHost.vb

@@ -78,7 +78,7 @@ Namespace FileSystem
         ''' <param name="port"></param>
         Sub New(port As Integer)
             Dim protocols As New ProtocolHandler(Me)
-            __host = New TcpSynchronizationServicesSocket(port)
+            __host = New TcpServicesSocket(port)
             __host.Responsehandler = AddressOf protocols.HandleRequest
             Call RunTask(AddressOf __host.Run)
         End Sub

ComputingServices/SharedMemory/SharedSvr.vb

@@ -64,14 +64,14 @@ Namespace SharedMemory
     Public Class SharedSvr : Implements IDisposable
         Implements ITaskDriver
 
-        ReadOnly __localSvr As TcpSynchronizationServicesSocket
+        ReadOnly __localSvr As TcpServicesSocket
         ''' <summary>
         ''' 这个是提供给远程主机读取使用的
         ''' </summary>
         ReadOnly __variables As New Dictionary(Of HashValue)
 
         Sub New(local As Integer)
-            __localSvr = New TcpSynchronizationServicesSocket(local)
+            __localSvr = New TcpServicesSocket(local)
             __localSvr.Responsehandler = AddressOf New ProtocolHandler(Me).HandleRequest
         End Sub