百度影音未完成文件批量导入下载

changlianxi

我看过手动添加的方法，可是我都是下美剧，目录内有三百多集呢，不能这样手动添加，编了个小程序，用Autoit3打开编译一下，并把编译完的文件放入百度影音存文件目录，运行一下，显示读取链接地址列表并存入剪切板，在百度影音选打开URL或快捷键Ctrl+U，可以看到提取的下载信息已经在窗口中，选下面的“下载不播放”按确定按钮就行了。源代码如下（用记事本粘贴并保存为：读取百度影音bdre文件信息.au3）

#include <Array.au3>
#Include <File.au3>
Local $Str="";文件读取成一个字符串
Local $filenameall=''
$filelist=_FileListToArray(@ScriptDir,"*.bdre" , 1)
If @Error=1 Then
MsgBox (0,@ScriptDir,"目录不存在.")
Exit
EndIf
If @Error=4 Then
MsgBox (0,@ScriptDir,@ScriptDir&" 目录下不存在扩展名为 bdre 的文件")
Exit
EndIf
;_ArrayDisplay($filelist,"默认排序方式");读取文件列表入数组
;循环读取各文件
If $filelist[0]>0 Then;数据文件路径和数据读取成功
For $j=1 To $filelist[0];
$Str= FileRead(FileOpen(@ScriptDir&"\"&$filelist[$j],0));文件读取成一个字符串
If $Str<>"" Then;判断文件是否读取成功
$strnum=StringInStr($Str,"bdhd://")
$filenameis=StringLeft($filelist[$j],StringLen($filelist[$j])-5)
$strextnum=StringInStr($Str,"|",0,2,$strnum)
$filename=StringMid($Str,$strnum,$strextnum-$strnum+1)&$filenameis
$filenameall=$filenameall&$filename&@CR&@LF
Else;判断文件是否读取成功
MsgBox(0,"读取文件出错",@ScriptDir&"\"&$filelist[$j])
EndIf;判断文件是否读取成功
Next;循环读取数据
$filenameall=StringLeft($filenameall,StringLen($filenameall)-2)
ClipPut($filenameall)
ToolTip($filenameall,1,1)
Sleep(3000)
ToolTip("")
Else
MsgBox(0,"错误","数据文件路径或数据读取错误")
EndIf

weeks5

看着不错。一会试试