大佬们怎么保存可以访问的网页

小楼营销

我这里有几十万个url,但是怎么访问url,能正常访问的就保存，不能正常访问的就删除，并且边跑边保存呢，因为比较白,问了AI也写不了，大佬们写个成品和源码我学习一下吧 精币送上

LEOONL

  

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

启动线程（&访问）

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

变量名	类 型	静态	数组	备 注
网址数组	文本型
n	整数型
返回	文本型
可用网址	文本型

网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )
可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))
计次循环首 (取数组成员数 (文本), n)
返回 ＝ 网页_访问_对象 (网址数组 [n])
如果真 (返回 ≠ {  })
可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符
写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程（&访问）<br /> <br /> .子程序 访问<br /> .局部变量 网址数组, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 返回, 文本型<br /> .局部变量 可用网址, 文本型<br /> <br /> 网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )<br /> 可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))<br /> .计次循环首 (取数组成员数 (文本), n)<br />     返回 ＝ 网页_访问_对象 (网址数组 [n])<br />     .如果真 (返回 ≠ {  })<br />         可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

小楼营销

LEOONL 发表于 2024-8-7 10:30
[e=0].版本 2

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

运行不了啊 小哥

LEOONL

小楼营销 发表于 2024-8-7 11:07
运行不了啊 小哥

  

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

启动线程 (&访问, , )

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

变量名	类 型	静态	数组	备 注
网址数组	文本型		0
n	整数型
返回	字节集
可用网址	文本型

网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )
可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))
计次循环首 (取数组成员数 (网址数组), n)
返回 ＝ 网页_访问_对象 (网址数组 [n])
如果真 (返回 ≠ {  })
可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符
写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))

计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&访问, , )<br /> <br /> .子程序 访问<br /> .局部变量 网址数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 返回, 字节集<br /> .局部变量 可用网址, 文本型<br /> <br /> 网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )<br /> 可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))<br /> .计次循环首 (取数组成员数 (网址数组), n)<br />     返回 ＝ 网页_访问_对象 (网址数组 [n])<br />     .如果真 (返回 ≠ {  })<br />         可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

小楼营销

LEOONL 发表于 2024-8-7 11:09
[e=0].版本 2
.支持库 EThread

这个可以，就是速度有点慢，几十万url的话 不知道多久可以跑结束...小哥有办法吗

suyunsq

嫌慢就用多线程处理好了

小楼营销

suyunsq 发表于 2024-8-7 11:20
嫌慢就用多线程处理好了

我纯白...

suyunsq

要学会在论坛搜索，输入框搜索多线程大把多线程源码给你参考

LEOONL

小楼营销 发表于 2024-8-7 11:16
这个可以，就是速度有点慢，几十万url的话 不知道多久可以跑结束...小哥有办法吗 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
网址数组	文本型	0
可用网址	文本型
计数	整数型

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

网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )
可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))
计次循环首 (10, )
启动线程 (&访问, , )
延迟 (100)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
n	整数型
返回	字节集

计次循环首 (取数组成员数 (网址数组), n)
n ＝ 计数 ＋ 1
如果真 (计数 ＞ 取数组成员数 (网址数组))
跳出循环 ()
返回 ＝ 网页_访问_对象 (网址数组 [n])
如果真 (返回 ≠ {  })
可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符
写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))

计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 网址数组, 文本型, , "0"<br /> .程序集变量 可用网址, 文本型<br /> .程序集变量 计数, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )<br /> 可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))<br /> .计次循环首 (10, )<br />     启动线程 (&访问, , )<br />     延迟 (100)<br /> .计次循环尾 ()<br /> <br /> .子程序 访问<br /> .局部变量 n, 整数型<br /> .局部变量 返回, 字节集<br /> <br /> .计次循环首 (取数组成员数 (网址数组), n)<br />     n ＝ 计数 ＋ 1<br />     .如果真 (计数 ＞ 取数组成员数 (网址数组))<br />         跳出循环 ()<br />     .如果真结束<br />     返回 ＝ 网页_访问_对象 (网址数组 [n])<br />     .如果真 (返回 ≠ {  })<br />         可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

写的10个线程，要几个线程自己写，我写的多线程很片面 你可以自己研究多线程写代码

LEOONL

小楼营销 发表于 2024-8-7 11:16
这个可以，就是速度有点慢，几十万url的话 不知道多久可以跑结束...小哥有办法吗 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
网址数组	文本型	0
可用网址	文本型
计数	整数型

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

网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )
可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))
计次循环首 (10, )
启动线程 (&访问, , )
延迟 (100)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
n	整数型
返回	字节集

计次循环首 (取数组成员数 (网址数组), n)
计数 ＝ 计数 ＋ 1
n ＝ 计数
如果真 (n ＞ 取数组成员数 (网址数组))
跳出循环 ()
返回 ＝ 网页_访问_对象 (网址数组 [n])
如果真 (返回 ≠ {  })
可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符
写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 网址数组, 文本型, , "0"<br /> .程序集变量 可用网址, 文本型<br /> .程序集变量 计数, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 网址数组 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\url.txt”)), #换行符, )<br /> 可用网址 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\可用网址.txt”))<br /> .计次循环首 (10, )<br />     启动线程 (&访问, , )<br />     延迟 (100)<br /> .计次循环尾 ()<br /> <br /> .子程序 访问<br /> .局部变量 n, 整数型<br /> .局部变量 返回, 字节集<br /> <br /> .计次循环首 (取数组成员数 (网址数组), n)<br />     计数 ＝ 计数 ＋ 1<br />     n ＝ 计数<br />     .如果真 (n ＞ 取数组成员数 (网址数组))<br />         跳出循环 ()<br />     .如果真结束<br />     返回 ＝ 网页_访问_对象 (网址数组 [n])<br />     .如果真 (返回 ≠ {  })<br />         可用网址 ＝ 可用网址 ＋ 网址数组 [n] ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\可用网址.txt”, 到字节集 (可用网址))<br />     .如果真结束<br /> <br /> .计次循环尾 ()