精易web拦截get

飞羽软件 · 发表于 2020-10-22 09:46:14

看有朋友问web怎么拦截数据，发个列子没啥含量大神略过就行

精易web特殊功能拦截opst.e (8.84 KB, 下载次数: 173)

2020-10-22 09:44 上传

点击文件名下载附件

子程序名	返回值类型	公开	备注
_精易Web浏览器1_Url载入开始	逻辑型
参数名	类型	参考	可空	数组	备注
Url	文本型
Job	整数型

变量名	类型	静态	数组	备注
f	特殊功能
请求动作	整数型
临时文本	文本型
p	POST元素集
i	整数型

请求动作＝ f.取请求模式 (Job)
' 调试输出 (Url, 请求动作)

如果真 (请求动作＝ 1) ' get

如果真 (寻找文本 (Url, “https://www.baidu.com/s?ie=utf-8&csq”, , 假) ＞ 0)

f.拦截网络请求 (Job)

如果真 (寻找文本 (Url, “

”, , 假) ＞ -1)

f.拦截网络请求 (Job)

如果真 (请求动作＝ 2) ' post

子程序名	返回值类型	公开	备注
_精易Web浏览器1_Url载入结束	逻辑型
参数名	类型	参考	可空	数组	备注
Url	文本型
Job	整数型
数据字节集指针	整数型
数据长度	整数型

变量名	类型	静态	数组	备注
字节集	字节集
f	特殊功能
gg	文本型		0
i	整数型

字节集＝指针到字节集 (数据字节集指针, 数据长度) ' 取出拦截

判断 (Url ＝ “

”)

图片框1.图片＝字节集

gg ＝ f.获取响应头 (Job)

计次循环首 (取数组成员数 (gg), i)

编辑框1.加入文本 (gg [i] ＋ #换行符 )

计次循环尾 ()

编辑框1.加入文本 (编码_URL解码 (到文本 (字节集), 真))

i支持库列表	支持库注释
wke	精易web浏览器

.版本 2<br />
.支持库 wke<br />
<br />
.子程序 _精易Web浏览器1_Url载入开始, 逻辑型<br />
.参数 Url, 文本型<br />
.参数 Job, 整数型<br />
.局部变量 f, 特殊功能<br />
.局部变量 请求动作, 整数型<br />
.局部变量 临时文本, 文本型<br />
.局部变量 p, POST元素集<br />
.局部变量 i, 整数型<br />
<br />
请求动作 ＝ f.取请求模式 (Job)<br />
' 调试输出 (Url, 请求动作)<br />
.如果真 (请求动作 ＝ 1)  ' get<br />
    .如果真 (寻找文本 (Url, “<a href="https://www.baidu.com/s?ie=utf-8&csq" rel="nofollow" rel="nofollow" target="_blank">https://www.baidu.com/s?ie=utf-8&csq</a>”, , 假) ＞ 0)<br />
        f.拦截网络请求 (Job)<br />
    .如果真结束<br />
    .如果真 (寻找文本 (Url, “<img id="aimg_EdSNt" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://www.baidu.com/img/flexible/logo/pc/result.png" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”, , 假) ＞ -1)<br />
        f.拦截网络请求 (Job)<br />
    .如果真结束<br />
<br />
.如果真结束<br />
.如果真 (请求动作 ＝ 2)  ' post<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _精易Web浏览器1_Url载入结束, 逻辑型<br />
.参数 Url, 文本型<br />
.参数 Job, 整数型<br />
.参数 数据字节集指针, 整数型<br />
.参数 数据长度, 整数型<br />
.局部变量 字节集, 字节集<br />
.局部变量 f, 特殊功能<br />
.局部变量 gg, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
<br />
字节集 ＝ 指针到字节集 (数据字节集指针, 数据长度)  ' 取出拦截<br />
.判断开始 (Url ＝ “<img id="aimg_noMGY" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://www.baidu.com/img/flexible/logo/pc/result.png" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br />
    图片框1.图片 ＝ 字节集<br />
.默认<br />
<br />
    gg ＝ f.获取响应头 (Job)<br />
    .计次循环首 (取数组成员数 (gg), i)<br />
        编辑框1.加入文本 (gg <i> ＋ #换行符)<br />
    .计次循环尾 ()<br />
    编辑框1.加入文本 (编码_URL解码 (到文本 (字节集), 真))<br />
.判断结束