moddefine.bas

计算机网络与通信的知识

Attribute VB_Name = "modDefine"
Option Explicit

'======================================
'数据库记录集字符串中的分隔符(和服务器保持一致)
'======================================
Public Const strFdRd = "#"    '字符串中字段名称之间、记录内容各字段之间的分隔符
Public Const strFdDivRst = "`" '字符串中字段名称和记录内容的分隔符


'======================================
' 客户端送来的命令字符串中的各项分隔符(和服务器保持一致)
'======================================
Public Const strCommandDiv = "%"

'=======================================
' 命令操作码(和服务器保持一致)
'=======================================
Public Const ClientLogin = "LOGIN"        '用户登录
Public Const ClientRegister = "REGISTER"  '用户注册
Public Const ClientExit = "EXIT"          '用户退出
Public Const ClientSend = "SEND"          '发送字符串
Public Const ClientOnlineUser = "ONLINE"  '在线用户查询
Public Const ClientUpdatePwd = "UPDATE"  '用户更改密码

'=====================================
' 服务器返回的命令执行结果标志位数(和服务器保持一致)
Public Const CmdResultFlagNum = 1
' 服务器返回的命令执行结果各项分隔符(和服务器保持一致)
Public Const CmdResultDiv = "~"
'=====================================
'       服务器返回的命令执行结果标志(和服务器保持一致)
'
'  *注意：服务器返回的命令执行结果格式
'         [命令执行结果标志][命令执行结果]
'
'=====================================
   '用户登录服务器，返回执行结果标志
Public Const UserOnline = "A"      '用户已经登录
Public Const UserNoExist = "B"     '用户不存在
Public Const UserLogin = "C"       '用户成功登录
Public Const UserPwdErr = "D"      '密码不符

Public Const UserRegister = "E"         '用户注册成功
Public Const UserNoRegister = "F"       '用户注册失败
Public Const UserRegisterAccount = "G"  '用户注册帐号

Public Const UserSendString = "H" '用户转发字符串
Public Const UserNotOnline = "I"   '转发字符串时，对方用户不在线

Public Const UserAccessDB = "J" '用户操作数据库

Public Const UserOnlineRst = "K"   '在线用户查看用户

Public Const UserUpdatePwd = "L"     '用户更改密码成功
Public Const UserNoUpdatePwd = "M"   '用户更改密码失败

'=====================================
' 客户端连接的最长时间（秒）
'=====================================
Public Const LINK_MAX_TIME = 5


'============================
' 显示信息窗体的模式选择标志
'============================
Public intDispMsgFlag As Integer

'=============================
'要发送的用户号和呢称
'=============================
Public strSendAccount As String
Public strSendName As String

'=============================
'接收到的用户号和呢称
'=============================
Public strRecvAccount As String
Public strRecvName As String

'=========================
' 接收窗体是否加载
'=========================
Public blnRecvMsgFrmLoad As Boolean

'=========================
' 在线用户记录集字符串
'=========================
Public strOnlineUser As String

'=================================
' 用户登录时的用户号、密码、IP地址
'=================================
Public strLoginAccount As String
Public strLoginPwd As String
Public strLoginIP As String