[md]
2020年1月2日19:56:12 上传文件下载测试：
第一次下载可能会失败右键编辑文件如如下，第二次下载成功了。
<p style="padding:10px; font-size:12px;">文件ID： 222825<br>[UltraUXThemePatcher_3.6.3.zip] 文件不存在，请联系网站管理员处理。<br><br>联系方式：service@busdisk.com</p>
测试连接：http://www.tadaigou.com/down/QUEyMjI4MjU=.html
2019年12月6日21点21分更新下载404问题：
下载子程序位置新增和修改下载位置：
Host ＝ 文本_取出中间文本 (局_下载地址, “//”, “/dl.php”, )
局_文件内容 ＝ 网页_访问_对象 (局_下载地址, 0, , 编辑框1.内容, , #下载文件头 ＋ Host)
删除(#下载文件消息头)的host内容，通过动态下载链接获取：
原：Host: pt4a.busdisk.net
现：Host:
易语言巴士云下载源码
最近在浏览某些不可告人的网站的时候，需要下载不可告人的附件，发现站长将文件都放在了巴士云，而巴士云下载一次要等待1分钟
都开始浏览不可告人网站了这暴脾气哪能等待几分钟，当然是快点下啊。so我通过易语言抓包等方式做了个小软件，功能如下：
模块引用
模块名称：精易模块
作者：广大易友
版本：7.7
精易模块,让易语言更易
常量部分：可以编辑
.版本 2
.常量 获取ID头, "<文本长度: 320>"
.常量 下载文件头, "<文本长度: 290>"
.常量 id左边, "<文本长度: 11>"
.常量 名称左边, "<文本长度: 49>"
获取ID消息头：
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Referer: http://www.tadaigou.com/file/QUEzNDQyMQ==.html
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/76.0.3809.87 Safari/537.36
Upgrade-Insecure-Requests: 1
Host: www.tadaigou.com
下载文件消息头：
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Referer: http://www.tadaigou.com/down/QUExNjgxNg==.html
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/76.0.3809.87 Safari/537.36
Host:
取文件id左边
}
add_ref(
取名称左边
<span class="down_one_lf_tl" style="float:left;">
源码部分
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集1
.程序集变量 目录名, 文本型
.程序集变量 程_句柄, 整数型
.子程序 __启动窗口_创建完毕
目录名 ＝ 取当前目录 () ＋ “\download\”
创建目录 (目录名)
编辑框5.加入文本 (“提示信息：文件下载” ＋ 目录名 ＋ “内！”, #换行符, “如下载失效，请点击初始化获取cookies或通过浏览器复制cookies填入。”, #换行符)
.子程序 _按钮1_被单击
启动线程 (&子程序1, , 程_句柄)
.子程序 子程序1
.局部变量 局_文本, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_下载地址, 文本型
.局部变量 局_文件内容, 字节集
.局部变量 局_当前句柄, 整数型
.局部变量 局_文件名称, 文本型
局_当前句柄 ＝ 程_句柄
局_文本 ＝ 网页_访问S (编辑框2.内容, 0, , 编辑框1.内容, 编辑框1.内容, #获取ID头, , , )
编辑框4.内容 ＝ 文本_取出中间文本 (局_文本, #名称左边, “ ”)
编辑框3.内容 ＝ 文本_取出中间文本 (局_文本, #id左边, “)”, 2000, 真)
局_文件名称 ＝ 编辑框4.内容
编辑框5.加入文本 (“当前启动线程句柄：” ＋ 到文本 (局_当前句柄) ＋ “，下载文件：” ＋ 局_文件名称, #换行符)
局_下载地址 ＝ 网页_访问S (“http://www.tadaigou.com/ajax.php”, 1, “action=load_down_addr1&file_id=” ＋ 编辑框3.内容 ＋ “&vipd=0”, 编辑框1.内容, 编辑框1.内容, #获取ID头)
局_下载地址 ＝ 文本_取出中间文本 (局_下载地址, “true|<a href=” ＋ #引号, #引号)
#局_文件内容 ＝ 网页_访问_对象 (局_下载地址, 0, , 编辑框1.内容, , #下载文件头)
Host ＝ 文本_取出中间文本 (局_下载地址, “//”, “/dl.php”, )
局_文件内容 ＝ 网页_访问_对象 (局_下载地址, 0, , 编辑框1.内容, , #下载文件头 ＋ Host)
写到文件 (目录名 ＋ 编辑框4.内容, 局_文件内容)
编辑框5.加入文本 (“线程句柄：” ＋ 到文本 (局_当前句柄) ＋ “，下载文件：” ＋ 局_文件名称 ＋ “完成！”, #换行符)
.子程序 _按钮2_被单击
.局部变量 V_Cookies, 文本型
' 初始化cookie
V_Cookies ＝ “UM_distinctid=16e45e3c0040-0e9d7e056215bb-5f4e2917-144000-16e45e3c0052b1; CNZZDATA1278068732=1786585831-1573129385-%7C” ＋ 时间_到时间戳 (, 真, ) ＋ “; view_stat=1 ; ”
网页_访问S (“http://www.tadaigou.com/”, , , V_Cookies, V_Cookies, #获取ID头, )
网页_访问S (编辑框2.内容, 0, , V_Cookies, V_Cookies, , #获取ID头, , )
编辑框1.内容 ＝ V_Cookies
编辑框5.加入文本 (“初始化完成，请输入巴士盘链接下载。”, #换行符)
.子程序 _标签2_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框2.内容 ＝ 取剪辑板文本 ()
调试输出 (取剪辑板文本 ())
[复制链接]
发表于 2019-11-26 20:28
|
发表于 2019-12-7 20:24
