<!-- :
@echo off
echo 取金山词霸每日一句数据
pause 
set www=
set /p www=输入 "天数" 
echo %www%
echo;%www%|mshta "%~f0"
exit /b
-->

<script>
var fso = new ActiveXObject("Scripting.FileSystemObject");
var StdIn = fso.GetStandardStream(0);
var StdOut = fso.GetStandardStream(1);
var url=StdIn.ReadLine();

function Get(N) {var X = new ActiveXObject("Msxml2.XMLHTTP");
X.open("GET", N, false);
X.send("");
return X.responseText;
}

var s1='1';
var d={};
for (var i = 0; i < 10; i++) {
date = new Date();
yd = +date - 86400000*i;
d = new Date(yd);
var yd= d.getFullYear()+"-"+(d.getMonth()+1)+"-"+d.getDate();
url = "http://open.iciba.com/dsapi/?date="+yd;
ds = Get(url);
if (ds){
//var obj = JSON.parse(ds);
//var MottoEN=obj.content;


var d[i]=ds;
var data=d[i]+"\n";
}
}

fso.CreateTextFile('X:\ciba.txt',2,true).Write(data);
close();
</script>
复制代码

/*&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;
}
复制代码

rem On Error Resume Next

Dim http, html, strOut, i, dt, ymd, url
Set http = CreateObject("Msxml2.XMLHTTP")
Set html = CreateObject("htmlfile")
strOut = ""

For i = 0 To 9
    dt  = DateAdd("d", -i, date)
    ymd = Year(dt) & "-" & Right(Month(dt) + 100, 2) & "-" & Right(Day(dt) + 100, 2)
    url = "http://open.iciba.com/dsapi/?date=" & ymd
    http.open "GET", url, False
    http.send
    strOut = GetJSON(http.responseText) & vbCrLf & vbCrLf & strOut
Next

Function GetJSON(txt)
    Dim window, json
    Set window = html.parentWindow
    window.execScript "var json = " & txt, "JScript"
    Set json = window.json
    GetJSON = json.content & vbCrLf & json.note & vbCrLf
    GetJSON = GetJSON & json.translation & vbCrLf & json.dateline
End Function

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("ciba.Log", 2, True).Write(strOut)

MsgBox "Done"
复制代码

-9..0 | ForEach{$url = 'http://open.iciba.com/dsapi/?date=' + (get-Date).AddDays($_).ToString('yyyy-MM-dd'); (Invoke-WebRequest $url).Content | ConvertFrom-Json | ForEach{$_.content; $_.note; $_.translation; $_.dateline}}
复制代码

@if(0)==(0) echo off
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~f0" 30') do set "_%%i"
set /p www=输入u打开网址
if /i "%www%" == "u" start "" "%_b%"
pause & exit /b
@end

var num = WSH.Arguments(0);
var url_list = 'www.bathome.net';
var list = 'MyList';
WSH.Echo('a=' + num + '\nb=' + url_list + '\nc=' + list);
复制代码