扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
网络寻呼的原理就是当客户端程序连接服务器时,通过服务器搜索所要呼叫的ID号码,如果检测到此用户且该用户正处于联网状态,则服务器通知此用户的客户端程序响应主叫方客户端程序,然后在主叫方和被叫方建立连接后,双方就可以聊天或进行其它的通信。 在VB中编写网络寻呼机需要建立两个程序,一个为客户端程序Client,一个为服务器端程序Server。
一、在Client工程中建立一个窗体,加载WinSock控件,称为tcpClient,协议选择TCP。再加入四个文本框,用以输入服务器的IP地址、服务器端口号,被呼叫的网络寻呼ID号以及用户登录ID号。然后再在窗体中加入三个按钮,分别命名为“连接”、“断开”和“退出”,点击“连接”按钮,并进行如下初始化连接,代码如下:
Private Sub Command1_Click() Private Sub Command2_Click() Private Sub Command3_Click() Private Sub Form_Load() Private Sub tcpClient_Connect() Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) |
二、在服务器端Server工程中也建立一个窗体,加载WinSock控件,称为tcpServer,协议选择TCP,设置其Index值为0,并在工程中添加模块。内容如下:
Private Type ActiveUser Dim CurUser() As ActiveUser |
在Form_Load事件中加入如下代码:
Private Sub Form_Load() tcpServer(0).Protocol = sckTCPProtocol tcpServer(0).LocalPort = 1001 '将 LocalPort 属性设置为一个整数。 tcpServer(0).Listen '然后调用 Listen 方法。 tcpIndex = 1 End Sub |
准备应答客户端程序的请求连接,使用ConnectionRequest事件来应答户端程序的请求,代码如下:
Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long) Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long) On Error GoTo ErrHandle |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。