14.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 24 行

<p>WinSock断开导致客户端问题</p>
<p></p>
<p>Client断开连接后再与Server连接就连接不上，必须退出应用重新进入才能连</p>
<p>接， 解决是不要在 Client 端使用 Close 方法, 而在服务端使用。</p>
<p></p>
<p>服务端的数据接受过程：</p>
<p>Sub Server_DataArrival(ByVal bytesTotal as Long)</p>
<p>Dim vbStr as String</p>
<p>Server.GetData DataReceived, vbStr</p>
<p>if Cstr(DataReceived)= "QUIT" then</p>
<p>server.close</p>
<p>server.LocalPort = 1111</p>
<p>server.Listen</p>
<p>end if</p>
<p>。。。。。</p>
<p>End Sub</p>
<p></p>
<p>客户端关闭时：</p>
<p>Client.SendData "QUIT"</p>
<p></p>
<p></p>
<p></p>
<p></p>