求个网址自动获取标题

菜鸡来学习

求个网址自动获取标题、
导入txt，自动获取获取网站标题，UA可自己设置。返回标题，错误等信息。

冷渣渣

嫌慢你就自行改成多线程

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 网址列表, 文本型, , "0"
.局部变量 网页标题, 文本型
.局部变量 i, 整数型

网址列表 ＝ 分割文本 (到文本 (读入文件 (“C:\Users\Administrator\Desktop\网址列表.txt”)), #换行符, )
.计次循环首 (取数组成员数 (网址列表), i)
    返回文本 ＝ 到文本 (网页_访问 (网址列表 ))
    返回文本 ＝ 编码_utf8到gb2312 (返回文本)
    网页标题 ＝ 文本_取出中间文本 (返回文本, “<title>”, “</title>”)
    调试输出 (“网页标题”, 网页标题)
.计次循环尾 ()
' * “网页标题” | “Tao宝”
' * “网页标题” | “百du一下，你就知道”
' * “网页标题” | “人人 - 加入人人，找到老同学，结识新朋友”

asasqwwq

.版本 2

.子程序 _按钮1_被单击
.局部变量 驱动进程id, 整数型
.局部变量 js游览器, phantomjs游览器, , , selenium模块
.局部变量 网址, 文本型

网址 ＝ 编辑框1.内容

进程销毁w (“phantomjs.exe”)  ' 下载地址：https://phantomjs.org/download
驱动进程id ＝ phantomjs初始化 (, , )  ' phantomjs初始化 (“phantomjs.exe路径”, , )

js游览器.打开新会话 ()
js游览器.设置当前网址 (网址)

编辑框2.内容 ＝ js游览器.标签获取标题 ()


补充内容 (2023-9-6 08:57):
精易模块：网址=文本_取指定文件文本行1（）............

补充内容 (2023-9-6 09:19):
js游览器.取最后错误信息（）； 常用网页操作，selenium里面基本都有。

huaiman

厉害，这么快

冷渣渣

asasqwwq 发表于 2023-9-6 08:52
.版本 2

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

你这啥模块生成的 感觉很有意思啊

asasqwwq

冷渣渣 发表于 2023-9-6 09:03
你这啥模块生成的 感觉很有意思啊

备注了啊，selenium模块。论坛里下。 刚好之前写一个通用采集和网页填表用过。