.版本 2 .程序集 窗口1程序集 .程序集变量 服务器, 服务器类 .程序集变量 窗口函数, 整数型 .子程序 _窗口1_创建完毕 窗口函数 ＝ 设置窗口信息 (窗口1.取窗口句柄 (), #GWL_WNDPROC, 到整数 (&窗口1消息处理)) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮1_被单击 服务器.启动 (到整数 (编辑框1.内容)) 服务器.异步选择 (窗口1.取窗口句柄 (), #服务器消息, #FD_READ ＋ #FD_CLOSE ＋ #FD_ACCEPT) 画板1.滚动写行 (“启动成功:” ＋ “ 端口;” ＋ 到文本 (服务器.取服务器端口 ())) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 窗口1消息处理, 整数型 .参数 hwnd, 整数型, , hwnd .参数 msg, 整数型, , 消息 .参数 wParam, 整数型, , 客户句柄 .参数 lParam, 整数型, , 事件类型 .如果真 (msg ＝ #服务器消息) .判断开始 (lParam ＝ #FD_READ) 数据到达 (wParam) .判断 (lParam ＝ #FD_CLOSE 或 lParam ＝ #FD_ERROR) 客户离开 (wParam) .判断 (lParam ＝ #FD_ACCEPT) 客户进入 (wParam) .默认 .判断结束 返回 (0) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (msg ＝ #WM_CLOSE) 服务器.停止 () 设置窗口信息 (hwnd, #GWL_WNDPROC, 窗口函数) .如果真结束 返回 (设置窗口函数 (窗口函数, hwnd, msg, wParam, lParam)) .子程序 客户进入 .参数 客户句柄, 整数型 客户句柄 ＝ 服务器.监听 () 画板1.滚动写行 (“客户[” ＋ 到文本 (客户句柄) ＋ “]进入”) .子程序 客户离开 .参数 客户句柄 服务器.断开连接 (客户句柄) 画板1.滚动写行 (“客户[ ” ＋ 到文本 (客户句柄) ＋ “]离开”) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 数据到达 .参数 客户句柄, 整数型 .局部变量 数据, 字节集 .局部变量 是否成功, 逻辑型 处理事件 () 数据 ＝ 服务器.接收 (客户句柄, 是否成功) .如果真 (是否成功) 画板1.滚动写行 (“[” ＋ 到文本 (客户句柄) ＋ “] ” ＋ 到文本 (数据)) 服务器.发送 (客户句柄, 数据) .如果真结束 .子程序 _停止_被单击 服务器.停止 () ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮2_被单击 .如果真 (是否已创建 (窗口2) ＝ 假) 载入 (窗口2, , 假) .如果真结束 .子程序 _窗口1_将被销毁 .如果真 (是否已创建 (窗口2) ＝ 真) 窗口2.销毁 () .如果真结束 窗口0.可视 ＝ 真