有谁合伙或投资我吗?
已实现抓取百度网盘所有用户有效分享链接和对应文件名。24小时自动爬虫抓取。下一步,做百度网盘资源搜索网站。
还实现了一些辅助功能:批量逐个分享,得到文件名和对应链接列表。
批量转存,别人所有分享转存到自己网盘中。
已实现抓取百度网盘所有用户有效分享链接和对应文件名。24小时自动爬虫抓取。下一步,做百度网盘资源搜索网站。
还实现了一些辅助功能:批量逐个分享,得到文件名和对应链接列表。
批量转存,别人所有分享转存到自己网盘中。
业界之最的特点:1.浏览器登录安全 2.一键转存 3.无需安装7KB 4.网上同类软件全部失效
使用说明:输入要转存的地址,点【全部转存到根目录】。
以下为技术细节:
原理:对html自动操作。
一键转存 自动执行以下步骤:
1.用浏览器登录,直接用IE代理,这样就不用从界面登录了。所以绝对安全。
2.读要转存的数据。 总页数,第一页的条数及各分享地址。如何找到各元素是最难的。
3.打开各分享地址。
4.转存。三步:保存到网盘,确定,读转存是否成功。
5.读下一页。转到第2步。
6.完毕。
还需要改进的功能:文件夹和专辑的转存。网速慢会取消操作。
之前还通过抓包,确实可以抓到所有数据,但是在做封包发送的时候,发现百度网网已经加密,网上同类这种方式全部失效。最后采用对html自动操作 成功。
下面是之前的方法,不用好
百度网盘批量转存助手工具下载_绿色无需破解版_小兵 解决9gpan限制了普通用户单次只能转存10条 按键精灵源码下载
【功能说明】
百度云批量转存辅助工具【使用说明】
9gpan限制了普通用户单次只能转存10条。
我就写了这个辅助,一次转存一条,直到转存完所有。小兵的原程序我没有修改。
1.登录9gpan
2.获取文件
3.用这个辅助工具,打开后按F10,按F12停止
4.可以修改 转存一条后延时时间,默认1000就是1秒
5.转存完成后,结果会显示在原程序状态框里
所有相关文件 链接: http://pan.baidu.com/s/1mhnMkA0 密码: 6mg6
完整的源码:
//测试OK
UserVar Yanshi=1000 "转存一条后延时时间,默认1000就是1秒"
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As string) As Long
//=================================================================================
//下面这句是查找窗口类名(0)或者标题("无标题 - 记事本"),返回找到的句柄Hwnd
Hwndf = Plugin.Window.Find("WTWindow", 0)
//MessageBox "查找到的父窗口句柄为:" & Hwnd
Hwnd1 = Plugin.Window.FindEx(Hwndf,0,"Button", "百度网盘文件地址,一行一个(格式:http://pan.baidu.com/s/xxxxxx)")
//MessageBox "查找到的子窗口1句柄为:" & Hwnd
//下面这句是根据父窗口句柄(Hwnd)查找子窗口匹配类名("Edit")或者匹配标题(0),返回找到匹配的句柄Hwnd
Hwnd = Plugin.Window.FindEx(Hwnd1, 0, "Edit", 0)
//MessageBox "查找到的子窗口2句柄为:" & Hwnd
Hwnd3 = Plugin.Window.FindEx(Hwndf, 0, "Button", "4.开始转存")
//MessageBox "转存按钮句柄为:" & Hwnd3
Hwnd4f = Plugin.Window.FindEx(Hwndf, 0, "Button", "转存日志记录")
Hwnd4 = Plugin.Window.FindEx(Hwnd4f, 0, "Edit", 0)
//=================================================================================
//得到获得的百度网盘文件所有地址bt
bt = Plugin.Window.GetTextEx(Hwnd,1)
MessageBox "开始转存以下地址:" & bt
//字符分割方法1
//Dim MyArray
//pos=1
//While True
//MyArray = Split(bt, "http:", - 1 )
//subbt="http:"&MyArray (pos)
//MessageBox "Array:" & subbt
//i=0
//If pos<UBound(MyArray) Then
// //满足条件,执行下面的脚本
// pos = pos + 1
// Else
// Goto ENDZC
//End If
//通过判断表达式的取值,来执行后面的动作或控制
//Wend
//拆分转存
//计算有多少条转存地址
jg=""
pos = 1
While true
//清空状态框
SendMessage Hwnd4, 12, 0, ""
//得到单个新地址
pos = InStr(pos,bt, "http:")
//MessageBox "pos:" & pos
first=pos
If pos=0 Then
//满足条件,执行下面的脚本
Goto ENDZC
End If
//通过判断表达式的取值,来执行后面的动作或控制
pos=pos+1
pos = InStr(pos,bt, "http:")
//MessageBox "pos:" & pos
If pos=0 Then
//满足条件,执行下面的脚本
pos=len(bt)
End If
subbt = Mid(bt, first, pos - first)
//---2 写入单个新地址
SendMessage Hwnd, 12, 0, subbt
//---3 按转存键
SendMessage Hwnd3, 245, 0, 0
Delay Yanshi
//状态框分析结果
jgtemp = Plugin.Window.GetTextEx(Hwnd4, 1)
jg = jg & jgtemp
Call Plugin.Window.SetText(Hwndf,"一条转存完毕")
Wend
//当循环条件成立的时候,反复执行循环体
Rem ENDZC
//状态框写回结果
SendMessage Hwnd4, 12, 0, jg
SendMessage Hwndf, 12, 0, "小黄人软件 QQ345139427"
MessageBox "分批转存完毕-------------------小黄人软件 QQ345139427"