[文本处理] [已解决]批处理如何遍历网页文件夹ID并输出至文本？

var http=new ActiveXObject("msxml2.xmlhttp");
http.Open("GET","https://189.ly93.cc/api.php?c=list&shareCode=3UBZ3ei6NJJz&accessCode=?",False)
http.Send()
var result=eval(http.ResponseText)
复制代码

WScript.Echo(result.data[0].fileId)
复制代码

set dom=createobject("htmlfile")
set http=createobject("msxml2.xmlhttp")
http.open "GET","https://189.ly93.cc/api.php?c=list&shareCode=3UBZ3ei6NJJz&accessCode=?",false
http.send()
dom.parentwindow.execscript("var j="&http.responsetext)
set json=dom.parentwindow.j
复制代码

@echo off
if "%~1"=="" (
    set "url=https://189.ly93.cc/api.php?c=list&limit=10&shareCode=3UBZ3ei6NJJz&accessCode=?") else (
    set "url=%~1"
)
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('powershell "(irm '%url%').path | %% {'{0}' -f $_.fileName}"') do (
    timeout /t 1 /nobreak
    for /f "eol=0 delims=| tokens=1-3" %%b in ('powershell "(irm '%url%').data | %% {'{0}|{1}|{2}|{3}' -f $_.fileSize,$_.fileId,$_.fileName,$_.isFolder}"') do (
        if "%%e"=="true" (
        set "url=%url%&fileId=%%c"
        call "%~0" "!url!"
        ) else (
        curl
        )
    timeout /t 1 /nobreak
    )
)
pause
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$global:a='https://189.ly93.cc/api.php?c=list&shareCode=3UBZ3ei6NJJz&accessCode=?'
$global:b='https://189.ly93.cc/3UBZ3ei6NJJz/{0}?accessCode=?'
function test($id){
    irm ($global:a+'&fileId='+$id)|%{
	$path=($_.path|%{$_.fileName}) -join '\'
        md $path
	$_.data|%{
	    if($_.isFolder){test($_.fileId)}else{
		curl --ssl-no-revoke -Lo ($path+'\'+$_.fileName) ($global:b -f $_.fileId)
	    }
	}
    }
}
test
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$global:a='https://189.ly93.cc/api.php?c=list&shareCode=VVFnmuRviQRj&accessCode=?'
$global:b='https://189.ly93.cc/VVFnmuRviQRj/{0}?accessCode=?'
function test($id){
    irm ($global:a+'&fileId='+$id)|%{
	$_.data|%{
	    if($_.isFolder){$_.fileId;test($_.fileId)}
	}
    }
}
test|sc test.txt
复制代码