初学VB的我，请大家帮忙用TCP/UDP协议编写网络通信程序，有提示的，请看一下，好不：D

Question

什么都有了，你照着样子做不就行了？给你点提示吧：
1、做这个程序不用两台机器，在一台机器上就能完成所有工作。调试、运行都可以。
2、listen的port不是任给的，而是有专门的规定，详见tcp/ip相关书籍。
3、sever是如何终止的？VB我不清楚（好长时间没玩了），VC是由client发一个特定的message给sever，然后sever自己终止自己。（由使用人员来终止是不正确的）

Answer 1

欢迎大家，勇跃留言。在此赠送一贴，http://www.csdn.net/expert/topic/430/430814.shtm敬请参与，冬至快乐

Answer 2

to wingsofwind(wingsofwind)　
真是感谢你的帮助to everyone
还有帮助吗，谢谢

Answer 3

client端的端口要为0
可以在server端创建一个winsock控件数组
收到一个client 的请求创建一个控件

Answer 4

tcpServer_Connect Request (Byval request ID As long)
    If tcp.Server.state<>Sckclosed Then
    tcp.Server  Accept request ID(request's)
    end sub
这个地方我 觉得有 错误。应该是
tcpServer_Connect Request (Byval request ID As long)
    If tcp.Server.state<>Sckclosed Then tcp.server.close
    tcp.Server  Accept requestID
    end sub