易语言hpsocket端口转发,此源码是转载别人的收集整理一下一起玩玩吧,以后会收集一些网络上相关HP 的代码贴在本网,缺少模块的话可以在本论坛下载相关的模块即可 DLL可以用中文模块的命令输出一定要跟模块版本匹配才可以
* }9 u: t$ O# R( B) @" V0 M/ v1 y9 E2 p0 s" C% ^1 n* a! ^0 X- S7 i; c, X
[AppleScript] 纯文本查看 复制代码 .版本 2
.支持库 iext
.子程序 _启动转发_被选择
.局部变量 本地端口, 整数型
.局部变量 目标ip, 文本型
.局部变量 目标端口, 整数型
.局部变量 l_Ret, 整数型
.局部变量 名字, 文本型
.如果真 (n_ForwardList.现行选中项 ≠ -1)
.如果真 (n_ForwardList.取表项数值 (n_ForwardList.现行选中项) ≠ 0)
返回 ()
.如果真结束
本地端口 = 到整数 (n_ForwardList.取标题 (n_ForwardList.现行选中项, 3))
目标ip = n_ForwardList.取标题 (n_ForwardList.现行选中项, 1)
名字 = n_ForwardList.取标题 (n_ForwardList.现行选中项, 0)
目标端口 = 到整数 (n_ForwardList.取标题 (n_ForwardList.现行选中项, 2))
创建服务 (名字, 到整数 (本地端口), 到整数 (目标端口), 目标ip)
.如果真 (l_Ret = 0)
' 信息框 (“转发启动失败”, #警告图标, , )
' 返回 ()
.如果真结束
n_ForwardList.置图片 (n_ForwardList.现行选中项, 0, 1)
n_ForwardList.置表项数值 (n_ForwardList.现行选中项, l_Ret)
4 e( c1 y9 F6 o7 |" S5 P4 [: S n' P
1 H+ @& t B4 a, X/ | p# B+ B7 n5 ^% F5 f3 t
|