client.vb

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

Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports Microsoft.VisualBasic
imports Service

Module Client
           Sub Main()
            Try
   	Dim channel As TcpChannel = New TcpChannel()
                ChannelServices.RegisterChannel(channel)
	Dim WKSTE As New WellKnownServiceTypeEntry(GetType(RoomService), "Service", WellKnownObjectMode.Singleton)
	RemotingConfiguration.RegisterWellKnownServiceType(WKSTE)
                Dim h As Service.RoomService = Activator.GetObject(GetType(RoomService), "tcp://127.0.0.1:8080/Service")
	dim strRoom as string
	dim Stat as byte
	dim msg as string
dim msg2 as string
	Do
	msg="块