1. 易语言端口映射,怎么弄
近在眼前 端口
程序功能:实现简单的端口映射功能。
程序过程:使用服务器和客户组件启动端口服务。
程序支持:需要 网络通讯支持库 的支持
其它说明:虽然很简单,但是可以实现最基本的功能,也可以当代理服务器用。
.版本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”,#信息图标,“关于程序:”)