借用花生壳做nei网穿透，远程服务支持库制作网络验证。 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

编辑框_动态.边框＝ 5
编辑框_动态.背景颜色＝ #黑色
编辑框_动态.是否允许多行＝真
编辑框_动态.滚动条＝ 2
编辑框_动态.对齐方式＝ 1
编辑框_动态.输入方式＝ 1
编辑框_动态.起始选择位置＝ -1
编辑框_动态.文本颜色＝ 61184

子程序名	返回值类型	公开	备注
动态_输出
参数名	类型	参考	可空	数组	备注
加入文本	文本型

如果 (编辑框_动态.内容＝ “”)

编辑框_动态.内容＝加入文本

编辑框_动态.内容＝编辑框_动态.内容＋ #换行符＋加入文本
编辑框_动态.起始选择位置＝取文本长度 (编辑框_动态.内容) ＋ 1

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

结束 ()
销毁 ()

子程序名	返回值类型	公开	备注
_按钮_启动_被单击

TCP_服务器.启动 (到整数 (编辑框_端口号.内容), &服务器处理函数, )
动态_输出 (“服务器已开启”)

子程序名	返回值类型	公开	备注
服务器处理函数
参数名	类型	参考	可空	数组	备注
参_消息地址	整数型				有客户连接到服务端返回0，有客户主动或意外断开与服务端的连接返回1，客户端发送字节流到服务器返回2，出错返回-1。

变量名	类型	静态	数组	备注
消息类型	整数型

消息类型＝ TCP_服务器.取消息类型 (参_消息地址)

判断 (消息类型＝ 0)

动态_输出 (“有客户连接到服务端”)

判断 (消息类型＝ 1)

动态_输出 (“有客户主动或意外断开与服务端的连接”)

判断 (消息类型＝ 2)

动态_输出 (“客户端发送字节流到服务器：” ＋客户信息取回 (参_消息地址))

判断 (消息类型＝ -1)

动态_输出 (“出错”)

子程序名	返回值类型	公开	备注
_按钮_终止_被单击

动态_输出 (“服务器停止服务”)
TCP_服务器.停止 ()

子程序名	返回值类型	公开	备注
客户信息取回	文本型
参数名	类型	参考	可空	数组	备注
参_消息地址	整数型

变量名	类型	静态	数组	备注
请求代码	文本型
请求信息	文本型

TCP_服务器.取请求文本 (参_消息地址, 请求代码, 请求信息)
返回 (请求信息)

子程序名	返回值类型	公开	备注
_按钮_发送_被单击

变量名	类型	静态	数组	备注
客户句柄数组	整数型		0
i	整数型

TCP_服务器.取客户数组 (客户句柄数组)

计次循环首 (取数组成员数 (客户句柄数组), i)

TCP_服务器.发送文本 (客户句柄数组 [i], 编辑框_发送消息.内容)

计次循环尾 ()

i支持库列表	支持库注释
Exmlrpc	远程服务支持库

.版本 2<br />
.支持库 Exmlrpc<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
编辑框_动态.边框 ＝ 5<br />
编辑框_动态.背景颜色 ＝ #黑色<br />
编辑框_动态.是否允许多行 ＝ 真<br />
编辑框_动态.滚动条 ＝ 2<br />
编辑框_动态.对齐方式 ＝ 1<br />
编辑框_动态.输入方式 ＝ 1<br />
编辑框_动态.起始选择位置 ＝ -1<br />
编辑框_动态.文本颜色 ＝ 61184<br />
<br />
<br />
.子程序 动态_输出<br />
.参数 加入文本, 文本型<br />
<br />
.如果 (编辑框_动态.内容 ＝ “”)<br />
    编辑框_动态.内容 ＝ 加入文本<br />
.否则<br />
    编辑框_动态.内容 ＝ 编辑框_动态.内容 ＋ #换行符 ＋ 加入文本<br />
.如果结束<br />
编辑框_动态.起始选择位置 ＝ 取文本长度 (编辑框_动态.内容) ＋ 1<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
结束 ()<br />
销毁 ()<br />
<br />
.子程序 _按钮_启动_被单击<br />
<br />
TCP_服务器.启动 (到整数 (编辑框_端口号.内容), &服务器处理函数, )<br />
动态_输出 (“服务器已开启”)<br />
<br />
.子程序 服务器处理函数<br />
.参数 参_消息地址, 整数型, , 有客户连接到服务端返回0，有客户主动或意外断开与服务端的连接返回1，客户端发送字节流到服务器返回2，出错返回-1。<br />
.局部变量 消息类型, 整数型<br />
<br />
消息类型 ＝ TCP_服务器.取消息类型 (参_消息地址)<br />
.判断开始 (消息类型 ＝ 0)<br />
    动态_输出 (“有客户连接到服务端”)<br />
.判断 (消息类型 ＝ 1)<br />
    动态_输出 (“有客户主动或意外断开与服务端的连接”)<br />
.判断 (消息类型 ＝ 2)<br />
    动态_输出 (“客户端发送字节流到服务器：” ＋ 客户信息取回 (参_消息地址))<br />
.判断 (消息类型 ＝ -1)<br />
    动态_输出 (“出错”)<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
.子程序 _按钮_终止_被单击<br />
<br />
动态_输出 (“服务器停止服务”)<br />
TCP_服务器.停止 ()<br />
<br />
<br />
.子程序 客户信息取回, 文本型<br />
.参数 参_消息地址, 整数型<br />
.局部变量 请求代码, 文本型<br />
.局部变量 请求信息, 文本型<br />
<br />
TCP_服务器.取请求文本 (参_消息地址, 请求代码, 请求信息)<br />
返回 (请求信息)<br />
<br />
<br />
.子程序 _按钮_发送_被单击<br />
.局部变量 客户句柄数组, 整数型, , "0"<br />
.局部变量 i, 整数型<br />
<br />
TCP_服务器.取客户数组 (客户句柄数组)<br />
.计次循环首 (取数组成员数 (客户句柄数组), i)<br />
    TCP_服务器.发送文本 (客户句柄数组 <i>, 编辑框_发送消息.内容)<br />
.计次循环尾 ()