自动下载喜马拉雅音频文件

类别:    标签: ahk   阅读次数:   版权: (CC) BY-NC-SA

喜马拉雅网站上有一些有价值的音频可以下载, 但手动下载的话很是麻烦, 所以就看了一下能不能自动下载. 鉴于每个音频的网址好像是随机生成的, 所以没有办法完全自动下载, 只得利用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()/2

Loop, %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.herokuapp.com/category/3/博客, 欢迎留言◆


前一篇: Amber教程:涉及非标准残基的模拟
后一篇: GROMACS自由能计算中软核势的使用

访问人次(2015年7月 9日起): | 最后更新: 2018-09-16 13:22:42 UTC | 版权所有 © 2008 - 2018 Jerkwin