网站 › 『编程语言区』 › 【原创源码】【易语言】巴士云下载源码

‘json 发表于 2019-11-26 20:28

【原创源码】【易语言】巴士云下载源码

本帖最后由 ‘json 于 2020-1-2 19:58 编辑


2020年1月2日19:56:12 上传文件下载测试：
第一次下载可能会失败右键编辑文件如如下，第二次下载成功了。
```
<p style="padding:10px; font-size:12px;">文件ID： 222825<br> 文件不存在，请联系网站管理员处理。<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我通过易语言抓包等方式做了个小软件，功能如下：
- 输入巴士云链接直接下载该文件
- 免1分钟等待
- 免输验证码

软件留了一条后路，当获取的cookies异常时，可以通过浏览器抓取cookies导入

模块引用
```
模块名称：精易模块
作者：广大易友
版本：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.内容 ＝ 取剪辑板文本 ()
调试输出 (取剪辑板文本 ())

```

自卑的人 发表于 2020-8-22 02:45

down下来的文件都是空的，有没有教程可以教学一波啊

hack0601 发表于 2020-4-21 09:33

‘json 发表于 2019-12-15 10:35
可以右键编辑看看内容，如果是404那应该是消息头那个host的问题。上周修复的。。我没想到那个网盘绑定了 ...

楼主说的右键编辑是指在哪个文件上面编辑？易语言软件上吗？还是下载的文件上。
另外，楼主用什么软件进行编辑的，小白提问@_@

neverever 发表于 2019-12-7 22:05

下载得到的压缩包都报错啊！

若白 发表于 2019-11-26 21:19

这个挺好的，感谢你的分享！以后应该会用到！

diyikuai 发表于 2019-11-26 22:22

不是来下载软件的，就是来学习一下

hjdx001 发表于 2019-11-27 07:50

感谢原创发布，

liubingtao 发表于 2019-11-30 16:40

大佬，能不能发个成品，谢谢！！

‘json 发表于 2019-12-7 20:24

liubingtao 发表于 2019-11-30 16:40
大佬，能不能发个成品，谢谢！！

昨天上传了源码和成品。。。

orange2478 发表于 2019-12-7 22:44

大佬能来个配套教程或者分析过程就更加完美了

司徒晓慧 发表于 2019-12-13 23:30

非常感谢分享，现在这种网盘限制太多了

小啊曾 发表于 2019-12-14 17:10

感谢原创发布

查看完整版本: 【原创源码】【易语言】巴士云下载源码