快手通过主页链接批量下载全部视频

文章附件下载：https://www.pan38.com/dow/share.php?code=JCnzE 提取密码：2491

今天给客人写的 写完了后他要求我给一直免费售后维护 没谈成最终交易失败了 就拿出来开源了 让这个泛滥出去让他这个白嫖党用不好
.版本 2
.支持库 EThread
.支持库 spec
.支持库 internet
.支持库 iext
.支持库 shell

.程序集 窗口程序集_启动窗口

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

.如果真 (到整数 (时间_取现行时间戳 ()) ＞ 1655633164000)
销毁 ()

.如果真结束

.子程序 按钮1被单击

启动线程 (&批量下载子程序, , )
按钮2.禁止 ＝ 真
信息框 (“开始解析”, 0, , )

.子程序 批量下载子程序
.局部变量 分割后的文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 id, 文本型

id ＝ 文本取出中间文本 (编辑框1.内容, “profile/”, “?fid=”, )
调试输出 (id)
功能网页访问 (id)

.子程序 解析下载
.参数 解析地址, 文本型
.局部变量 Result, 文本型, , , 此代码由乐易编程助手生成,本套代码必须配合乐易模块使用，下载地址 http://www.leybc.com/thread-2843-1-1.html
.局部变量 json, 类_json
.局部变量 下载链接, 文本型
.局部变量 保存文件名字, 文本型
.局部变量 str, 字节集

保存文件名字 ＝ 子文本替换 (解析地址, “https://v.kuaishou.com/”, “”, , , 真)

.判断循环首 (真)
Result ＝ 编码URL解码 (UTF8到文本 (网页访问_对象 (“http://www.dalimm.com/ajax/analyze.php”, 1, “link=” ＋ 编码URL编码 (解析地址), , , “User-Agent:Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36” ＋ #换行符 ＋ “Accept:image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, /” ＋ #换行符 ＋ “Content-Type:application/x-www-form-urlencoded”, , , , , )))
.如果真 (寻找文本 (Result, “retDesc”, , 假) ≠ -1)
跳出循环 ()
.如果真结束
程序延时 (500)
.判断循环尾 ()
json.解析 (Result)
下载链接 ＝ json.取通用属性 (“data.video”)
str ＝ HTTP读文件 (下载链接)
写到文件 (取运行目录 () ＋ “\” ＋ 保存文件名字 ＋ “.mp4”, str)

.子程序 功能网页访问, , , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 id, 文本型
.局部变量 局网址, 文本型
.局部变量 局方式, 整数型
.局部变量 局提交数据, 文本型
.局部变量 局提交cookie, 文本型
.局部变量 局提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 json, 类json
.局部变量 局返回, 文本型
.局部变量 i, 整数型
.局部变量 下载链接, 文本型
.局部变量 str, 文本型
.局部变量 表项, 整数型
.局部变量 视频标题, 文本型
.局部变量 x, 整数型
.局部变量 总文本, 文本型
.局部变量 xxx, 整数型
.局部变量 视频md5, 文本型
.局部变量 iiix, 整数型

' https://www.kuaishou.com/graphql

.计次循环首 (90, x)
json.解析 (程序_快手翻页 (x, “1.0”, id))

.计次循环首 (json.成员数 (“data.visionProfilePhotoList.feeds”), i)

    视频标题 ＝ json.取通用属性 (“data.visionProfilePhotoList.feeds[” ＋ 到文本 (i － 1) ＋ “].photo.caption”)
    下载链接 ＝ json.取通用属性 (“data.visionProfilePhotoList.feeds[” ＋ 到文本 (i － 1) ＋ “].photo.photoUrl”)
    视频md5 ＝ 文本_取出中间文本 (下载链接, “==_”, “.mp4?pkey=”)

    .如果 (寻找文本 (总文本, 视频md5, , 假) ＝ -1)
        表项 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (表项, 0, 到文本 (表项))
        超级列表框1.置标题 (表项, 1, 视频标题)
        超级列表框1.置标题 (表项, 2, 下载链接)
        总文本 ＝ 总文本 ＋ 视频md5

    .否则
        调试输出 (总文本)
        xxx ＝ 10
        iiix ＝ iiix ＋ 1
        调试输出 (视频md5)
        调试输出 (x)
        跳出循环 ()
        调试输出 (下载链接)

    .如果结束

.计次循环尾 ()

.' 如果真 (xxx ＝ 10)
    ' 跳出循环 ()
.如果真结束

.计次循环尾 ()
信息框 (“解析完成”, 0, , )
按钮2.禁止 ＝ 假

.子程序 下载线程
.参数 正式, 整数型
.参数 url, 文本型
.局部变量 str, 字节集

调试输出 (“下载:”, url)
str ＝ HTTP读文件 (url)
写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (取随机数 (10, )) ＋ “.mp4”, str)
调试输出 (“下载111”)

.子程序 按钮2被单击
.局部变量 i, 整数型
.局部变量 str, 字节集
.局部变量 视频标题, 文本型

.如果 (编辑框2.内容 ＝ “”)
信息框 (“请先选择保存位置！”, 0, , )
返回 ()
.否则
信息框 (“开始下载”, 0, , )
.如果结束

按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
.计次循环首 (超级列表框1.取表项数 (), i)
str ＝ 网页访问对象 (超级列表框1.取标题 (i － 1, 2))

视频标题 ＝ 超级列表框1.取标题 (i － 1, 1)

写到文件 (编辑框2.内容 ＋ “\” ＋ 视频标题 ＋ “.mp4”, str)
程序_延时 (100)
超级列表框1.置标题 (i － 1, 3, “√”)

.计次循环尾 ()
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假

信息框 (“下载完成”, 0, , )

.子程序 按钮选择保存地址_被单击
.局部变量 文件名, 文本型

.' 如果真 (通用对话框1.打开 ())
' 文件名 ＝ 通用对话框1.文件名
' 编辑框2.内容 ＝ 文件名
.如果真结束
文件名 ＝ 浏览文件夹 (“保存位置”, 真)
编辑框2.内容 ＝ 文件名

.子程序 按钮单个解析_被单击

载入 (窗口_单个解析, , 真)