C#百度网盘批量转存助手工具_绿色安全版 百度云盘一键转存小黄人软件原创20161204已测可用

 有谁合伙或投资我吗？
已实现抓取百度网盘所有用户有效分享链接和对应文件名。24小时自动爬虫抓取。下一步，做百度网盘资源搜索网站。
还实现了一些辅助功能：批量逐个分享，得到文件名和对应链接列表。
批量转存，别人所有分享转存到自己网盘中。 

兔费百度网盘批量转存，在此下载

业界之最的特点：1.浏览器登录安全 2.一键转存 3.无需安装7KB 4.网上同类软件全部失效

使用说明：输入要转存的地址，点【全部转存到根目录】。

以下为技术细节：

原理：对html自动操作。

一键转存 自动执行以下步骤：

1.用浏览器登录，直接用IE代理，这样就不用从界面登录了。所以绝对安全。

2.读要转存的数据。 总页数，第一页的条数及各分享地址。如何找到各元素是最难的。

3.打开各分享地址。

4.转存。三步：保存到网盘，确定，读转存是否成功。

5.读下一页。转到第2步。

6.完毕。

还需要改进的功能：文件夹和专辑的转存。网速慢会取消操作。

20160506

之前还通过抓包，确实可以抓到所有数据，但是在做封包发送的时候，发现百度网网已经加密，网上同类这种方式全部失效。最后采用对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"