client.vb

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

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

Module Client
           Sub Main()
            Try
   	Dim channel As TcpChannel = New TcpChannel()
                ChannelServices.RegisterChannel(channel)
	Dim WKSTE As New WellKnownServiceTypeEntry(GetType(CoHello), "HelloDotNet", WellKnownObjectMode.SingleCall)
	'RemotingConfiguration.ApplicationName = "HttpService"
	RemotingConfiguration.RegisterWellKnownServiceType(WKSTE)
                Dim h As Server.CoHello = Activator.GetObject(GetType(CoHello), "tcp://127.0.0.1:8000/HelloDotNet")
	dim strName as string
dim msg as string
msg="ノめ狠