用vb写一个象美萍那样的管理程序

Question

大家好，我想用vb写一个象美萍那样的管理程序，只是实现一个服务器端和多客户端的连接，实现发送消息，任何一客户端非法关机重启后自动连接上服务器端，服务器端非法关机或重启后，自动连接客户端，我原来有一段这样的程序，可是总是有时不行，有时连接不上，望各位给段完整的程序参照一下。

Answer 1

看看这个
http://www.ourfly.com/download/downloadlist.aspx?type=VB
服务端、客户端之间的通信(源码提供) 任何一客户端非法关机重启后自动连接上服务器端，服务器端非法关机或重启后，自动连接客户端，
这个功能可能要服务端定时监测，如果客户端非法关机，纪录客户端ip
只要客户端重新登录，服务端发送消息使客户端连接

Answer 2

其实解决这个东西你不能考虑两个方面，服务端与客户端，因为主动权在客户端！客户端定时 比如说一秒 Private Sub Timer1_Timer()
WinsockC.connect
End Sub
 
Private Sub WinsockC_Connect()
winsockC.senddata "OK"
End SubPrivate Sub WinsockS_ConnectionRequest(ByVal requestID As Long)
winsockS.senddata "OK"
winsockS.close
End SubPrivate Sub WinsockC_ConnectionRequest(ByVal requestID As Long)
winsockC.close
End Sub 服务端收到连接请求后建立连接
起动记时器。如果三秒没有收到"OK" 断开连接 这段代码总不要我写了吧！
如果收到“OK”然后给客户端发送一个“OK”这里和上面的一样。就是两个定时通讯。如果通讯中断就是一方出现问题，另一方WinsockS.close 或 winsockC.close