<p>利用VB設計聊天室</p>
<p>作者：何書臣 </p>
<p>Internet 上 的 聊 天 室 一 向 是 一 個 吸 引 人 的 地 方， 但 多 用C 語 言 設 計， 我 用VB 設 計 了 一 個 聊 天 室， 取 名 為“ 升 達 自 由 論 壇”， 實 際 使 用 證 明 效 果 良 好。 </p>
<p>---- Internet 上 的 通 訊 協 議 是TCP/IP，Internet 上 數 據 傳 輸 協 議 主 要 有TCP 和UDP，TCP 是 有 連 接 協 議， 它 要 求 計 算 機 進 行 對 話 時 必 須 先 建 立 連 接， 保 證 數 據 傳 送 安 全 到 達 目 的 地。 UDP 是 無 連 接 協 議， 它 只 是 將 信 息 送 到 網 絡 上， 并 不 檢 查 數 據 是 否 到 達 了 目 的 地。 要 進 行 實 時 會 話， 則 應 該 采 用TCP 協 議。 本 程 序 采 用 的 協 議 就 是TCP 協 議。 </p>
<p></p>
<p>---- 程 序 分 服 務 和 客 戶 程 序 兩 部 分。 客 戶 程 序 啟 動 后 首 先 與 服 務 器 連 接， 連 接 成 功 后， 隨 意 輸 入 一 個 名 字 即 可 進 入 聊 天 室； 服 務 程 序 則 負 責 維 護 與 每 一 個 客 戶 的 連 接 和 數 據 交 換， 并 且 記 錄 下 所 有 聊 天 內 容， 及 人 員 名 單。 由 于 在 會 話 過 程 中 大 家 起 的 都 是 假 名 字， 不 可 避 免 地 要 有 的 人 講 一 些 不 健 康 內 容， 為 了 保 持 秩 序， 服 務 器 程 序 實 現 了IP 地 址 跟 蹤 功 能。 管 理 人 員 可 以 很 容 易 地 查 找 出 每 一 個 匿 名 的 計 算 機 名， 并 對 之 進 行 警 告 或 其 它 處 理（ 下 面 會 進 一 步 介 紹）。 可 保 證 會 話 內 容 的 健 康。 如 果 服 務 器 程 序 關 閉， 則 所 有 客 戶 程 序 自 動 關 閉。 </p>
<p></p>
<p>VB5 的Winsock 控 件</p>
<p></p>
<p>---- VB5 企 業 版 提 供 了Winsock 控 件， 要 實 現 兩 臺 計 算 機 的 對 話， 可 以 通 過Winsock 控 件 進 行。 而 不 需 了 解 更 多 的 數 據 傳 輸 細 節, 本 程 序 就 是 通 過Winsock 進 行 的。 </p>
<p>---- Winsock 有 多 種 屬 性、 方 法 和 事 件， 本 文 只 列 舉 出 要 使 用 的 屬 性、 方 法 和 事 件。 </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- 一 個Winsock 控 件 可 以 建 立 與 一 個 計 算 機 的 聯 接， 服 務 器 程 序 中 首 先 設 置 一 個Winsock 控 件， 將 其 索 引 值 設 為 ０， 以 便 在 運 行 時 動 態 增 減 元 素， 這 樣 可 以 與 多 個 計 算 機 進 行 對 話。 </p>
<p></p>
<p>程 序 介 紹</p>
<p></p>
<p>---- 服 務 程 序 部 分 </p>
<p></p>
<p>---- 服 務 器 程 序 啟 動 時， 先 設 置 自 己 的 本 地 端 口， 因 為 有 些 端 口 有 其 固 定 的 作 用， 如80 是WWW 端 口， 故 盡 可 能 選 擇 不 可 能 使 用 的 端 口， 這 里 我 選 擇 了1600。 將 連 接 狀 態 設 置 為 假， 然 后 開 始 進 行 偵 聽。 當 偵 聽 到 有 計 算 機 要 求 與 服 務 器 進 行 對 話， 就 接 受， 并 記 錄 下 客 戶 機 的 地 址、 端 口、 客 戶 起 的 匿 名， 將 連 接 狀 態 設 置 為 真， 將 上 述 內 容 存 入 一 個 用 戶 自 定 義 的 數 組 中， 進 行 動 態 維 護。 用 戶 自 定 義 數 據 類 型 如 下： </p>
<p></p>
<p>Private Type ActiveUser</p>
<p>    ClientIP As String 記錄客戶的IP地址</p>
<p>    ClientName As String       記錄客戶的匿名</p>
<p>    ClientPort As Integer      記錄當前會話的端口</p>
<p>    ClientConnected As Boolean   </p>
<p>客戶連接狀態，True表示已連接，False表示沒有連接</p>
<p>End Type</p>
<p></p>
<p></p>
<p>---- 做 完 這 些 工 作 后， 服 務 器 再 調 入 一 個 新 控 件， 進 行 新 的 偵 聽， 如 此 反 復 不 斷。 如 果 有 客 戶 退 出 ， 則 關 閉 相 應 的 連 接。 注 意 不 能 在 客 戶 端 關 閉 連 接， 否 則 會 產 生 錯 誤， 只 能 由 服 務 器 關 閉 連 接。 服 務 器 程 序 主 要 對 象 設 置 </p>
<p></p>
<p>.</p>
<p>.</p>
<p>.</p>
<p></p>
<p></p>
<p>---- 利 用 上 述 對 象 可 以 實 現 服 務 器 的 各 種 功 能， 當 然， 還 可 以 再 加 入 新 控 件， 以 使 界 面 更 美 觀。 </p>
<p></p>
<p>---- 服 務 程 序 中 三 個 關 鍵 程 序 段 如 下： </p>
<p></p>
<p>---- １ ． 處 理 連 接 請 求 </p>
<p></p>
<p>---- sckServer_ConnectionRequest 過 程 處 理 連 接 請 求, 當 遠 程 計 算 機 要 求 連 接 時, 服 務 器 首 先 檢 查 用 戶 自 定 義 數 組 中 是 否 有 空 閑 位 置( 因 為 在 談 話 中 途, 肯 定 會 有 人 退 出, 所 以 會 產 生 空 閑 位 置), 如 果 有 則 選 擇 空 閑 位 置 給 予 要 求 連 接 的 客 戶, 否 則 將 數 組 維 數 加 一, 將 之 給 予 請 求 連 接 的 遠 程 節 點。 錯 誤 處 理 主 要 是 忽 略 兩 個 或 兩 個 以 上 的 客 戶 同 時 要 求 連 接 時 產 生 的 地 址 沖 突 現 象。 </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- ２ ． 處 理 處 于 連 接 狀 態 的 用 戶 發 送 來 的 信 息 </p>
<p></p>
<p>---- sckServer_DataArrival 過 程 處 理 客 戶 端 傳 來 的 數 據。 當 有 數 據 發 送 過 來 后， 服 務 器 首 先 接 收 數 據， 調 用 自 定 義 過 程HandleOtherMessage 檢 查 是 談 話 內 容 還 是 其 它 信 息， 如 果 是 其 它 信 息， 則 在HandleOtherMessage 中 進 行 處 理， 否 則 在 本 過 程 中 進 行 處 理。 </p>
<p></p>
<p>---- 因 為Winsock 控 件 將 數 據 首 先 送 至 緩 沖 區， 待 緩 沖 區 滿 才 發 送 信 息， 這 顯 然 不 能 保 證 適 時 對 話， 用Doevents 語 句 可 確 保Windows 將 數 據 及 時 送 出。 其 中 的 錯 誤 處 理 程 序 處 理 當 遠 程 計 算 機 非 正 常 關 閉 程 序 時 產 生 的 錯 誤， 因 為 此 時 服 務 器 并 不 知 道 它 已 關 閉， 仍 然 向 它 發 送 信 息， 這 樣 就 會 產 生 錯 誤， 導 致 服 務 程 序 關 閉， 中 斷 整 個 談 話。 處 理 方 法 只 是 簡 單 地 關 閉 掉 該 連 接 即 可。 </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- 3. 關 閉 客 戶 連 接 </p>
<p></p>
<p>---- sckServer_Close 過 程 關 閉 與 客 戶 的 連 接， 刪 除 控 件， 收 回 系 統 資 源， 將 該 位 置 的 連 接 狀 態 設 置 為 假， 以 便 有 用 戶 請 求 連 接 時 繼 續 使 用。 它 一 般 由HandleOtherMessage 過 程 調 用 </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- 如 何 保 證 聊 天 內 容 的 健 康 是 一 個 很 重 要 的 方 面， 在Internet 上， 我 們 對 談 話 內 容 不 健 康 者， 只 有 將 之 開 除 出 聊 天 室。 但 在 局 域 網 上 則 可 以 查 出 是 誰 談 話 不 文 明（ 局 域 網 環 境 為Windows NT4.0 服 務 器，Windows 95 工 作 站）。 方 法 如 下： 在95 工 作 站 上 將 網 絡 中 的TCP/IP 協 議 中 的IP 地 址 選 項 設 為 動 態 獲 得IP 地 址， 在NT 服 務 器 上 用DHCP 管 理 工 具 為 每 一 個 客 戶 機 進 行IP 地 址 動 態 分 配。 聊 天 服 務 程 序 記 錄 下 來 了 每 一 個 客 戶 的IP 地 址， 我 們 就 可 以 通 過DHCP 管 理 工 具 很 容 易 地 查 出 某IP 地 址 對 應 的 計 算 機 名， 并 進 行 處 理。 </p>
<p></p>
<p>客 戶 程 序 部 分</p>
<p></p>
<p>---- 客 戶 程 序 啟 動 時 首 先 設 置 服 務 器 的 地 址 及 端 口， 這 里 我 直 接 使 用 了“192.168.0.2”， 這 是 我 的 服 務 器 地 址， 可 以 在Form_load 過 程 中 設 置 你 自 己 的 服 務 器 地 址， 也 可 在 程 序 開 始 時 讓 用 戶 輸 入 服 務 器 地 址 以 增 加 靈 活 性。 時 鐘 控 件 用 以 與 遠 程 節 點 進 行 自 動 連 接。 </p>
<p>---- ... ... </p>
<p></p>
<p>---- 客 戶 程 序 主 要 對 象 設 置 </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- “” 顯 示 所 有 正 在 聊 天 室 中 的 用 戶 名 </p>
<p></p>
<p>---- 顯 示 當 前 的 狀 態（ 用 戶 名，IP 地 址 及 是 否 密 談） </p>
<p></p>
<p>---- 與 服 務 器 程 序 一 樣， 這 里 列 出 的 并 非 全 部 的 控 件， 但 是 已 經 足 以 完 成 工 作。 </p>
<p></p>
<p>---- 客 戶 程 序 中 的 自 定 義 類MyMessage 用 來 記 錄 自 己 的 信 息， </p>
<p></p>
<p>---- ... ... </p>
<p></p>
<p>---- 類 中 的 變 量cmdExitClick 用 來 記 錄 用 戶 是 否 按 了 退 出 按 鈕， 如 果 是 按 了 退 出 按 鈕 則 為 真。 當 用 戶 選 擇 了 系 統 的 窗 體 關 閉 菜 單 而 沒 有 按 退 出 按 鈕 時 將 會 產 生 錯 誤， 因 此 用 它 來 記 錄 是 如 何 退 出 的， 如 果 選 擇 了 系 統 的 窗 體 關 閉 菜 單， 則 執 行 一 次cmdExit_Click() 過 程， 以 確 保 無 誤。 </p>
<p></p>
<p>---- 客 戶 退 出 時， 不 是 簡 單 地 關 閉 自 己 的Winsock 控 件， 而 是 發 送 一 個 字 符 串（ 我 采 用 了 一 個 大 家 在 聊 天 時 很 難 用 到 的 字 符 串“=_RE”） 給 服 務 器， 表 明 自 己 要 退 出， 由 服 務 器 端 關 閉 連 接， 進 而 關 閉 自 身。</p>
<p> </p>