End If
Next
Exit Sub
ErrHandle:
If Err.Number = sckBadState Then '连接不正确
CurUser(i).ClientConnected = False
CurUser(i).ClientIP = ""
Unload tcpServer(i)
Resume Next
End If
End Sub
---- 本程序仅提供了用Visual Basic 编写网络寻呼的思路和主要部分的实现过程，至于主叫方和被叫方建立连接后的通信并未扩展，读者若有兴趣，可在这方面加入具体的实现代码，就可以给本程序增加更多的功能，如实时聊天，语音对话等。如果在服务器程序检索到被叫方时，分别通知两者客户端程序，使主叫方和被叫方直接利用IP地址进行连接，则两者的连接速度将会有大幅度的提高。
上一篇： 在VB6.0中使ACCESS数据库在网络使用中保持同步
下一篇： 利用VB设计聊天室
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
