百度旋转识别源码

.版本 2
.支持库 spec

.程序集 程序集1
.程序集变量 http, WinHttpW
.程序集变量 _常量, 文本型
.程序集变量 _as, 文本型
.程序集变量 _tk, 文本型
.程序集变量 _backstr, 文本型
.程序集变量 图片, 字节集

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

http.Auto ()
http.AutoCookies ()
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序
.局部变量 ds, 文本型
.局部变量 a, 文本型

载入 (窗口1, , 真)
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序 百度_滑块, 逻辑型, 公开, 返回ds  tk
.参数 ds, 文本型, 参考
.参数 tk, 文本型, 参考
.参数 坐标, 文本型
.局部变量 Data, 文本型
.局部变量 Url, 文本型
.局部变量 fs, 文本型
.局部变量 Response, 文本型
.局部变量 json, 类_json

Data ＝ 轨迹 (坐标)
获取tk ()
Data ＝ 文本_替换 (_常量, , , , “[坐标]”, Data, “[backstr]”, _backstr, , , , , , )
fs ＝ JS调试 (#JS, “AES_Encrypt”, “” ＋ Data ＋ “,'” ＋ _as ＋ “'”)
fs ＝ 编码_URL编码 (fs, 真, 真)
_tk ＝ 编码_URL编码 (_tk, 真, 真)
Url ＝ “https://passport.baidu.com/viewlog?ak=3de47787fd60b30420f868ffbf4dbccd&as=cca1980c&fs=” ＋ fs ＋ “&tk=” ＋ _tk ＋ “&cv=submit&callback=jsonpCallbackb10082&v=4210&t=” ＋ 时间_取现行时间戳 ()
http.Open (“GET”, Url)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36”)
http.Send ()
Response ＝ http.GetResponseTextA ()
Response ＝ 文本_取出中间文本 (Response, “(”, “)”, , )
调试输出 (Response)
json.解析 (Response)
.如果真 (json.取属性 (“data.op”).取数据文本 () ＝ “1”)
    ds ＝ json.取通用属性 (“data.ds”, )
    tk ＝ json.取通用属性 (“data.tk”, )
    ds ＝ 编码_URL编码 (ds, 真, 真)
    tk ＝ 编码_URL编码 (tk, 真, 真)
    返回 (真)
.如果真结束
返回 (假)

.子程序 图片码, 字节集
.局部变量 Url, 文本型
.局部变量 Response, 文本型
.局部变量 json, 类_json

Url ＝ “https://passport.baidu.com/viewlog/getstyle?ak=3de47787fd60b30420f868ffbf4dbccd&type=spin&callback=jsonpCallbackA21007&v=3853&t=” ＋ 时间_取现行时间戳 ()
http.Open (“GET”, Url)
http.Send ()
Response ＝ http.GetResponseTextA ()
Response ＝ 文本_取出中间文本 (Response, “(”, “)”, , )

