你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
QQ聊天程序的网络通信原理及编程(中)
 

(4)发送登录的用户名和密码

客户端程序在服务端程序接受连接后会收到消息触发Connect事件,对客户端而言在Connect事件方法中发送登录用户名和密码是最佳时机,为了使接收数据的一方明白收到的数据代表什么含义,每条数据最前面有代表不同含义的数据含义标记字符串,每条数据后有相同的数据结束标记符,每条数据中各子数据间有子数据分割标记符。各数据含义标记字符串如下:

Public Const OnlineFriendIPID = "FriendIPID" '表示本数据中包含在线好友的IP地址和ID

Public Const Login = "User Login" '表示本数据中包含登录用户的用户ID和密码

Public Const NotUser = "IsNot User"  '本数据含义为“不是合法用户”

Public Const  IsUser = "ThisIsUser"  '本数据含义为“是合法用户”

为了识别数据含义方便,含义标记字符串长度一致,我这里采用的长度为10

Public Const HeadLength = 10

关于分割标记符和结束标记符,我采用数值12转字符的方法,因为它们转成的字符不是普通字符,不会和传送的数据如用户ID、密码、IP地址等字符串数据混淆。

具体发送数据通过SendData方法进行,发送登录用户名和密码的语句如下,数据的格式为:数据含义标记字符串+用户名+分割标记符+密码+结束标记符。

Private Sub WinsockClient_Connect()

WinsockClient.SendData Login & TextUsername.Text & Chr(1) & TextPassword.Text & Chr(2)

End Sub

(5)接收收据

当有数据到达时,程序会收到消息触发DataArrival事件,所以不论服务端还是客户端程序接收数据的工作在DataArrival事件方法中完成。具体接收数据使用GetData方法进行,为了防止客户端发送来的数据太多,服务端来不及处理,我定义了一个字符串数组BufferRecv,该数组与WinsockServer控件数组对应,WinsockServer(Index) 控件收到的数据添加在BufferRecv(Index)中,然后通过结束标记符在BufferRecv(Index)中取出一条条数据进行分析。如果是客户登录,则获取用户名和密码,然后通过自定义函数Lookfor在数据库中验证。如果验证为合法用户,则发送“是合法用户”数据标记,然后将用户ID和用户机器的IP等信息置于一个在线用户信息的结构数组中备用。然后通过自定义函数GetFriend在数据库中获取该用户的所有好友ID及好友人数,并根据在线用户信息数组逐一判断各个好友是否在线,如果在线,则将在线好友的IDIP地址发送给刚登录的客户,同时也将刚登录客户的IDIP地址发送给在线好友,以便他们相互之间能够通信。如果验证为非法用户,则发送“不是合法用户”数据标记,并将与该客户通信用的Winsock控件卸载。

Private Sub WinsockServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Dim tmpstr As String

Dim EndFlagLoc As Integer ‘结束标记所处位置变量

If Index = 0 Then Exit Sub

WinsockServer(Index).GetData tmpstr, , bytesTotal ‘接收收据存入tmpstr

BufferRecv(Index) = BufferRecv(Index) & tmpstr ‘将收到的数据添加在BufferRecv(Index)

EndFlagLoc = InStr(BufferRecv(Index), Chr(2)) ‘BufferRecv(Index)中寻找第一个结束标记符的位置

While EndFlagLoc > 0

    BufferRecv(Index)中取第一个结束标记符左边的数据,即第一条数据。

strMsg = Left$(BufferRecv(Index), EndFlagLoc - 1)

获取本条数据前面的数据含义标记字符串以分析本条数据的含义。

    Select Case Left$(strMsg, HeadLength) 

        Case Login ‘如果是登录数据

            Dim tmpPassWord As String

            Dim tmpUserID As String

            通过Mid方法取得数据含义标记字符串之后分割标记符之前的数据,即登录用户名。

            tmpUserID = Mid(strMsg, HeadLength + 1, InStr(strMsg, Chr(1)) - 1 - HeadLength)

             通过Mid方法取得分割标记符之后的数据,即登录密码。

            tmpPassWord = Mid(strMsg, InStr(strMsg, Chr(1)) + 1)

通过自定义函数Lookfor在数据库中查询该用户名密码是否存在,如存在则发送含义为“是合法用户”的数据,Lookfor函数的具体实现见源程序。

            If Lookfor(tmpUserID, tmpPassWord) Then

                WinsockServer(Index).SendData IsUser & Chr(2)

                DoEvents

将客户端的IP地址和用户ID等信息置于一个有关在线用户信息的结构数组中备用,并设置登录标志变量bLoginedTrue

                OnlineUserInfo(Index).IPAddr = WinsockServer(Index).RemoteHostIP

                OnlineUserInfo(Index).UserID = tmpUserID

                  OnlineUserInfo(Index).bLogined = True

                Dim AllFriendID As String

                Dim FriendID As String

                Dim FriendCount As Integer

                Dim ToldFriendCount As Integer

然后通过自定义函数GetFriend在数据库中获取该用户的所有好友的ID及好友人数,分别放在参数AllFriendIDFriendCount中。

                If GetFriend(tmpUserID, AllFriendID, FriendCount) Then

然后根据在线用户信息数组用InStr函数逐一判断在线用户是否是该用户的好友。

                    For i = 1 To MaxOnlineUser

                        If OnlineUserInfo(i).bLogined Then

                            If InStr(AllFriendID, OnlineUserInfo(i).UserID) > 0 Then

