C#百度网盘批量转存助手工具_绿色安全版 百度云盘一键转存小黄人软件原创20161204已测可用
有谁合伙或投资我吗？
已实现抓取百度网盘所有用户有效分享链接和对应文件名。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