moduserdefagr.bas

来自「尝试做了一个利用WINSOCK控件的自动分包发送机制的东东(VB6.0) 」· BAS 代码 · 共 16 行

Attribute VB_Name = "ModUserDefAgr"
Option Explicit

'           ***********         自定义通讯协议

'           ***********         客户端常量
Public Const CLI_READY_SENDDATA As String = "110 Ready Send Data"          '请求发送数据
Public Const CLI_READY_CLOSE  As String = "199 Ready Close"                '请求断开连接

'           ***********         服务器端常量
Public Const SER_CONNECT_OK  As String = "200 Connect OK"                  '连接成功
Public Const SER_READY_RECEIVE_DATA  As String = "210 Ready Receive Data"  '准备接收数据
Public Const SER_RECEIVE_COMPLET  As String = "295 Receive Complet"        '数据接收完成
Public Const SER_ALLOW_CLOSE As String = "299 Allow Close"                 '允许断开连接