module.bas

猜字迷的游戏

Attribute VB_Name = "Module1"
Option Explicit

'Connect Mode 连线模式 主机 or Client ?
Public Const CONNECT_SERVER = 1
Public Const CONNECT_CLIENT = 2
Public Const CONNECT_WAIT = 3

'Message Type 传送讯息的类别  SendMsgToUser的第一个Byte
Public Const CONNECT_MSG = "0"   '连线资讯
Public Const NORMAL_MSG = "1"    '一般对话资讯
Public Const GAME_MSG = "2"      '游戏相关资讯
Public Const CLOSE_MSG = "3"     '断线讯息

'Game的资讯类别
'"0" Server送出Game Start的要求,后面带3-5个Byte的资料 第一个Byte为游戏难度,后面则为对方的答案
'"1" Client答应Server Game Start的要求,后面带2-4Byte的资料,为Client的答案
'"2" Client拒绝Server Game Start的要求
'"3" 允许对方输入数字
'"4" 对方胜利罗!
Public Const MSG_GAME_START = "0"
Public Const MSG_CLIENT_START = "1"
Public Const MSG_CLIENT_CANCEL_START = "2"
Public Const MSG_INPUT_OK = "3"
Public Const MSG_GAME_WIN = "4"

Public ConnectType As Integer        '连线时扮演的角色,Server or Client
Public MyComputerName As String      '电脑名称
Public ConnectStatus As Boolean      '目前是否处于连线状态