恳求VB一对多的TCP通信程序代码

Question

恳求VB一对多的TCP通信程序代码

Answer 1

S:vb.net 多线程 
C:vb/VB

Answer 2

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub
这是MSDN的例子原代码，但我在编译时总是报错：过程声明与同名事件或过程的描述不匹配。
有谁知道是怎么回事啊？

Answer 3

http://www.m5home.com/blog/article.asp?id=169虽然这个代码不是专门演示一对多的,但也实现了一对多.可参考一下.

Answer 4

设计时，在form上放置的winsock控件sckServer的Index属性要设置为0，即使sckServer成为数组，这样那个过程声明的描述才会符合。

Answer 5

你在窗体上放一个 WinSock 控件，改名为 sckServer，并设置其 Index = 0.

Answer 6

今天不知道GOV发了什么疯,大量地关闭网站搬服务器.连http://www.discuz.net/官方站也被牵连:"因不可抗拒原因，江苏省无锡电信机房，大部分服务器被切断网络，致使多家网站与外界失去联系，我们也不幸被牵连,现在我们正在恢复早晨的数据库备份到北京地区，请稍后访问"这堵H内容,你越堵人家就越是有兴趣........我看他们能不能把互联网给堵罗!!!鸟!!