vb的winsock 控件能不能写同时接受多用户连入的服务器.txt

VB技巧问答10000例 VB技巧问答10000例

我 以 前 做 过 有 关 WINSOCK控 件 的 通 讯 程 序 ， 可 能 会 有 一 些 帮 助 。 
     1、 先 建 一 VB程 序 ， 在 其 中 建 一 个 WINSOCK的 控 件 数 组 。 
     2、 用 WINSOCK1(0)专 门 侦 听 信 息 。 
     3、 当 有 一 个 连 接 请 求 时 ， LOAD WINSOCK1(CURRENTCONNECTNUM)， 其 中 CURRENTCONNECTNUM为 当 前 连 接 数 。 而 WINSOCK1(0)仍 执 行 侦 听 任 务 。 
     4、 当 程 序 的 连 接 数 达 到 一 定 数 目 时 ， 关 闭 WINSOCK1(0)的 侦 听 功 能 。 并 启 动 同 一 程 序 。 当 某 一 连 接 断 开 时 ， 再 启 动 WINSOCK1(0)的 端 口 侦 听 功 能 。 如 果 无 法 继 续 侦 听 ， 则 不 关 闭 侦 听 功 能 ， 但 要 注 意 ， 不 要 每 次 有 连 接 来 就 打 开 一 个 程 序 。 
     5、 第 二 个 程 序 启 动 时 ， 使 用 另 一 端 口 侦 听 ， 以 免 和 第 一 程 序 发 生 碰 撞 ， 端 口 号 可 从 文 件 或 注 册 表 中 读 取 。 以 此 类 推 ， 8000个 连 接 可 分 成 若 干 个 组 来 并 行 处 理 ， 相 信 会 好 一 些 。 
     6、 要 注 意 的 是 ， 断 开 连 接 后 ， 要 UNLOAD WINSOCK1(CURRENTCONNECTNO)， 否 则 再 连 接 会 出 错 。 以 上 是 我 的 一 些 浅 见 ， 希 望 对 问 题 有 所 帮 助 。 (我 的 程 序 是 在 vb6下 做 的 。 ) 
    相 关 程 序 可 参 考 VB下 的 WINSOCK， 不 过 那 是 单 工 ， 我 编 的 程 序 是 双 工 的 。 
<END>