易语言hpsocket端口转发,此源码是转载别人的收集整理一下一起玩玩吧,以后会收集一些网络上相关HP 的代码贴在本网,缺少模块的话可以在本论坛下载相关的模块即可 DLL可以用中文模块的命令输出一定要跟模块版本匹配才可以- v- ^5 V" E4 X3 u6 d( F: ~
' v# v. M/ A1 c7 s+ 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)
' g% L0 t$ ]# J
( l) o, \& |0 G& W8 c r
2 K6 B: B _9 G. o" c: d |