[]
վ=skydrive
վַ=http://office.live.com/
=
=UTF-8
С˵Ϣ=<title>(#)\.\w+ - Windows Live</title>
½ڵַʶ=http://mozhuaskydrive$$$$$office.live\.com\/self\.aspx/.*?\.txt
ȡбִнű=
бʼ=dvContainer">
б=<div class="c_right_area">
б=dvNameColumn"><a href="([^"]*?\.txt)" id="dvName_\d+_\d+" class="dvName" title="([^"]*?)"[^>]*?>([^<]*?)</a>$$$$$0|2|1
滻=(reg)GMT.*?([\.\d]+\s\w+)"$$$$$($1)"
ҳַ={1,</b><a href="([^"]*?)">}
sort=0
{script}
#language pascal
var noreplace:boolean;
//ʼʼ
function MYBeforeBookInit:boolean;
begin
	result := true;
	if pos('live.com', lowercase(_DATA.url))>0 then 
	begin
		noreplace := true;
		exit;
	end;
	_DATA.url := replace(_DATA.url, 'http://mozhuaskydrive', '');
	_DATA.url := regreplace(_DATA.url, '/$', '');
	_DATA.url := base64tostr(_DATA.url);
end;

//ʼ
procedure MYAfterBookInit;
begin
	if not noreplace then
	begin
		_DATA.url := 'http://mozhuaskydrive'+STRTOBASE64(_DATA.url);
	end;
end;

function MyStartDownNew(var content:string;var nosave:boolean):boolean;
var
	html	: string;
	url	: string;
	Matchs	: variant;
begin
	result	:= true;
	nosave	:= true;
	html	:= Down(_nowsource.url);
	if html<>'' then
	begin
		index   := strtoint(match(html, 'currentItemIndex: (*),'));
		urls	:= split('downloadUrl: ''', html);
		url	:= copy(urls[index+1], 0, pos('''', urls[index+1])-1);
		if (url='')then
		begin
			echo(':'+_Data.name+'ʧܣԣϵԱ:www.mozhua.net');
			stop;
		end;
		url	:= urldecode(replace(url, '\x', '%'));
		LG('ļ...');//+url);
		if length(Down(url, '', 'GET', '', _data.savedir+NOSPECIALCHARS(_Data.name)+'.txt'))<5 then
		begin
			echo(':'+_Data.name+'ļСʧܣ볢񣬷ϵԱ:www.mozhua.net');
			stop;
		end;
	end
	else begin
		LG('ʧܣҲĿļַ');
		stop;
	end;
end;

begin
	noreplace:= false;
end.
{/script}
