循环访问url

zvbiao

功能：一直循环访问  /data/url.txt 里面的url， url.txt其他地方会不定时写入新的url。
目前遇到的问题：
1.静态编译后，我开了5个exe窗口在跑，右上角（最小化 、关闭）都无效了；
2.关闭窗口时显示，组件未载入或不存在

  

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

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

子程序名	返回值类型	公开	备 注
__启动窗口_首次激活

变量名	类 型	静态	数组	备 注
i	整数型
signal	文本型
file	整数型

' sign.txt:  run/stop
判断循环首 (真)
file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)
signal ＝ 读入一行 (file)
' 调试输出 (signal)
如果真 (signal ＝ “stop”)
调试输出 (“停止任务...”)
跳出循环 ()
访问任务 ()
延迟 (2000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
访问任务

变量名	类 型	静态	数组	备 注
url	文本型
file	整数型

调试输出 (“===========正在执行任务=============”)
file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)
url ＝ 读入一行 (file)
精易Web浏览器1.URL ＝ url

i支持库列表	支持库注释
spec	特殊功能支持库
wke	精易web浏览器

.版本 2<br /> .支持库 spec<br /> .支持库 wke<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 __启动窗口_首次激活<br /> .局部变量 i, 整数型<br /> .局部变量 signal, 文本型<br /> .局部变量 file, 整数型<br /> <br /> <br /> ' sign.txt:  run/stop<br /> .判断循环首 (真)<br />     file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)<br />     signal ＝ 读入一行 (file)<br />     ' 调试输出 (signal)<br />     .如果真 (signal ＝ “stop”)<br />         调试输出 (“停止任务...”)<br />         跳出循环 ()<br />     .如果真结束<br />     访问任务 ()<br />     延迟 (2000)<br /> .判断循环尾 ()<br /> <br /> .子程序 访问任务<br /> .局部变量 url, 文本型<br /> .局部变量 file, 整数型<br /> <br /> <br /> 调试输出 (“===========正在执行任务=============”)<br /> file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)<br /> url ＝ 读入一行 (file)<br /> 精易Web浏览器1.URL ＝ url

LWB666

zvbiao 发表于 2024-2-23 17:11
大佬 再多问一句，我想在  【 _精易Web浏览器1_Url载入开始】   这个子程序里面根据某个url判断是否页面 ...

时钟时间调高一点，时钟周期单位是毫秒。如果问题解决请设置最佳答案

没事瞎琢磨

精易Web浏览器 这个玩意得问题吧

微信的木头人

打开文件()    换成   读入文件()   呢

LWB666

  

子程序名	返回值类型	公开	备 注
__启动窗口_首次激活

线程_启动 (&线程)

子程序名	返回值类型	公开	备 注
线程

变量名	类 型	静态	数组	备 注
i	整数型
signal	文本型
file	整数型

' sign.txt:  run/stop
判断循环首 (真)
file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)
signal ＝ 读入一行 (file)
' 调试输出 (signal)
如果真 (signal ＝ “stop”)
调试输出 (“停止任务...”)
跳出循环 ()
访问任务 ()
延迟 (2000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
访问任务

变量名	类 型	静态	数组	备 注
url	文本型
file	整数型

调试输出 (“===========正在执行任务=============”)
file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)
url ＝ 读入一行 (file)
如果真 (是否已创建 (精易Web浏览器1))
精易Web浏览器1.URL ＝ url

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_首次激活<br /> <br /> 线程_启动 (&线程)<br /> <br /> .子程序 线程<br /> .局部变量 i, 整数型<br /> .局部变量 signal, 文本型<br /> .局部变量 file, 整数型<br /> <br /> ' sign.txt:  run/stop<br /> .判断循环首 (真)<br />     file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)<br />     signal ＝ 读入一行 (file)<br />     ' 调试输出 (signal)<br />     .如果真 (signal ＝ “stop”)<br />         调试输出 (“停止任务...”)<br />         跳出循环 ()<br />     .如果真结束<br />     访问任务 ()<br />     延迟 (2000)<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 访问任务<br /> .局部变量 url, 文本型<br /> .局部变量 file, 整数型<br /> <br /> 调试输出 (“===========正在执行任务=============”)<br /> file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)<br /> url ＝ 读入一行 (file)<br /> .如果真 (是否已创建 (精易Web浏览器1))<br />     精易Web浏览器1.URL ＝ url<br /> .如果真结束

zvbiao

LWB666 发表于 2024-2-23 14:21
[e=1].版本 2
.支持库 spec

大佬 提示这个。。

LWB666

zvbiao 发表于 2024-2-23 16:39
大佬 提示这个。。

  

子程序名	返回值类型	公开	备 注
_时钟_周期事件

变量名	类 型	静态	数组	备 注
i	整数型
signal	文本型
file	整数型

' sign.txt:  run/stop
file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)
signal ＝ 读入一行 (file)
' 调试输出 (signal)
如果真 (signal ＝ “stop”)
调试输出 (“停止任务...”)
时钟.时钟周期 ＝ 0
访问任务 ()

子程序名	返回值类型	公开	备 注
访问任务

变量名	类 型	静态	数组	备 注
url	文本型
file	整数型

调试输出 (“===========正在执行任务=============”)
file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)
url ＝ 读入一行 (file)
如果真 (是否已创建 (精易Web浏览器1))
精易Web浏览器1.URL ＝ url

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _时钟_周期事件<br /> .局部变量 i, 整数型<br /> .局部变量 signal, 文本型<br /> .局部变量 file, 整数型<br /> <br /> ' sign.txt:  run/stop<br /> file ＝ 打开文件 (取运行目录 () ＋ “\data\sign.txt”, 6, 1)<br /> signal ＝ 读入一行 (file)<br /> ' 调试输出 (signal)<br /> .如果真 (signal ＝ “stop”)<br />     调试输出 (“停止任务...”)<br />     时钟.时钟周期 ＝ 0<br /> .如果真结束<br /> 访问任务 ()<br /> .子程序 访问任务<br /> .局部变量 url, 文本型<br /> .局部变量 file, 整数型<br /> <br /> 调试输出 (“===========正在执行任务=============”)<br /> file ＝ 打开文件 (取运行目录 () ＋ “\data\url.txt”, 6, 1)<br /> url ＝ 读入一行 (file)<br /> .如果真 (是否已创建 (精易Web浏览器1))<br />     精易Web浏览器1.URL ＝ url<br /> .如果真结束

创建一个时钟，周期循环2000

zvbiao

LWB666 发表于 2024-2-23 16:54
[e=1].版本 2
.支持库 spec

大佬 再多问一句，我想在  【 _精易Web浏览器1_Url载入开始】   这个子程序里面根据某个url判断是否页面加载完整，那这样定时跑，好像  会执行太快了， 我应该放哪里控制这个呢