等下试外部看怎么样- @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
复制代码
|