易语言端口映射，怎么弄

近在眼前 端口

程序功能：实现简单的端口映射功能。

程序过程：使用服务器和客户组件启动端口服务。

程序支持：需要 网络通讯支持库 的支持

其它说明：虽然很简单，但是可以实现最基氏租本的功能，也可以当代理服务器用。

.版本 2

.支持库 sock

.程序集 窗口程序集1

.程序集变量 端口1

.程序集变量 端口2

.程序集变量 ip1, 文本型, , "0"

.程序集变量 ip2, 文本型

.程序集变量 客户信息, 文本型

.子程序 __启动窗口_创建完毕

.局部变量 i

' 虽然很简单，但是可以实现最基本的功能，也可以当代理服务器用哦

ip1 ＝ 取本机IP ()

.如果 (取数组成员数 (ip1) ＝ 2)

    ip框1.内容 ＝ ip1 [2]

.否则

    ip框1.内容 ＝ ip1 [1]

.如果结束

ip框2.内容 ＝ ip框1.内容

.子程序 _按钮1_被单击

.如果真 (按钮1.标题 ＝ “启动映射”)

    服务器1.端口 ＝ 到数值 (端口框1.内容)

    标记 ＝ “映射”

    按钮1.标题 扮物＝ “停止映射”

    返回 ()

.如果真结束

按钮1.标题 ＝ “启动映射”

服务器1.端口 ＝ 0

.子程序 _服务器1_客户进入

客户信息 ＝ 服务器1.取回客户 ()

客户1.连接 (ip框2.内容, 到数值 (端口框2.内容))

.子程序 _服务器1_数据到达

客户1.发送数据 (服务器1.取回数据 ())

.子程序 _客户1_数据到达

服务器1.发送数据 (客户信息, 客户1.取回数据 (), )

.子程序 _客户1_连接断开

服务器1.断开客户 (客户信息)

.子程序 _按钮3_被单击

结束 ()

.子程序 _按钮2_被单击

信息框 (“这个是最简单的端口映射程序” ＋ #换行符 ＋ #换行符 ＋ 取空白文本 (12) ＋ “近在眼前出品” ＋ #换行符 ＋ 取空白文本 (14) ＋ “2005.0.12”, #信息图歼缺兆标, “关于程序：”)

服务端的端口 与 路由器的端口 要填写一样的，并且IP要指向服务端所在机型族誉子的IP(本机IP)

详细可以看这个，也穗做是我回卜段答的、

http://zhidao.baidu.com/question/477362689.html?oldq=1

求采纳为满意回答。

需要启动一个服务器 。

如首轮做果该端口被Http.sys占用，说明一些正在使用http.sys的应用程序在桐滑运行。

提供了一种应用程序的机制者衡来帮助控制端口共享

---