好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 uujolin 于 2020-3-6 22:46 编辑
.版本 2
.支持库 script
.支持库 eGrid
.支持库 internet
.程序集 窗口程序集_启动窗口
.程序集变量 JS, 脚本组件
.程序集变量 对象, 对象
.程序集变量 变体型, 变体型
.子程序 __启动窗口_创建完毕
计次 = 0
高级表格1.置数据 (0, 0, 1, “视频名称”)
高级表格1.置列宽 (0, 高级表格1.取用户区宽度 () × 0.3)
高级表格1.置数据 (0, 1, 1, “无水印地址”)
高级表格1.置列宽 (1, 高级表格1.取用户区宽度 () × 0.7)
.子程序 _解析视频_被单击
.局部变量 数据, 文本型
数据 = 无水印解析 (编辑框1.内容)
计次 = 计次 + 1
高级表格1.插入行 (, )
高级表格1.置数据 (计次, 0, 1, 文本_取出中间文本 (数据, “#1#”, “#2#”, ))
高级表格1.置数据 (计次, 1, 1, 文本_取出中间文本 (数据, “*1*”, “*2*”, ))
播放地址 = 文本_取出中间文本 (数据, “*1*”, “*2*”, )
载入 (播放窗口, , 假)
.子程序 _提取解析_被单击
.局部变量 局_结果, 文本型
.局部变量 json, 类_json
.局部变量 json取地址, 类_json
.局部变量 计次循环, 整数型
.局部变量 取计次次数, 整数型
json.解析 (编辑框2.内容)
计次循环 = 1
.判断循环首 (json.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].desc”) ≠ “”)
高级表格1.插入行 (, )
高级表格1.置数据 (计次循环, 0, 1, json.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].desc”))
高级表格1.置数据 (计次循环, 1, 1, 文本_取出中间文本 (网页_访问S (json.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].video['play_addr']['url_list'][0]”), , , , , #手机协议头), “<a href=” + #引号, #引号 + “>”, ))
计次循环 = 计次循环 + 1
.判断循环尾 ()
.子程序 无水印解析, 文本型, 公开
.参数 解析地址, 文本型
.局部变量 json, 类_json
.局部变量 局_结果, 文本型
.局部变量 itemId, 文本型
.局部变量 dytk, 文本型
.局部变量 返回标题, 文本型
.局部变量 返回地址, 文本型
局_结果 = 到文本 (网页_访问S (解析地址, , , , , #手机协议头))
itemId = 文本_取出中间文本 (局_结果, “itemId: ” + #引号, #引号 + “,”, , )
dytk = 文本_取出中间文本 (局_结果, “dytk: ” + #引号, #引号, , )
json.解析 (到文本 (网页_访问S (“https://www.iesdouyin.com/web/api/v2/aweme/iteminfo/?item_ids=” + itemId + “&dytk=” + dytk)))
返回标题 = UTF8到文本 (到字节集 (json.取通用属性 (“['item_list'][0].desc”)))
返回地址 = 文本_取出中间文本 (网页_访问S (json.取通用属性 (“['item_list'][0].video['play_addr']['url_list'][0]”), , , , , #手机协议头), “<a href=” + #引号, #引号 + “>”, )
返回 (“#1#” + 返回标题 + “#2#*1*” + 返回地址 + “*2*”)
.子程序 _高级表格1_光标位置改变
.如果真 (播放地址 ≠ “”)
播放窗口.销毁 ()
播放地址 = 高级表格1.取数据 (高级表格1.取光标行号 (), 1)
置剪辑板文本 (高级表格1.取数据 (高级表格1.取光标行号 (), 1))
载入 (播放窗口, , 假)
.如果真结束
置剪辑板文本 (高级表格1.取数据 (高级表格1.取光标行号 (), 1))
播放地址 = 高级表格1.取数据 (高级表格1.取光标行号 (), 1)
载入 (播放窗口, , 假)
.子程序 _高级表格1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
写到文件 (“D:\” + 高级表格1.取数据 (高级表格1.取光标行号 (), 0) + “.mp4”, HTTP读文件 (高级表格1.取数据 (高级表格1.取光标行号 (), 1)))
.子程序 _test中_被单击
.局部变量 局_结果, 文本型
.局部变量 计次循环, 整数型
.局部变量 局_sec_uid, 文本型
局_结果 = 到文本 (网页_访问S (编辑框1.内容, , , , , #手机协议头))
局_sec_uid = 文本_取出中间文本 (网页_取跳转地址 (编辑框1.内容), “&sec_uid=”, “×tamp=”, , )
全局_uid = 文本_取出中间文本 (局_结果, “uid: ” + #引号, #引号 + “,”, , )
输出调试文本 (全局_uid)
全局_dytk = 文本_取出中间文本 (局_结果, “dytk: '”, “'”, , )
输出调试文本 (全局_dytk)
写到文件 (“d:\demo1.html”, 到字节集 (文本_替换 (到文本 (读入文件 (“d:\demo.html”)), , , , “#jm#”, 全局_uid)))
运行 (“C:\Users\Administrator\AppData\Roaming\secoresdk\360se6\Application\360se.exe ” + “d:\demo1.html”, 真, 2)
输出调试文本 (取剪辑板文本 ())
' https://www.iesdouyin.com/web/api/v2/aweme/post/?sec_uid=sec_uidM&count=21&max_cursor=0&aid=1128&_signature=_signature&dytk=dytk
json数据.解析 (到文本 (网页_访问S (“https://www.iesdouyin.com/web/api/v2/aweme/post/?sec_uid=” + 局_sec_uid + “&count=21&max_cursor=0&aid=1128&_signature=” + 取剪辑板文本 () + “&dytk=” + 全局_dytk)))
输出调试文本 (到文本 (网页_访问S (“https://www.iesdouyin.com/web/api/v2/aweme/post/?sec_uid=” + 局_sec_uid + “&count=21&max_cursor=0&aid=1128&_signature=” + 取剪辑板文本 () + “&dytk=” + 全局_dytk)))
计次循环 = 1
.判断循环首 (json数据.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].desc”) ≠ “”)
高级表格1.插入行 (, )
高级表格1.置数据 (计次循环, 0, 1, json数据.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].desc”))
高级表格1.置数据 (计次循环, 1, 1, 文本_取出中间文本 (网页_访问S (json数据.取通用属性 (“['aweme_list'][” + 到文本 (计次循环) + “].video['play_addr']['url_list'][0]”), , , , , #手机协议头), “<a href=” + #引号, #引号 + “>”, ))
计次循环 = 计次循环 + 1
.判断循环尾 ()
.子程序 网页_取跳转地址, 文本型, 公开, 获取一个网站重定向跳转的URL地址
.参数 地址, 文本型
.局部变量 http, 对象
.局部变量 p, 变体型
.如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
http.写属性 (“Option”, 6, 0)
http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
http.方法 (“open”, “GET”, 地址, 假)
http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)
http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)
http.方法 (“send”, )
p = http.读属性 (“GetResponseHeader”, “Location”)
返回 (p.取文本 ())
.如果真结束
返回 (“”)
请版主手下留情,真心不知道代码怎么放,求教JS, signature怎么写,里面的属性方法在易语言里怎么写的。真心求教。
源码使用精易模块【7.7.5】 |
免费评分
-
查看全部评分
|