HP端口转发简单操作源码

部分代码：

.版本 2
.支持库 EThread

.程序集 窗口程序集
.程序集变量 许可证, 整数型

.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
转发句柄 ＝ 服务端启动 (“0.0.0.0”, 到整数 (编辑框1.内容))
.判断开始 (转发句柄 ＞ 0)
    日志 (“服务器启动成功!”)
.默认
    按钮1.禁止 ＝ 假
    日志 (“服务器启动失败!”)
.判断结束


.子程序 日志
.参数 str, 文本型

进入许可区 (许可证)
编辑框2.加入文本 (str ＋ #换行符)
退出许可区 (许可证)

.子程序 __启动窗口_创建完毕

日志 (“国际女流氓:9970-96811”)
初始化 ()

.子程序 取连接信息, 逻辑型, 公开
.参数 ip, 文本型, 参考
.参数 端口, 整数型, 参考

ip ＝ 编辑框4.内容
端口 ＝ 到整数 (编辑框3.内容)
返回 (真)

@旋风冲锋