易语言hpsocket端口转发,此源码是转载别人的收集整理一下一起玩玩吧,以后会收集一些网络上相关HP 的代码贴在本网,缺少模块的话可以在本论坛下载相关的模块即可 DLL可以用中文模块的命令输出一定要跟模块版本匹配才可以: \% N3 L1 u9 P! f9 [8 ?
9 c) z0 [ X. L# _; t2 d
[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)
: n' R* ?8 ^% x7 i
4 N2 b7 R j+ W/ E! y) [. i; t
# y# Q, I- x6 C0 S" a; G
|