moduserdefagr.bas

尝试做了一个利用WINSOCK控件的自动分包发送机制的东东(VB6.0) 我最终的测试结果如下: 使用约44M的RAR文件(陈辉机器里找的一个什么安装包,不管它...),在陈辉机器上运行客

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"                 '允许断开连接