modusers.bas

计算机网络与通信的知识

Attribute VB_Name = "modUsers"
Option Explicit
'自定义用户描述类型
Type LinkUser
    lngAccount As Long           '用户号
    strName As String            '呢称
    blnOnline As Boolean         '是否在线
    blnSendComplete As Boolean   '是否发送完成
End Type
Public arrayLinkUser() As LinkUser    '连接用户号数组，随wskServer()和链表互动

'===================================================
'  根据用户号得到对应的wskServer索引号
'  返回值：
'      若用户在线，返回wskServer索引号，否则返回 0
'===================================================
Public Function GetWskIdxBaseUserAccount(ByVal lngAccount As Long) As Integer
Dim blnFind As Boolean
Dim intLen As Integer, intTp As Integer
intLen = UBound(arrayLinkUser)
intTp = 0
blnFind = False
While intTp < intLen And Not blnFind
    intTp = intTp + 1
    If arrayLinkUser(intTp).lngAccount = lngAccount Then blnFind = True
Wend
If blnFind Then
    GetWskIdxBaseUserAccount = intTp
Else
    GetWskIdxBaseUserAccount = 0
End If
End Function
'=================================
'  初始化用户数组
'=================================
Public Sub InitLinkUserArray()
ReDim arrayLinkUser(0)
With arrayLinkUser(0)
    .blnOnline = False
    .blnSendComplete = False
    .lngAccount = 0
    .strName = ""
End With
End Sub