如果是,则将在线好友的IDIP地址发送给刚登录的客户。发送数据的格式为:数据含义标记字符串+IP地址+分割标记符+用户ID+结束标记符。

                                If WinsockServer(Index).State = sckConnected Then

                                    WinsockServer(Index).SendData OnlineFriendIPID & OnlineUserInfo(i).IPAddr & Chr(1) & OnlineUserInfo(i).UserID & Chr(2)

                                    DoEvents

                                End If

同时也将刚登录客户的IDIP地址发送给在线好友,以便他们相互之间能够通信。

                                If WinsockServer(i).State = sckConnected Then

                                    WinsockServer(i).SendData OnlineFriendIPID & OnlineUserInfo(Index).IPAddr & Chr(1) & OnlineUserInfo(Index).UserID & Chr(2)

                                    DoEvents

                                End If

                                ToldFriendCount = ToldFriendCount + 1

                            End If

                        End If

                        If ToldFriendCount = FriendCount Then Exit For

                    Next i

                End If

如果验证为非法用户,则发送含义为“不是合法用户”的数据标记,并将与该客户通信用的Winsock控件卸载。

            Else

                WinsockServer(Index).SendData NotUser & Chr(2)

                DoEvents

                OnlineUserInfo(Index).bUsed = False

                WinsockServer(Index).Close

                Unload WinsockServer(Index)

            End If

然后从BufferRecv(Index)中删除已分析的这条数据,继续分析下一条数据。

    BufferRecv(Index) = Mid(BufferRecv(Index), EndFlagLoc + 1)

    EndFlagLoc = InStr(BufferRecv(Index), Chr(2))

Wend

End Sub

(6)客户端接收数据

客户端程序在收到数据后,对每条数据进行分析。如果不是合法用户,则显示“你不是合法用户!”;如果是合法用户,则隐藏登录窗体,显示聊天窗体;如果是在线好友信息,则提取该在线好友的IDIP地址,然后通过自定义过程AddConnectOnlineFriend将该在线好友信息保存,并与该在线好友建立连接。

Private Sub WinsockClient_DataArrival(ByVal bytesTotal As Long)

Dim tmpstr As String

Dim EndFlagLoc As Integer

WinsockClient.GetData tmpstr, , bytesTotal

BufferCmd = BufferCmd & tmpstr

EndFlagLoc = InStr(BufferCmd, Chr(2))

While EndFlagLoc > 0

    strMsg = Left$(BufferCmd, EndFlagLoc - 1)

    Select Case Left$(strMsg, HeadLength)

        Case NotUser

            MsgBox "你不是合法用户!"

        Case IsUser

            MyID = TextUsername.Text ‘将用户ID保存在MyID中以备后用

            loginfrm.Hide

            Form1.Show

         Case OnlineFriendIPID

            Dim UserIP As String

            Dim UserID As String

            UserIP = Mid(strMsg, HeadLength + 1, InStr(strMsg, Chr(1)) - 1 - HeadLength)

            UserID = Mid(strMsg, InStr(strMsg, Chr(1)) + 1)

            Form1.AddConnectOnlineFriend UserID, UserIP

    End Select

    DoEvents

    BufferCmd = Mid(BufferCmd, EndFlagLoc + 1)

    EndFlagLoc = InStr(BufferCmd, Chr(2))

Wend

End Sub

自定义过程AddConnectOnlineFriend定义在聊天窗体中,首先将服务端发来的在线好友的IP地址和ID等保存在一个有关在线好友信息的结构型数组OnlineFriendInfo中,然后加载一个Winsock控件WinsockClientClient(i),用于给在线好友发送聊天信息,加载后同样要设置协议、远程IP地址、远程端口,然后以客户端方式请求与该好友连接。

Public Sub AddConnectOnlineFriend(UserID As String, UserIP As String)

    For i = 1 To MaxOnlineFriend

        If Not OnlineFriendInfo(i).bUsed Then

            OnlineFriendInfo(i).bUsed = True

            OnlineFriendInfo(i).IPAddr = UserIP

            OnlineFriendInfo(i).UserID = UserID

            Load WinsockClientClient(i)

            WinsockClientClient(i).Protocol = sckTCPProtocol

            WinsockClientClient(i).RemotePort = 6000

            WinsockClientClient(i).RemoteHost = OnlineFriendInfo(i).IPAddr

            If WinsockClientClient(i).State = sckClosed Then WinsockClientClient(i).Connect

            Exit For

        End If

    Next i

End Sub

所以在客户端程序中为了以服务端方式接受在线好友的连接,在聊天窗体加载时,要设置WinsockClientServer(0)这个Winsock控件,以便监听在线好友的连接。

Private Sub Form_Load()

WinsockClientServer(0).Protocol = sckTCPProtocol

WinsockClientServer(0).LocalPort = 6000

WinsockClientServer(0).Listen   '开始监听

End Sub

  推荐精品文章

·微软开源Azure云服务AI引擎Infer.NET
·创新指纹读取器出炉:平均准确率最高可达…
·微软投资东南亚出行公司Grab 将进行AI等技…
·Facebook开发AI系统:看美食图片能自动生…
·工信部:促进区块链与实体经济深度融合
·谷歌首度证实了重返中国的Dragonfly计划的…
·Java 11正式发布,告诉你到底应不应该升级…
·Stack Overflow 10 周年了,作为程序员你…
·新手初学Python最常犯的十个错误,其中有…
·微软在 GitHub 开源 MS-DOS 1.25 和 MS-D…
·Hitachi Vantara集中发布:物联网、超融合…
·Commvault和阿里云战略合作落地,七大应用…
·智能化成为主旋律 联想积极布局SIoT智能物…
·打造共生共享的生态模式 京东云与合作伙伴…

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089