易语言企业大数据采集源码(内含加速乐解密源码)

易语言企业大数据采集源码(内含加速乐解密源码)

@墨落成白

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 解JScookie, 文本型, , 参数:1.代理IP地址,可空， 判断是否返回成功参数tlb_cookie
.参数 返回JS, 文本型
.局部变量 Resp1, 文本型
.局部变量 Resp2, 文本型
.局部变量 cookie1, 文本型
.局部变量 cookie2, 文本型
.局部变量 cookie3, 文本型
.局部变量 UM_distinctid, 文本型
.局部变量 更换IP, 逻辑型
.局部变量 js代码, 文本型
.局部变量 RespCk名, 文本型
.局部变量 欲删代码, 文本型
.局部变量 返回cookie, 文本型

Resp1 ＝ 返回JS
Resp1 ＝ 子文本替换 (Resp1, “<script>”, “function start(){”, , , 真)
Resp1 ＝ 子文本替换 (Resp1, “{eval(”, “{return(”, , , 真)
Resp1 ＝ 子文本替换 (Resp1, “</script>”, “}”, , , 真)
Resp2 ＝ 功能_运行JS代码_表达式 (Resp1, “start()”)
RespCk名 ＝ 文本_取出中间文本 (Resp2, “document.”, “=”)
js代码 ＝ RespCk名 ＋ 文本_取出中间文本 (Resp2, RespCk名, “+';Expires=”)
js代码 ＝ “function getcookie(){” ＋ #换行符 ＋ js代码 ＋ “return ” ＋ RespCk名 ＋ “;” ＋ “}”
js代码 ＝ #一句话_JS ＋ #换行符 ＋ js代码
欲删代码 ＝ “document” ＋ 文本_取出中间文本 (js代码, “document”, “toLowerCase();”) ＋ “toLowerCase();”
js代码 ＝ 子文本替换 (js代码, 欲删代码, #引号 ＋ “www.gsxt.gov.cn/” ＋ #引号, , , 真)
js代码 ＝ 子文本替换 (js代码, “return”, #换行符 ＋ “return”, , , 真)
返回cookie ＝ 功能_运行JS代码_表达式 (js代码, “getcookie()”)
返回 (返回cookie)

.子程序 功能_运行JS代码_表达式, 文本型, , 为序号1服务
.参数 文本, 文本型, , JS文本
.参数 函数名, 文本型, , JS欲执行的函数名需加()
.局部变量 JS命令, 类_脚本组件
.局部变量 结果, 文本型

JS命令.执行 (文本)' 本源码来自三叶资源网(www.sanye.cx)
结果 ＝ JS命令.计算表达式 (函数名)
返回 (结果)

.子程序 进入主页, 逻辑型, 公开, 4
.局部变量 解密cookie, 文本型
.局部变量 Content, 文本型

cookies ＝ “”
keyword ＝ “1000”
Content ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“http://www.gsxt.gov.cn/index.html?keywords=” ＋ keyword, , , cookies, , #协议头)))
编辑框1.内容 ＝ Content
解密cookie ＝ 解JScookie (Content)
cookies ＝ cookies ＋ “; ” ＋ 解密cookie
编辑框2.内容 ＝ cookies
调试输出 (cookies)
Content ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“http://www.gsxt.gov.cn/index.html?keywords=” ＋ keyword, , , cookies, , #协议头)))
调试输出 (Content)
返回 (真)

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

进入主页 ()