【100分】急求：一段winsock vb中定时发包的代码解决办法

【100分】急求：一段winsock vb中定时发包的代码

客户端（多个）
服务器端（1个）

需求是这样：
客户端 定时 （ 1分钟 ）向服务器端发包，内容为字符串“Y” 表示在线。
服务器端随时接收来自客户端的发包，判断发包来的客户端（对应哪个客户端）是否在线，并且把判断结果更新，显示到tex1.text里。如果超过1分钟未收到某个客户端的发包，则判断该客户端下线。

请给全部源代码，谢谢。
------解决思路----------------------
抱歉,很少写网络通讯方面的程序, 这方面经验不是很多, 很久以前写过习作:
关于你这个问题: 
1: 用UDP协议, 
2: 检测不能以丢一个包为准(基于UDP的话), 如果是基于TCP,那根本就不用检测
具体代码不难, 拉个winsock控件, 然后上网找一下历程即可
------解决思路----------------------
winsock例程网上多的是，或者找一本网络方面的书，里面有详细的代码
就你这个要求，还是蛮简单的。
估计你的是按照udp的思路来的，否则没必要1分钟发一次....