博文
自动下载喜马拉雅音频文件
|
2018-04-21 07:15:53
喜马拉雅网站上有一些有价值的音频可以下载, 但手动下载的话很是麻烦, 所以就看了一下能不能自动下载. 鉴于每个音频的网址好像是随机生成的, 所以没有办法完全自动下载, 只得利用autohotkey模拟手动下载, 速度慢点, 但还可用.
| ahk | |
|---|---|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | txt =(
http://www.ximalaya.com/18203677/sound/7360644/ 小熊绘本_你好
http://www.ximalaya.com/18203677/sound/7383760/ 小熊绘本_拉粑粑
http://www.ximalaya.com/18203677/sound/7395870/ 小熊绘本_午饭
http://www.ximalaya.com/18203677/sound/7409389/ 小熊绘本_睡觉
http://www.ximalaya.com/18203677/sound/7410100/ 小熊绘本_大声回答“哎”
http://www.ximalaya.com/18203677/sound/7425397/ 小熊绘本_尿床了
http://www.ximalaya.com/18203677/sound/7452781/ 小熊宝宝_洗澡
http://www.ximalaya.com/18203677/sound/7468120/ 小熊宝宝_刷牙
http://www.ximalaya.com/18203677/sound/7495652/ 小熊宝宝_我会穿短裤啦
http://www.ximalaya.com/18203677/sound/7578510/ 小熊宝宝_收起来
http://www.ximalaya.com/18203677/sound/7617944/ 小熊绘本_排好队一个接一个
http://www.ximalaya.com/18203677/sound/7636260/ 小熊宝宝_谁哭了
http://www.ximalaya.com/18203677/sound/7651700/ 小熊宝宝_散步
http://www.ximalaya.com/18203677/sound/7672587/ 小熊绘本_好朋友
http://www.ximalaya.com/18203677/sound/7695533/ 小熊宝宝_过生日
)
txt := StrReplace(txt, "`n", " ")
txt := StrSplit(trim(txt), "` ")
Ndat := txt.MaxIndex()/2Loop, %Ndat%{ clipboard := ""
url := txt[2*A_Index-1]
tit := txt[2*A_index] runwait, %url%
sleep, 1000
Send, {F12} sleep, 5000
MouseClick, left, 42, 593
sleep, 3000
MouseClick, right, 769, 293
Sleep, 500
send, c sleep, 500
send, c sleep, 500
send, c sleep, 500
send, {right}{enter} sleep, 100
FileAppend, curl %clipboard% > %tit%.m4a `n, aut.bsh
} |
◆本文地址: https://jerkwin.github.io/2018/04/21/自动下载喜马拉雅音频文件/, 转载请注明◆
◆评论问题: https://jerkwin.herokuapp.com/category/3/博客, 欢迎留言◆
https://blog.sciencenet.cn/blog-548663-1110177.html
上一篇：Amber教程：涉及非标准残基的模拟
下一篇：GROMACS自由能计算中软核势的使用
