易语言抓包并解析获得历史上的今天的事件

雾削木

抓包教程：https://www.bilibili.com/video/BV1jZ4y127tr
下载地址也在视频简介；

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
Web	文本型
日期	文本型
事件	文本型
子项	文本型		0
id	整数型
x	整数型

Web ＝ 功能_网页访问 (取现行时间 ())
Web ＝ 文本_取出中间文本 (Web, #前边, #后边, , )
文本_取中间_批量 (Web, #项前面, #项后面, 子项, , , , , , , )
计次循环首 (取数组成员数 (子项), x)
id ＝ x
日期 ＝ 文本_取出中间文本 (子项 [id], #日期前边, #日期后边, , )
事件 ＝ 文本_取出中间文本 (子项 [id], #事件前边, #事件后边, 寻找文本 (子项 [id], 日期, , 假) ＋ 取文本长度 (日期), )
调试输出 (日期, 事件)
计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_是否重定向	逻辑型
局_结果	字节集
局_返回	文本型
月份	文本型
日子	文本型

' https://www.weixinyidu.com/today_d0409
月份 ＝ 到文本 (取月份 (日期))
如果真 (取文本长度 (月份) ＜ 2)
月份 ＝ “0” ＋ 月份
日子 ＝ 到文本 (取日 (日期))
如果真 (取文本长度 (日子) ＜ 2)
日子 ＝ “0” ＋ 日子
局_网址 ＝ “https://www.weixinyidu.com/today_d” ＋ 月份 ＋ 日子
局_方式 ＝ 0
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/99.0.4844.84 Safari/537.36”, )
ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_是否重定向 ＝ 真
网页_访问S (局_网址, 局_方式, , , , 局_提交协议头, , 局_是否重定向, , , , , , , , , 局_结果, , , , )
局_返回 ＝ 编码_Utf8到Ansi (局_结果)
返回 (局_返回)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 Web, 文本型<br /> .局部变量 日期, 文本型<br /> .局部变量 事件, 文本型<br /> .局部变量 子项, 文本型, , "0"<br /> .局部变量 id, 整数型<br /> .局部变量 x, 整数型<br /> <br /> Web ＝ 功能_网页访问 (取现行时间 ())<br /> Web ＝ 文本_取出中间文本 (Web, #前边, #后边, , )<br /> 文本_取中间_批量 (Web, #项前面, #项后面, 子项, , , , , , , )<br /> .计次循环首 (取数组成员数 (子项), x)<br />     id ＝ x<br />     日期 ＝ 文本_取出中间文本 (子项 [id], #日期前边, #日期后边, , )<br />     事件 ＝ 文本_取出中间文本 (子项 [id], #事件前边, #事件后边, 寻找文本 (子项 [id], 日期, , 假) ＋ 取文本长度 (日期), )<br />     调试输出 (日期, 事件)<br /> .计次循环尾 ()<br /> <br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .参数 日期, 日期时间型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_是否重定向, 逻辑型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 月份, 文本型<br /> .局部变量 日子, 文本型<br /> <br /> ' https://www.weixinyidu.com/today_d0409<br /> 月份 ＝ 到文本 (取月份 (日期))<br /> .如果真 (取文本长度 (月份) ＜ 2)<br />     月份 ＝ “0” ＋ 月份<br /> .如果真结束<br /> 日子 ＝ 到文本 (取日 (日期))<br /> .如果真 (取文本长度 (日子) ＜ 2)<br />     日子 ＝ “0” ＋ 日子<br /> .如果真结束<br /> 局_网址 ＝ “https://www.weixinyidu.com/today_d” ＋ 月份 ＋ 日子<br /> 局_方式 ＝ 0<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/99.0.4844.84 Safari/537.36”, )<br /> ADD_协议头.添加 (“X-Requested-With”, “XMLHttpRequest”, )<br /> <br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_是否重定向 ＝ 真<br /> <br /> 网页_访问S (局_网址, 局_方式, , , , 局_提交协议头, , 局_是否重定向, , , , , , , , , 局_结果, , , , )<br /> 局_返回 ＝ 编码_Utf8到Ansi (局_结果)<br /> 返回 (局_返回)

ydhe821

支持感谢分享

blue2022

谢谢分享！

雾削木

lovemuou 发表于 2022-4-10 14:36
你搞个json不行么 还要get

网页中的数据是直接在html里的

xjshuaishuai

谢谢分享！

易造轮

你搞个json不行么 还要get

深圳梦

支持开源~！感谢分享