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」,#信息圖標,「關於程序:」)