xferconstants.bas

来自「类似QQ的即时聊天系统,支持用户注册,源码分为客户端和服务器端。」· BAS 代码 · 共 16 行

Attribute VB_Name = "xferConstants"
'===============
'系统公有常量定义
'==================
'system control comunication constants
Global Const CANCEL_TRANSFER As String = "1"
Global Const ACCEPT_TRANSFER As String = "2"
'Global Const BEGIN_TRANSFER As String = "3"
Global Const END_TRANSFER As String = "4"
Global Const FILE_NAME As String = "5"
Global Const FILE_SIZE As String = "6"
Global Const USER_NAME As String = "7"
Global Const CONTINUE_TRANSFER As String = "8"
Global Const CLOSE_TRANSFER As String = "9"
Global Const ENABLE_START As String = "3"