.版本 2
.子程序 _组合框1_将弹出列表
.局部变量 套接字信息, 套接字信息, , "0"
.局部变量 项目文本, 文本型
.局部变量 计次, 整数型
组合框1.清空 ()
.计次循环首 (枚举套接字 (-1, 套接字信息), 计次)
项目文本 ＝ “S=” ＋ 到文本 (套接字信息 [计次].套接字) ＋ “ 本地=” ＋ 整数型IP到文本型 (套接字信息 [计次].本地地址) ＋ “:” ＋ 到文本 (套接字信息 [计次].本地端口) ＋ “ 远程=” ＋ 整数型IP到文本型 (套接字信息 [计次].远程地址) ＋ “:” ＋ 到文本 (套接字信息 [计次].远程端口)
组合框1.加入项目 (项目文本, 套接字信息 [计次].套接字)
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 套接字, 整数型
.局部变量 封包1, 字节集
.局部变量 封包2, 字节集
套接字 ＝ 组合框1.取项目数值 (组合框1.现行选中项)
.如果真 (套接字 ＞ 0)
封包1 ＝ 到字节集 (编辑框1.内容)
封包2 ＝ 到字节集 (编辑框2.内容)
' 注意.TCP套接字用 send() 发送封包
send (套接字, 封包1, 取字节集长度 (封包1), 0)
延时 (30)
send (套接字, 封包2, 取字节集长度 (封包2), 0)
.如果真结束
