向服务器取一行文本

dp1122

跪求大哥指点或给个向如服务器每次取一行文本的例子，希望多线程取不会乱的，
我自己写了个脚本是在本地获取文本，但是多台机器的话就太麻烦了
我之前看有位大哥是服务器写个接口服务，运行脚本机器每次向服务器ip地址请求一行数据
谢谢各位大哥

用户被删除

写个接口  加一个许可证 就行了

kangqi

静等大佬，观摩学习

7104186

写一个http服务器，取得时候 加上许可证就可以了  取之前进入许可区，取完退出许可区

超级大乐透

有服务器用mysql好些吧

温柔小仙女

写入数据库,读取一个标记已读取!

2224848

添加两个按钮，添加一个编辑框。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本内容	文本型
行数组	文本型	0
当前行索引	整数型

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

' 设置界面
按钮_获取文本.标题 ＝ "获取服务器文本"
按钮_取下一行.标题 ＝ "取下一行"
按钮_取下一行.禁止 ＝ 真
编辑框_显示.是否允许多行 ＝ 真
编辑框_显示.滚动条 ＝ 2  ' 纵向滚动条

子程序名	返回值类型	公开	备 注
_按钮_获取文本_被单击

.局部变量 服务器地址, 文本型
.局部变量 响应文本, 文本型

服务器地址 ＝ "192.168.1.1"
编辑框_显示.内容 ＝ "正在连接服务器..." ＋ #换行符
处理事件 ()

' 获取服务器文本
响应文本 ＝ 获取服务器文本 (服务器地址)

如果 (响应文本 ≠ "")
文本内容 ＝ 响应文本
' 分割文本为行数组
行数组 ＝ 分割文本 (文本内容, #换行符, )
当前行索引 ＝ 1

如果 (取数组成员数 (行数组) > 0)
按钮_取下一行.禁止 ＝ 假
编辑框_显示.加入文本 ("获取成功，共" ＋ 到文本 (取数组成员数 (行数组)) ＋ "行文本" ＋ #换行符 )
编辑框_显示.加入文本 ("服务器返回空文本" ＋ #换行符 )
编辑框_显示.加入文本 ("连接服务器失败" ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮_取下一行_被单击

如果 (当前行索引 ≤ 取数组成员数 (行数组))
.局部变量 当前行, 文本型
当前行 ＝ 行数组[当前行索引]
当前行索引 ＝ 当前行索引 ＋ 1

编辑框_显示.加入文本 ("行" ＋ 到文本 (当前行索引 - 1) ＋ ": " ＋ 当前行 ＋ #换行符 )

' 自动滚动到最后
编辑框_显示.起始选择位置 ＝ 取文本长度 (编辑框_显示.内容)
编辑框_显示.滚动到行尾 ()
编辑框_显示.加入文本 ("已到达文本末尾" ＋ #换行符 )
按钮_取下一行.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
获取服务器文本	文本型
参数名	类 型	参考	可空	数组	备 注
服务器地址	文本型

变量名	类 型	静态	数组	备 注
端口	整数型
响应	文本型

端口 ＝ 80  ' HTTP默认端口
.尝试
' 使用HTTP访问获取文本
响应 ＝ 到文本 (HTTP读文件 ("http://" ＋ 服务器地址 ＋ "/data.txt"))
如果 (取文本长度 (响应) > 0)
返回 (响应)
返回 ("")
.捕捉
输出调试文本 ("访问服务器出错: " + 取错误信息 ())
返回 ("")
.结束 尝试

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本内容, 文本型<br /> .程序集变量 行数组, 文本型, , "0"<br /> .程序集变量 当前行索引, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 设置界面<br />     按钮_获取文本.标题 ＝ "获取服务器文本"<br />     按钮_取下一行.标题 ＝ "取下一行"<br />     按钮_取下一行.禁止 ＝ 真<br />     编辑框_显示.是否允许多行 ＝ 真<br />     编辑框_显示.滚动条 ＝ 2  ' 纵向滚动条<br /> <br /> .子程序 _按钮_获取文本_被单击<br />     .局部变量 服务器地址, 文本型<br />     .局部变量 响应文本, 文本型<br />     <br />     服务器地址 ＝ "192.168.1.1"<br />     编辑框_显示.内容 ＝ "正在连接服务器..." ＋ #换行符<br />     处理事件 ()<br />     <br />     ' 获取服务器文本<br />     响应文本 ＝ 获取服务器文本(服务器地址)<br />     <br />     .如果 (响应文本 ≠ "")<br />         文本内容 ＝ 响应文本<br />         ' 分割文本为行数组<br />         行数组 ＝ 分割文本(文本内容, #换行符, )<br />         当前行索引 ＝ 1<br />         <br />         .如果 (取数组成员数(行数组) > 0)<br />             按钮_取下一行.禁止 ＝ 假<br />             编辑框_显示.加入文本("获取成功，共" ＋ 到文本(取数组成员数(行数组)) ＋ "行文本" ＋ #换行符)<br />         .否则<br />             编辑框_显示.加入文本("服务器返回空文本" ＋ #换行符)<br />         .如果结束<br />     .否则<br />         编辑框_显示.加入文本("连接服务器失败" ＋ #换行符)<br />     .如果结束<br /> <br /> .子程序 _按钮_取下一行_被单击<br />     .如果 (当前行索引 ≤ 取数组成员数(行数组))<br />         .局部变量 当前行, 文本型<br />         当前行 ＝ 行数组[当前行索引]<br />         当前行索引 ＝ 当前行索引 ＋ 1<br />         <br />         编辑框_显示.加入文本("行" ＋ 到文本(当前行索引 - 1) ＋ ": " ＋ 当前行 ＋ #换行符)<br />         <br />         ' 自动滚动到最后<br />         编辑框_显示.起始选择位置 ＝ 取文本长度(编辑框_显示.内容)<br />         编辑框_显示.滚动到行尾 ()<br />     .否则<br />         编辑框_显示.加入文本("已到达文本末尾" ＋ #换行符)<br />         按钮_取下一行.禁止 ＝ 真<br />     .如果结束<br /> <br /> .子程序 获取服务器文本, 文本型<br /> .参数 服务器地址, 文本型<br /> .局部变量 端口, 整数型<br /> .局部变量 响应, 文本型<br /> <br /> 端口 ＝ 80  ' HTTP默认端口<br /> <br /> .尝试<br />     ' 使用HTTP访问获取文本<br />     响应 ＝ 到文本(HTTP读文件("http://" ＋ 服务器地址 ＋ "/data.txt"))<br />     .如果 (取文本长度(响应) > 0)<br />         返回 (响应)<br />     .否则<br />         返回 ("")<br />     .如果结束<br /> .捕捉<br />     输出调试文本("访问服务器出错: " + 取错误信息())<br />     返回 ("")<br /> .结束 尝试

补充内容 (2025-7-26 01:51):
192.168.1.1 改成你自己wai网地址