说明: VB 客户和服务通信Private Sub Form_Load() tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show '显示客户端的窗体。 End Sub Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) '检查控件的 State 属性是否为关闭的。 '如果不是, '在接受新的连接之前先关闭此连接。 If tcpServer.State s
<yanggang1975> 上传 | 大小:3kb