急求：Winsock控件的TCP/IP协议设计局域网上多台客户机向同一服务器发送字符串的代码

Question

要求：一、传送数据为小于1K的字符串，每个客户机全部过程只传送一次，服务器接收全部数据。
二、客户机数量不定，在1-200间变化，服务器使用计算机名而不用IP地址；
三、各客户机完全有可能在同一时刻并发发送数据，要求服务能100%可靠收到，这是关键；
四、在完成以上功能前提下代码越精越好但要保证可靠性。请求完整的关键性代码。谢谢！

Answer 1

我是楼主。哈哈，我没分了，都放了，我是想放100分来着，没办法，不管算了，希望能有好心人。对了相关的我另两个问题分高些：http://community.csdn.net/Expert/TopicView.asp?id=4143801（40分）http://community.csdn.net/Expert/TopicView.asp?id=4142695（100分）

Answer 2

我看记得吧？
<<<<服务端
dim III as integer
form_load
winsock1(0).localport=3333
winsock1(0).listenwinsock1_connectionrequest(index)
if index=0 then
    iii=iii+1
    load winsock1(iii)
    winsock1(iii).close
    winsock1(iii).accept requestid
end ifwinsock1_dataarrival(index)
dim RR() as byte
winsock1(index).getdata rr
太麻烦了啊，算了吧。