易语言实现的端口映射软件

输出调试文本 (格式化文本 (“欢迎客户：%s 连接成功！”, 服务器.取回客户 ()))
输出调试文本 (取数组成员数 (映射))
.如果真 (索引 ＞ 取数组成员数 (映射))
重定义数组 (映射, 真, 索引)
.如果真结束
复制窗口组件 (客户端, 映射 [索引].映射客户)
映射 [索引].映射客户.标记 ＝ 到文本 (索引)
映射 [索引].请求客户 ＝ 服务器.取回客户 ()
.如果 (映射 [索引].映射客户.连接 (映射_地址, 映射_端口))
数据源1.置文本 (索引, 1, 到文本 (取现行时间 ()))
数据源1.置文本 (索引, 2, 映射 [索引].请求客户)
数据源1.置文本 (索引, 3, “真”)
输出调试文本 (格式化文本 (“欢迎客户：%s 映射成功！”, 服务器.取回客户 ()))
.否则
客户.客户离开 (服务器)
服务器.断开客户 (服务器.取回客户 ())