.版本 2 .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _服务器程序_数据到达 .局部变量 线程参数, 线程参数 线程参数.客户IP ＝ 服务器程序.取回客户 () 线程参数.请求内容 ＝ 到文本 (服务器程序.取回数据 ()) 启动线程 (&数据到达, 取变量地址 (线程参数), ) 延时 (100) ' 延时不可以删 .子程序 数据到达 .参数 变量地址, 整数型 .局部变量 线程参数, 线程参数 交换_变量交地址ASM (线程参数, 变量地址) 调试输出 (线程参数.客户IP, 线程参数.请求内容) .子程序 _服务器程序_客户进入 .局部变量 线程参数, 线程参数 线程参数.客户IP ＝ 服务器程序.取回客户 () 启动线程 (&客户进入, 取变量地址 (线程参数), ) 延时 (100) ' 延时不可以删 .子程序 客户进入 .参数 变量地址, 整数型 .局部变量 线程参数, 线程参数 交换_变量交地址ASM (线程参数, 变量地址) 调试输出 (线程参数.客户IP) .子程序 _服务器程序_客户离开 .局部变量 线程参数, 线程参数 线程参数.客户IP ＝ 服务器程序.取回客户 () 启动线程 (&客户离开, 取变量地址 (线程参数), ) 延时 (100) ' 延时不可以删 .子程序 客户离开 .参数 变量地址, 整数型 .局部变量 线程参数, 线程参数 交换_变量交地址ASM (线程参数, 变量地址) 调试输出 (线程参数.客户IP) .子程序 __启动窗口_创建完毕