channel_reg.vb

一个饭店管理系统

Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
public module server
  Public sub main() 
  Dim  chan As TcpChannel = New TcpChannel(8088)
  ChannelServices.RegisterChannel(chan)
  System.Console.ReadLine(  )
  End sub
End module