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      '目前是否處于連線狀態