用VB编写网络寻呼机(2)

 

二、在服务器端Server工程中也建立一个窗体,加载WinSock控件,称为tcpServer,协议选择TCP,设置其Index值为0,并在工程中添加模块。

   内容如下:


Private Type ActiveUser

ClientIP As String ’记录客户的IP地址

ClientPort As Integer ’记录当前会话的端口

ClientID As Long ’记录客户的ID号码

ClientConnected As Boolean

’客户连接状态,True表示已连接,False表示没有连接

End Type

Dim CurUser() As ActiveUser

Dim tcpIndex As Integer ’跟踪当前建立连接数


在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)

Dim i As Integer

On Error GoTo ErrHandle

For i = 1 To tcpIndex ’选择一个空闲端口

If CurUser(i).ClientConnected =

False And i < > tcpIndex Then

Load tcpServer(i)

tcpServer(i).LocalPort = CurUser(i).ClientPort - 1

tcpServer(i).Accept requestID

Exit For

ElseIf CurUser(i).ClientConnected = False Then

Load tcpServer(i)

tcpServer(i).LocalPort = Port

If tcpServer(i).State < > sckClosed Then

tcpServer(i).Close

End If

tcpServer(i).Accept requestID

Exit For

End If

Next

DoEvents

’测试连接是否成功

If tcpServer(i).State = sckConnected Then

If i = tcpIndex Then

’已经没有可用端口,记录客户的IP地址和端口号

tcpIndex = tcpIndex + 1

Port = Port + 1

ReDim Preserve CurUser(tcpIndex)

CurUser(i).ClientIP = tcpServer(i).RemoteHostIP

CurUser(i).ClientConnected = True

CurUser(i).ClientPort = Port

CurUser(tcpIndex).ClientConnected = False

Else

CurUser(i).ClientIP = tcpServer(i).RemoteHostIP

CurUser(i).ClientPort = Port

CurUser(i).ClientConnected = True

End If

End If

Exit Sub

ErrHandle:

Resume Next

’检查控件的 State 属性,如未关闭,在接受新的连接之前关闭此连接。

If tcpServer(0).State <> sckClosed Then

tcpServer(0).Close

tcpServer(0).Accept requestID

’接受具有 requestID 参数的,连接。

End Sub


Private Sub tcpServer_DataArrival(Index As Integer,

ByVal bytesTotal As Long)

Dim i As Integer

Dim s As String

Dim RequID As Long ’主叫方ID号码

Dim SearchID As Long ’被叫方ID号码


On Error GoTo ErrHandle

tcpServer(Index).GetData s, vbString

’接收数据并存入s 

If Mid(s, i, 1) = "@" Then

’分离s中的主叫方和被叫方ID号码

SearhID = Left(s, i - 1) ’把号存入mKey

RequID = Right(s, Len(s) - i) ’ID存入RequID

End If


   ’如果是请求寻呼某一ID号码,则检索当前此ID用户是否登录(即CurUser数组中是否存在此用户),然后发送信息,通知此用户响应呼叫并显示主叫用户ID号码。

For i = 1 To tcpIndex

If RequID = CurUser(i).ClientID And CurUser(i)

.ClientConnected = True Then

tcpServer(i).SendData (SearhID)

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地址进行连接,则两者的连接速度将会有大幅度的提高。

 

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
程序员的必经之路! 【限时优惠】 现在下单,还享四重好礼: 1、教学课件免费下载 2、课程案例代码免费下载 3、专属VIP学员群免费答疑 4、下单还送800元编程大礼包 【超实课程内容】  根据《2019-2020年中国开发者调查报告》显示,超83%的开发者都在使MySQL数据库。使量大同时,掌握MySQL早已是运维、DBA的必备技能,甚至部分IT开发岗位也要求对数据库使和原理有深入的了解和掌握。 学习编程,你可能会犹豫选择 C++ 还是 Java;入门数据科学,你可能会纠结于选择 Python 还是 R;但无论如何, MySQL 都是 IT 从业人员不可或缺的技能!   套餐中一共包含2门MySQL数据库必学的核心课程(共98课时)   课程1:《MySQL数据库从入门到实战应》   课程2:《高性能MySQL实战课》   【哪些人适合学习这门课程?】  1)平时只接触了语言基础,并未学习任何数据库知识的人;  2)对MySQL掌握程度薄弱的人,课程可以让你更好发挥MySQL最佳性能; 3)想修炼更好的MySQL内功,工作中遇到高并发场景可以游刃有余; 4)被面试官打破沙锅问到底的问题问到怀疑人生的应聘者。 【课程主要讲哪些内容?】 课程一:《MySQL数据库从入门到实战应》 主要从基础篇,SQL语言篇、MySQL进阶篇三个角度展开讲解,帮助大家更加高效的管理MySQL数据库。 课程二:《高性能MySQL实战课》主要从高可篇、MySQL8.0新特性篇,性能优化篇,面试篇四个角度展开讲解,帮助大家发挥MySQL的最佳性能的优化方法,掌握如何处理海量业务数据和高并发请求 【你能收获到什么?】  1.基础再提高,针对MySQL核心知识点学透,对; 2.能力再提高,日常工作中的代码换新貌,不怕问题; 3.面试再加分,巴不得面试官打破沙锅问到底,竞争力MAX。 【课程如何观看?】  1、登录CSDN学院 APP 在我的课程中进行学习; 2、移动端:CSDN 学院APP(注意不是CSDN APP哦)  本课程为录播课,课程永久有效观看时长 【资料开放】 课件、课程案例代码完全开放给你,你可以根据所学知识,自行修改、优化。  下载方式:电脑登录课程观看页面,点击右侧课件,可进行课程资料的打包下载。
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值