admin 发表于 2022-7-6 09:58:53

hpsocket端口转发

易语言hpsocket端口转发，此源码是转载别人的收集整理一下一起玩玩吧，以后会收集一些网络上相关HP 的代码贴在本网，缺少模块的话可以在本论坛下载相关的模块即可 DLL可以用中文模块的命令输出一定要跟模块版本匹配才可以

.版本 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)


**** Hidden Message *****

冷琼 发表于 2022-7-9 10:37:36

非常感谢楼主分享

强者为尊 发表于 2022-8-25 21:38:10

学习学习。。

vcenio 发表于 2022-9-19 11:08:47

xuex学习一下

korad 发表于 2022-10-21 18:35:20

这个看看可以！

mwyfeeq 发表于 2022-10-23 11:01:57

这个好，学习下

sz521900 发表于 2023-1-6 21:57:10

hpsocket端口转发 [修改]

zfsking 发表于 2023-1-16 12:41:00

搞起搞起搞起

13129650219 发表于 2023-2-12 16:41:36

规范化规范化飞过富国汇股份

胡逸之 发表于 2023-3-9 21:59:13

学习学习，我想做个服务器版本的。
页: [1] 2 3 4
查看完整版本: hpsocket端口转发