terse

等下试外部看怎么样

@echo off
(echo Set oDOM=WScript.GetObject("http://bbs.tt365.net.cn/viewthread.php?tid=161145"^)
echo Do Until oDOM.readyState="complete"
echo WScript.sleep 300
echo Loop
echo WScript.echo oDOM.documentElement.outerText)>%temp%\tem.vbs
setlocal enabledelayedexpansion
(
for /f "delims=" %%i in ('cscript //nologo "%temp%\tem.vbs"^|find "【"') do (
    set var=&set "str=%%i"
    set "str=!str:*【=【!"
    set "str=!str:【= 【!"
    set "str=!str:】=】 !"
    for %%j in (!str!) do (
        set "j=%%j"
        if "%%j" neq  "!j:【=!" (
           if defined var (
              for /f "delims=【】" %%k in ("%%j") do (
                      if "!var:%%k=!" equ "!var!" set var=!var! 【%%k】
              )
           )else set var=%%j
        )
    )
    for %%j in (!var!) do echo %%j
)
)>tem.txt
del %temp%\tem.vbs&start "" tem.txt
pause
复制代码