Advertisement
ns09005264

Untitled

Feb 18th, 2019
292
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.26 KB | None | 0 0
  1. @ECHO off
  2. TITLE Youtube-DL。
  3.  
  4. :start
  5. CLS
  6. COLOR 8a
  7. ::使用COLOR命令对控制台输出颜色进行更改
  8. set tm1=%time:~0,2%
  9. set tm2=%time:~3,2%
  10. set tm3=%time:~6,2%
  11. ECHO %date% %tm1%点%tm2%分%tm3%秒
  12. ECHO =========================================
  13.  
  14. call :getProprty Clipboard link
  15.  
  16. set savePath="%user%Videos"
  17. ::savePath设置保存文件的地址
  18. cd %savePath%
  19.  
  20. set proxy="127.0.0.1:1080"
  21. ::在上一行设置代理端口
  22.  
  23. set cookie=" "
  24. ::在上一行设置cookie路径
  25.  
  26. set mtime="--no-mtime"
  27. ::Do not copy the mtime
  28.  
  29. set thumb="--write-thumbnail"
  30. ::Write thumbnail image to disk
  31.  
  32. ECHO 当前下载地址为: %link%
  33. ECHO 当前保存路径为: %savePath%
  34. ECHO 当前饼干路径为: %cookie%
  35. ECHO 请选择要进行的操作.
  36. ECHO ───────────────
  37. ECHO 1. 使用代理
  38. ECHO 2. 查看格式
  39. ECHO 3. 直接下载
  40. ECHO 4. 尝试不加载Cookie
  41. ECHO 5. 尝试you-get
  42. ECHO 6. 更新
  43. ECHO 0. 刷新下载地址
  44. ECHO ───────────────
  45. ECHO.
  46.  
  47. :cho
  48. CHOICE /C 12345670 /N /M 请选择:
  49.  
  50. IF %ERRORLEVEL% EQU 1 GOTO SetProxy
  51. IF %ERRORLEVEL% EQU 2 GOTO Itag
  52. IF %ERRORLEVEL% EQU 3 GOTO Download
  53. IF %ERRORLEVEL% EQU 4 GOTO cho2
  54. IF %ERRORLEVEL% EQU 5 GOTO youget
  55. IF %ERRORLEVEL% EQU 6 GOTO upgrade
  56. IF %ERRORLEVEL% EQU 7 GOTO Player
  57. IF %ERRORLEVEL% EQU 0 GOTO start
  58.  
  59. ECHO.
  60. GOTO start
  61.  
  62. :upgrade
  63. upgradeytdl
  64.  
  65. :youget
  66. youget
  67.  
  68. :Player
  69. CLS
  70. ECHO
  71. youtube-dl --cookies %cookie% -o - "%link%" | vlc -
  72. ECHO.
  73. GOTO start
  74.  
  75.  
  76. :PlayerP
  77. CLS
  78. ECHO
  79. youtube-dl --cookies %cookie% --proxy %proxy% -o - "%link%" | vlc -
  80. ECHO.
  81. GOTO start
  82.  
  83. :SetProxy
  84. CLS
  85. ECHO.
  86. ECHO ───────────────
  87. ECHO 1.选择格式后下载
  88. ECHO 2.直接下载youtube1080p
  89. ECHO 3.直接下载youtube音频
  90. ECHO 4.直接下载
  91. ECHO 0.返回主菜单
  92. ECHO ───────────────
  93. ECHO.
  94. CHOICE /C 123450 /N /M 请选择:
  95.  
  96. IF %ERRORLEVEL% EQU 1 GOTO ItagProxy
  97. IF %ERRORLEVEL% EQU 2 GOTO Download1080p
  98. IF %ERRORLEVEL% EQU 3 GOTO DownloadMusic
  99. IF %ERRORLEVEL% EQU 4 GOTO DownloadProxy
  100. IF %ERRORLEVEL% EQU 5 GOTO PlayerP
  101. IF %ERRORLEVEL% EQU 0 GOTO start
  102.  
  103. GOTO start
  104.  
  105. :Itag
  106. CLS
  107. ECHO.
  108. youtube-dl -F "%link%"
  109. ECHO.
  110. SET ItagX=
  111. SET /P ItagX=选择:
  112. youtube-dl --cookies %cookie% -f %ItagX% %mtime% %thumb% "%link%"
  113. ECHO 任意键返回菜单
  114. pause>nul
  115. GOTO start
  116.  
  117. :ItagProxy
  118. CLS
  119. ECHO.
  120. youtube-dl --proxy %proxy% --cookies %cookie% -F "%link%"
  121. ECHO.
  122. SET ItagX=
  123. SET /P ItagX=选择:
  124. youtube-dl --proxy %proxy% --cookies %cookie% -f %ItagX% %mtime% %thumb% "%link%"
  125. ECHO 任意键返回菜单
  126. pause>nul
  127. GOTO start
  128.  
  129. :Download
  130. CLS
  131. ECHO.
  132. youtube-dl --cookies %cookie% %mtime% %thumb% "%link%"
  133. ECHO 任意键返回菜单
  134. pause>nul
  135. GOTO start
  136.  
  137. :DownloadProxy
  138. CLS
  139. ECHO.
  140. youtube-dl --proxy %proxy% --cookies %cookie% %mtime% %thumb% "%link%"
  141. ECHO 任意键返回菜单
  142. pause>nul
  143. GOTO start
  144.  
  145. :Download1080p
  146. CLS
  147. ECHO.
  148. youtube-dl --proxy %proxy% --cookies %cookie% -f 137+140 %mtime% %thumb% "%link%"
  149. ECHO 任意键返回菜单
  150. pause>nul
  151. GOTO start
  152.  
  153. :DownloadMusic
  154. CLS
  155. ECHO.
  156. youtube-dl --proxy %proxy% --cookies %cookie% -f 251 %mtime% %thumb% "%link%"
  157. ECHO 任意键返回菜单
  158. pause>nul
  159. GOTO start
  160.  
  161. :cho2
  162. CLS
  163. ECHO.
  164. ECHO ───────────────
  165. ECHO 1. 使用代理
  166. ECHO 2. 选择格式
  167. ECHO 3. 直接下载
  168. ECHO 0. 刷新下载地址
  169. ECHO ───────────────
  170. ECHO.
  171. CHOICE /C 1230 /N /M 请选择:
  172.  
  173. IF %ERRORLEVEL% EQU 1 GOTO SetProxy2
  174. IF %ERRORLEVEL% EQU 2 GOTO Itag2
  175. IF %ERRORLEVEL% EQU 3 GOTO Download
  176. IF %ERRORLEVEL% EQU 0 GOTO start
  177.  
  178. ECHO.
  179. GOTO cho2
  180.  
  181. :SetProxy2
  182. CLS
  183. ECHO.
  184. ECHO ───────────────
  185. ECHO 1.选择格式后下载
  186. ECHO 2.直接下载youtube1080p
  187. ECHO 3.直接下载
  188. ECHO 0.返回主菜单
  189. ECHO ───────────────
  190. ECHO.
  191. CHOICE /C 1230 /N /M 请选择:
  192.  
  193. IF %ERRORLEVEL% EQU 1 GOTO ItagProxy2
  194. IF %ERRORLEVEL% EQU 2 GOTO Download1080p2
  195. IF %ERRORLEVEL% EQU 3 GOTO DownloadProxy2
  196. IF %ERRORLEVEL% EQU 0 GOTO start
  197.  
  198. GOTO SetProxy2
  199.  
  200. :Itag2
  201. CLS
  202. ECHO.
  203. youtube-dl -F "%link%"
  204. ECHO.
  205. SET ItagX=
  206. SET /P ItagX=选择:
  207. youtube-dl -f %ItagX% "%link%"
  208. ECHO 任意键返回菜单
  209. pause>nul
  210. GOTO start
  211.  
  212. :ItagProxy2
  213. CLS
  214. ECHO.
  215. youtube-dl --proxy %proxy% -F "%link%"
  216. ECHO.
  217. SET ItagX=
  218. SET /P ItagX=选择:
  219. youtube-dl --proxy %proxy% -f %ItagX% %mtime% %thumb% "%link%"
  220. ECHO 任意键返回菜单
  221. pause>nul
  222. GOTO start
  223.  
  224. :Download2
  225. CLS
  226. ECHO.
  227. youtube-dl %mtime% %thumb% "%link%"
  228. ECHO 任意键返回菜单
  229. pause>nul
  230. GOTO start
  231.  
  232. :DownloadProxy2
  233. CLS
  234. ECHO.
  235. youtube-dl --proxy %proxy% %mtime% %thumb% "%link%"
  236. ECHO 任意键返回菜单
  237. pause>nul
  238. GOTO start
  239.  
  240. :Download1080p2
  241. CLS
  242. ECHO.
  243. youtube-dl --proxy %proxy% -f 137+140 %mtime% %thumb% "%link%"
  244. ECHO 任意键返回菜单
  245. pause>nul
  246. GOTO start
  247.  
  248.  
  249. :getProprty
  250. set "_~_=%temp%\Spring"
  251. set "_$_=WScript.Echo .parentWindow."
  252. > "%_~_%" echo v = WScript.Arguments(0)
  253. >>"%_~_%" echo With CreateObject^("htmlfile"^)
  254. >>"%_~_%" echo If v = "Clipboard" Then %_$_%clipboardData.GetData^("text"^)
  255. >>"%_~_%" echo End With
  256. for /f "delims=" %%z in ('cscript -nologo -e:vbs "%_~_%" "%1"') do (
  257. if /i "%2"=="" (
  258. echo %%z
  259. ) else (
  260. set "%2=%%z"
  261. )
  262. )
  263. del "%_~_%" /q
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement