zaqmlp

/*&cls
@echo off
title 代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通
cd /d "%~dp0"
cscript -nologo -e:jscript "%~f0" 30
pause&exit /b
*/

var fso=new ActiveXObject('Scripting.FileSystemObject');
var http=new ActiveXObject('MSXML2.XMLHTTP');
var today=new Date();
var result='', n=WSH.Arguments(0);

for(var i=0;i<Number(n);i++){
    var day=new Date(today-86400000*i);
    var tmpday=day.getFullYear()+"-"+(day.getMonth()+1)+"-"+day.getDate();
    var daily=getinfo(gettext(tmpday));
    result+=daily+'\r\n\r\n';
}

//WSH.echo(result);
var f=fso.CreateTextFile('dailysentence.txt', 2, true);
f.Write(result);
f.Close();
WSH.Quit();


function gettext(d){
    var url='http://open.iciba.com/dsapi/?date='+d;
    var text='';
    http.open('Get', url, false)
    http.send();
    text=http.responseText;
    return text;
}

function getinfo(s){
    var json=eval('('+s+')');
    var content=json['content'];
    var note=json['note'];
    var translation=json['translation'];
    var dateline=json['dateline'];
    return content+'\r\n'+note+'\r\n'+translation;
}
复制代码

zaqmlp

回复 6# kaze
没赞助没动力