json.解析 (Response)
_backstr ＝ json.取通用属性 (“data.backstr”, )
Url ＝ json.取通用属性 (“data.ext.img”, )
Url ＝ 编码_URL解码 (Url, 真)
http.Open (“GET”, Url)
http.SetReferer (“https://ziyuan.baidu.com/site/batchadd?mainsite=https://www.5h77.com/”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36”)
http.SetAccept (“image/webp,image/apng,image/*,*/*;q=0.8”)
http.Send ()
返回 (http.GetResponseBody ())


.子程序 获取tk
.局部变量 fs, 文本型
.局部变量 Data, 文本型
.局部变量 Url, 文本型
.局部变量 Response, 文本型
.局部变量 json, 类_json

Data ＝ 轨迹1 (“160”)
Data ＝ 文本_替换 (#参数_Data, , , , “[坐标]”, Data, , , , , , , , )
fs ＝ JS调试 (#JS, “AES_Encrypt”, “” ＋ Data ＋ “,'cca1980c'”)
fs ＝ 编码_URL编码 (fs, 真, 真)
Url ＝ “https://passport.baidu.com/viewlog?ak=3de47787fd60b30420f868ffbf4dbccd&as=9fa91bc4&fs=” ＋ fs ＋ “&tk=3203DmzUWvsnCx0G5AYKOoyiWDsD9HHNhfyXjeTW5FJY%2FoSIIBX1Fz%2Byo0gZfCuwKUhynI8eoph3ukxWDl8F5Mnoug%3D%3D&callback=jsonpCallbackb736&v=5320&t=” ＋ 时间_取现行时间戳 ()
http.Open (“GET”, Url)
http.SetReferer (“https://ziyuan.baidu.com/site/batchadd?mainsite=https://www.5h77.com/”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36”)
http.Send ()
Response ＝ http.GetResponseText ()
Response ＝ 文本_取出中间文本 (Response, “(”, “)”, , )
json.解析 (Response)
_tk ＝ json.取通用属性 (“data.tk”, )
_as ＝ json.取通用属性 (“data.as”, )

.子程序 轨迹, 文本型
.参数 坐标, 文本型
.局部变量 随机数_横坐标, 整数型
.局部变量 随机数_纵坐标, 整数型
.局部变量 Data, 文本型
.局部变量 横坐标, 整数型
.局部变量 x, 整数型
.局部变量 ac_c, 文本型

随机数_横坐标 ＝ 842
随机数_纵坐标 ＝ 622
横坐标 ＝ 842 ＋ 到整数 (坐标)
x ＝ 横坐标 － 随机数_横坐标
ac_c ＝ JS调试 (#JS_v, “test”, 坐标)
调试输出 (ac_c)
Data ＝ “{” ＋ #引号 ＋ “x” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_横坐标) ＋ “,” ＋ #引号 ＋ “y” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_纵坐标) ＋ “,” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ 时间_取现行时间戳 () ＋ “}”
_常量 ＝ 文本_替换 (#参数_Data_提交, , , , “[坐标1]”, Data, “[ac_c]”, ac_c, , , , , , )
.判断循环首 (真)
    随机数_横坐标 ＝ 随机数_横坐标 ＋ 取随机数 (-2, 8)
    随机数_纵坐标 ＝ 随机数_纵坐标 ＋ 取随机数 (-2, 3)
    .如果真 (随机数_横坐标 ＞ 横坐标)
        随机数_横坐标 ＝ 横坐标
    .如果真结束
    Data ＝ Data ＋ “,” ＋ “{” ＋ #引号 ＋ “x” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_横坐标) ＋ “,” ＋ #引号 ＋ “y” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_纵坐标) ＋ “,” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ 时间_取现行时间戳 () ＋ “}”
    .如果真 (随机数_横坐标 ＝ 横坐标)
        跳出循环 ()
    .如果真结束
    延迟 (取随机数 (100, 150))
.判断循环尾 ()
返回 (Data)

.子程序 轨迹1, 文本型
.参数 坐标, 文本型
.局部变量 随机数_横坐标, 整数型
.局部变量 随机数_纵坐标, 整数型
.局部变量 横坐标, 整数型
.局部变量 x, 双精度小数型
.局部变量 Data, 文本型

随机数_横坐标 ＝ 842
随机数_纵坐标 ＝ 622
横坐标 ＝ 842 ＋ 到整数 (坐标)
Data ＝ “{” ＋ #引号 ＋ “x” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_横坐标) ＋ “,” ＋ #引号 ＋ “y” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_纵坐标) ＋ “,” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ 时间_取现行时间戳 () ＋ “}”
.判断循环首 (真)
    随机数_横坐标 ＝ 随机数_横坐标 ＋ 取随机数 (-2, 8)
    随机数_纵坐标 ＝ 随机数_纵坐标 ＋ 取随机数 (-2, 3)
    .如果真 (随机数_横坐标 ＞ 横坐标)
        随机数_横坐标 ＝ 横坐标
    .如果真结束
    Data ＝ Data ＋ “,” ＋ “{” ＋ #引号 ＋ “x” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_横坐标) ＋ “,” ＋ #引号 ＋ “y” ＋ #引号 ＋ “:” ＋ 到文本 (随机数_纵坐标) ＋ “,” ＋ #引号 ＋ “t” ＋ #引号 ＋ “:” ＋ 时间_取现行时间戳 () ＋ “}”
    .如果真 (随机数_横坐标 ＝ 横坐标)
        跳出循环 ()
    .如果真结束
    延迟 (取随机数 (100, 150))
.判断循环尾 ()
返回 (Data)

.子程序 JS调试, 文本型, 公开, 代码由鬼鬼JS调试工具生成 BY QQ:120220707
.参数 JS代码, 文本型
.参数 函数名, 文本型
.参数 参数, 文本型, 可空
.局部变量 js, 对象
.局部变量 return, 文本型

CoInitialize (0)  ' 线程中请初始化COM  否则会出错
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JavaScript”)
js.数值方法 (“AddCode”, JS代码)  ' 调试成功的JS代码段
return ＝ js.通用方法 (“eval”, 函数名 ＋ “(” ＋ 参数 ＋ “)”).取文本 ()
CoUninitialize ()
返回 (return)

@liuxing12