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

.版本 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_被单击 进入主页 ()