.版本 2 .程序集 窗口程序集1 .程序集变量 计时 .子程序 _按钮1_被单击 .如果真 (客户1.连接 (“www.pctowap.com”, 80)) .如果真 (客户1.发送数据 (#常量1)) 计时 ＝ 取启动时间 () 返回 () .如果真结束 .如果真结束 信息框 (“网络连接失败”, 0, “”) .子程序 _客户1_数据到达 .局部变量 数据, 文本型 数据 ＝ 到文本 (客户1.取回数据 ()) 编辑框1.加入文本 (数据) .如果真 (寻找文本 (数据, “0” ＋ #换行符 ＋ #换行符, , 假) ≠ -1) 客户1.断开连接 () 标题 ＝ “ok 耗时-” ＋ 到文本 (取启动时间 () － 计时) ＋ “毫秒” .如果真结束