channel_reg.vb

来自「一个饭店管理系统」· VB 代码 · 共 9 行

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