|
|

楼主 |
发表于 2026-1-25 18:34:43
|
显示全部楼层
河南省信阳市
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 验证码图片Base64 | 文本型 | | | | 验证码 | 文本型 | | | | 访问结果 | 文本型 | | | | 网页字节集 | 字节集 | | | | 局_域名 | 文本型 | | | | 计次 | 整数型 | | | | 正则 | 正则表达式 | | | | 搜索结果 | 搜索结果 | | | | 最终路径 | 文本型 | | | | Hex码 | 文本型 | | | | 提交验证URL | 文本型 | | | | 附加头 | 文本型 | | | | 协议头 | 文本型 | | |
附加头 = “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36” + #换行符 + “Referer: https://www.google.com/” 计次循环首 (取数组成员数 (字幕库网址 ), 计次 ) 网页_访问 (字幕库网址 [计次 ], 2, , , , 附加头, 协议头, , , , , , , ) 如果真 (寻找文本 (协议头, “200 OK”, , 假) ≠ -1 )  当前网址 = 字幕库网址 [计次 ] 跳出循环 ()  计次循环尾 ()调试输出 (当前网址 )会话Cookie = 搜索.标记 计次循环首 (3, 计次 ) 局_域名 = 当前网址 + “/search?q=” + IMDB码  状态条1. 置文本 (3, “字幕搜索中...” + 局_域名 ) 调试输出 (“字幕搜索中...” + 局_域名 ) 网页字节集 = 网页_访问 (局_域名, 0, , 会话Cookie, , 附加头, , , , , , , , ) 访问结果 = 编码_Utf8到Ansi (网页字节集 ) 调试输出 (“字幕库_搜索cookie”, 会话Cookie ) 如果 (寻找文本 (访问结果, “YunsuoAutoJump”, , 假) ≠ -1 )  调试输出 (“发现云锁YunsuoAutoJump ” + 局_域名 )  验证码图片Base64 = 文本_取出中间文本 (访问结果, “base64,”, #引号, , )  如果 (验证码图片Base64 ≠ “”)   全局_图片字节集 = 编码_BASE64解码 (验证码图片Base64, )  载入 (窗口_验证码, _启动窗口, 真)   如果 (验证码结果 ≠ “”)    Hex码 = 字节集_字节集到十六进制 (到字节集 (验证码结果 ))     提交验证URL = 局_域名 + “&security_verify_img=” + Hex码     会话Cookie = 网页_Cookie合并更新 (会话Cookie, “srcurl=” + 字节集_字节集到十六进制 (到字节集 (局_域名 )) )    网页字节集 = 网页_访问 (提交验证URL, 0, , 会话Cookie, , 附加头, , , , , , , , )   调试输出 (“验证码cookie”, 会话Cookie )   网页_置Cookie1 (当前网址, 会话Cookie, )    搜索.标记 = 会话Cookie    到循环尾 ()                                   正则. 创建 ( #字幕库详情页正则, 真)  搜索结果 = 正则. 搜索 (访问结果, 1, )  如果真 (搜索结果. 取子匹配文本 (访问结果, 1, ) ≠ “”)  网页_置Cookie1 (当前网址, 会话Cookie, )   搜索.标记 = 会话Cookie   跳出循环 ()     计次循环尾 () 如果 (搜索结果. 取子匹配文本 (访问结果, 1, ) ≠ “”) 最终路径 = 子文本替换 (搜索结果. 取子匹配文本 (访问结果, 1, ), “//zimuku.org”, 当前网址, , , 真) 调试输出 (“找到字幕详情页 ” + 最终路径 ) 状态条1. 置文本 (3, “找到字幕详情页 ” + 最终路径 ) 超级列表框_sub.标记 = 最终路径  网页字节集 = 网页_访问 (最终路径, 0, , 会话Cookie, , 附加头, , , , , , , , ) 字幕库_字幕详情页解析 (编码_Utf8到Ansi (网页字节集 ))    如果 (系统_信息框Ex (“错误”, “未搜索到字幕!” + #换行符 + “是否” + #换行符 + “前往字幕网站进行搜索下载!”, 0, 49 ) = 1 ) _工具条1_被单击 (4 )         状态条1. 置文本 (3, “未搜索到字幕! 请前往字幕网站进行搜索下载!”) 超级列表框_sub.标记 = “” 返回 ()
|
|