利用VB设计聊天室作者：何书臣Internet 上的聊天室一向是一个吸引人.docVIP

利用VB设计聊天室作者：何书臣Internet 上的聊天室一向是一个吸引人 利用VB设计聊天室 作者：何书臣 Internet 上 的 聊 天 室 一 向 是 一 个 吸 引 人 的 地 方， 但 多 用C 语 言 设 计， 我 用VB 设 计 了 一 个 聊 天 室， 取 名 为“ 升 达 自 由 论 坛”， 实 际 使 用 证 明 效 果 良 好。 ---- Internet 上 的 通 讯 协 议 是TCP/IP，Internet 上 数 据 传 输 协 议 主 要 有TCP 和UDP，TCP 是 有 连 接 协 议， 它 要 求 计 算 机 进 行 对 话 时 必 须 先 建 立 连 接， 保 证 数 据 传 送 安 全 到 达 目 的 地。 UDP 是 无 连 接 协 议， 它 只 是 将 信 息 送 到 网 络 上， 并 不 检 查 数 据 是 否 到 达 了 目 的 地。 要 进 行 实 时 会 话， 则 应 该 采 用TCP 协 议。 本 程 序 采 用 的 协 议 就 是TCP 协 议。 ---- 程 序 分 服 务 和 客 户 程 序 两 部 分。 客 户 程 序 启 动 后 首 先 与 服 务 器 连 接， 连 接 成 功 后， 随 意 输 入 一 个 名 字 即 可 进 入 聊 天 室； 服 务 程 序 则 负 责 维 护 与 每 一 个 客 户 的 连 接 和 数 据 交 换， 并 且 记 录 下 所 有 聊 天 内 容， 及 人 员 名 单。 由 于 在 会 话 过 程 中 大 家 起 的 都 是 假 名 字， 不 可 避 免 地 要 有 的 人 讲 一 些 不 健 康 内 容， 为 了 保 持 秩 序， 服 务 器 程 序 实 现 了IP 地 址 跟 踪 功 能。 管 理 人 员 可 以 很 容 易 地 查 找 出 每 一 个 匿 名 的 计 算 机 名， 并 对 之 进 行 警 告 或 其 它 处 理（ 下 面 会 进 一 步 介 绍）。 可 保 证 会 话 内 容 的 健 康。 如 果 服 务 器 程 序 关 闭， 则 所 有 客 户 程 序 自 动 关 闭。 VB5 的Winsock 控 件 ---- VB5 企 业 版 提 供 了Winsock 控 件， 要 实 现 两 台 计 算 机 的 对 话， 可 以 通 过Winsock 控 件 进 行。 而 不 需 了 解 更 多 的 数 据 传 输 细 节, 本 程 序 就 是 通 过Winsock 进 行 的。 ---- Winsock 有 多 种 属 性、 方 法 和 事 件， 本 文 只 列 举 出 要 使 用 的 属 性、 方 法 和 事 件。 ---- ... ... ---- 一 个Winsock 控 件 可 以 建 立 与 一 个 计 算 机 的 联 接， 服 务 器 程 序 中 首 先 设 置 一 个Winsock 控 件， 将 其 索 引 值 设 为 ０， 以 便 在 运 行 时 动 态 增 减 元 素， 这 样 可 以 与 多 个 计 算 机 进 行 对 话。 程 序 介 绍 ---- 服 务 程 序 部 分 ---- 服 务 器 程 序 启 动 时， 先 设 置 自 己 的 本 地 端 口， 因 为 有 些 端 口 有 其 固 定 的 作 用， 如80 是WWW 端 口， 故 尽 可 能 选 择 不 可 能 使 用 的 端 口， 这 里 我 选 择 了1600。 将 连 接 状 态 设 置 为 假， 然 后 开 始 进 行 侦 听。 当 侦 听 到 有 计 算 机 要 求 与 服 务 器 进 行 对 话， 就 接 受， 并 记 录 下 客 户 机 的 地 址、 端 口、 客 户 起 的 匿 名， 将 连 接 状 态 设 置 为 真， 将 上 述 内 容 存 入 一 个 用 户 自 定 义 的 数 组 中， 进 行 动 态 维 护。 用 户 自 定 义 数 据 类 型 如 下： Private Type ActiveUser ClientIP As String 记录客户的IP地址 ClientName As String 记录客户的匿名 ClientPort As Integer 记录当前会话的端口 ClientConnected As Boolean 客户连接状态，True表示已连接，False表示没有连接 End Type ---- 做 完 这 些 工 作 后， 服 务 器 再 调 入 一 个 新 控 件， 进 行 新 的 侦 听， 如 此 反 复 不 断。 如 果 有 客 户 退 出 ， 则 关 闭 相 应 的 连 接。 注 意 不 能