根据关键字循环访问网页

tink

超级列表框1里有3行不同的关键字，比如“A”、“B”、“C”，点开始后，根据超级列表框1里的关键字组成"www.baidu.com/?key=A"、"www.baidu.com/?key=B"、"www.baidu.com/?key=C"三个网址，然后循环访问这3个网址，每次访问间隔5秒，如果某个网址有返回特定的数据就写入到超级列表框2里。

qq261583065

示例.e (6.52 KB, 下载次数: 5)

2023-9-6 15:39 上传

点击文件名下载附件

qcby

  

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

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

组 ＝ { “A”, “B”, “C” }
计次循环首 (取数组成员数 (组), i)
url ＝ “www.baidu.com/?key=” ＋ 组 [i]
程序_延时 (5, 1)  ' 间隔5秒
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 url, 文本型<br /> <br /> 组 ＝ { “A”, “B”, “C” }<br /> .计次循环首 (取数组成员数 (组), i)<br />     url ＝ “<a href="http://www.baidu.com/?key=" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/?key=</a>” ＋ 组 <i><br />     程序_延时 (5, 1)  ' 间隔5秒<br /> .计次循环尾 ()

qcby

  

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

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

组 ＝ { “A”, “B”, “C” }
判断循环首 (真)
计次循环首 (取数组成员数 (组), i)
url ＝ “www.baidu.com/?key=” ＋ 组 [i]
' 执行你的网页访问代码~
程序_延时 (5, 1)  ' 间隔5秒
计次循环尾 ()
判断循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 url, 文本型<br /> <br /> 组 ＝ { “A”, “B”, “C” }<br /> .判断循环首 (真)<br />     .计次循环首 (取数组成员数 (组), i)<br />         url ＝ “<a href="http://www.baidu.com/?key=" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/?key=</a>” ＋ 组 <i><br /> <br />         ' 执行你的网页访问代码~<br /> <br />         程序_延时 (5, 1)  ' 间隔5秒<br />     .计次循环尾 ()<br /> .判断循环尾 ()

chaoup

  

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

变量名	类 型	静态	数组	备 注
i	整数型
返回文本	文本型

计次循环首 (超级列表框1.取表项数 (), i)
返回文本 ＝ 到文本 (网页_访问 (“www.baidu.com/?key=” ＋ 超级列表框1.取标题 (i － 1, 0), , , , , , , , , , , , , ))
如果真 (返回文本 ＝ “特定的数据”)
超级列表框2.置标题 (i － 1, 0, 返回文本)
延时 (5000)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     返回文本 ＝ 到文本 (网页_访问 (“<a href="http://www.baidu.com/?key=" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/?key=</a>” ＋ 超级列表框1.取标题 (i － 1, 0), , , , , , , , , , , , , ))<br />     .如果真 (返回文本 ＝ “特定的数据”)<br />         超级列表框2.置标题 (i － 1, 0, 返回文本)<br /> <br />     .如果真结束<br />     延时 (5000)<br /> .计次循环尾 ()

qq261583065

建议多线程循环,每个网址开一条线程,速度快效果佳,其他人回复的代码就当一条线程,有个网址启动几条线程,试试效果就知道了

tink

qq261583065 发表于 2023-9-4 16:42
建议多线程循环,每个网址开一条线程,速度快效果佳,其他人回复的代码就当一条线程,有个网址启动几条线程,试 ...

能给出代码吗大佬？

tink

chaoup 发表于 2023-9-4 15:20
[e=0].版本 2
.支持库 iext

你这个只能循环一次，我要反复循环该怎么写呢？

chaoup

tink 发表于 2023-9-6 15:24
你这个只能循环一次，我要反复循环该怎么写呢？

  

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

变量名	类 型	静态	数组	备 注
i	整数型
返回文本	文本型

计次循环首 (99999, i)
返回文本 ＝ 到文本 (网页_访问 (“www.baidu.com/?key=” ＋ 超级列表框1.取标题 (i － 1, 0), , , , , , , , , , , , , ))
如果真 (返回文本 ＝ “特定的数据”)
超级列表框2.置标题 (i － 1, 0, 返回文本)
延时 (5000)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> .计次循环首 (99999, i)<br />     返回文本 ＝ 到文本 (网页_访问 (“<a href="http://www.baidu.com/?key=" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/?key=</a>” ＋ 超级列表框1.取标题 (i － 1, 0), , , , , , , , , , , , , ))<br />     .如果真 (返回文本 ＝ “特定的数据”)<br />         超级列表框2.置标题 (i － 1, 0, 返回文本)<br /> <br />     .如果真结束<br />     延时 (5000)<br /> .计次循环尾 ()