@echo off&setlocal enabledelayedexpansion
for /f "usebackq delims=" %%i in ("viewthread[2].txt") do (
    set "str=%%~i"
    if not "!str:【=!" == "!str!" (
        set "str=!str:【=" "#!"
        set "str=!str:】=" "$!"
        for %%i in ("!str!") do (
            set "cut=%%~i"
            if "!cut:~0,1!"=="#" if !flag! equ 1 (
                set "s_new=!cut:~1!"
            ) else (
                set flag=1
                set "s_old=!cut:~1!"
                set "s_new=!cut:~1! "
            )
            for /f "delims=" %%S in ("!s_new!") do if "!s_old:%%S=#!"=="!s_old!" echo %%S&set "s_old=!s_new!"
        )
     )
)
pause>nul&goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
more>1.vbs +16 %0
wscript //nologo 1.vbs "http://bbs.tt365.net.cn/viewthread.php?tid=161145" 1.htm
(for /f "delims=" %%a in ('findstr /rc:"【.*】" 1.htm') do (
	set str=%%a【
	for /l %%b in (1 1 100) do (
		if "!str!" neq " " for /f "tokens=1* delims=】" %%c in ("!str:*【=!") do (
			if not defined .%%c (
				set .%%c=.
				echo %%c
			)
		)
	)
))>3.txt
pause&exit

iLocal=LCase(Wscript.Arguments(1)) 
iRemote=LCase(Wscript.Arguments(0)) 
Set xPost=createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",iRemote,0 
xPost.Send() 
set sGet=createObject("ADODB.Stream") 
sGet.Mode=3 
sGet.Type=1 
sGet.Open() 
sGet.Write xPost.ResponseBody 
sGet.SaveToFile iLocal,2
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")

downloader "http://bbs.tt365.net.cn/viewthread.php?tid=161145", "E:\test\aaa.htm"

Set oDOM = GetObject("E:\test\aaa.htm", "htmlfile")
Do Until oDOM.readyState="complete" : WScript.Sleep 200 : Loop 'complete
Set tags = oDOM.getElementsByTagName("td")
for each tag in tags
    if 1=InStr(tag.Id,"postmessage_") then
        'WScript.echo tag.innerText
        StrStrReg tag.innerText, "【([^【】]+)】"
    end if
next

Set ts = fso.OpenTextFile("result.txt", 2, true)
for each key in dict.Keys()
    'WScript.echo key
    ts.WriteLine key
next
ts.Close()

function downloader(url, file)
  dim XMLHTTP, AdoStrm
  Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
  XMLHTTP.Open "GET", url, false
  XMLHTTP.Send()
  set AdoStrm = CreateObject("ADODB.Stream")
  AdoStrm.Mode = 3
  AdoStrm.Type = 1
  AdoStrm.Open()
  AdoStrm.Write XMLHTTP.ResponseBody
  AdoStrm.SaveToFile file, 2
end function

function StrStrReg(srcStr, subStr)
  dim regEx, Matches, Match, ret
  set regEx = CreateObject("VBScript.RegExp")
  regEx.Pattern = subStr
  regEx.Global = true
  regEx.IgnoreCase = false
  set Matches = regEx.execute(srcStr)
  for each Match in Matches
    'ret = ret & Match.subMatches(0) & vbCrLf
    Catch Match.subMatches(0)
  next
  StrStrReg = ret
end function

function Catch(txt)
  for each key in dict.Keys()
    if InStr(key,txt) then exit function
  next
  dict.Add txt, 1
end function
复制代码

@echo off&setlocal enabledelayedexpansion
echo %time% 开始下载
more>1.vbs +22 %0
wscript //nologo 1.vbs "http://bbs.tt365.net.cn/viewthread.php?tid=161145" a.htm
echo %time% 下载完成
(for /f "delims=" %%a in ('findstr /rc:"【.*】" a.htm') do (
	set str=%%a【
	for /l %%b in (1 1 10) do (
		if "!str!" neq "" for /f "tokens=1* delims=】" %%c in ("!str:*【=!") do (
			if "!.%%c!"=="" (
				set tmp=%%c
				for %%e in (， 。 “ ” ； ： ？ ！) do set tmp=!tmp:%%e=","!
				for %%e in ("!tmp!") do set .%%~e=.
				set .%%c=.
				echo %%c
			)
			set str=%%d
		)
	)
))>a.txt
echo 处理完成 %time%
pause&exit

iLocal=LCase(Wscript.Arguments(1)) 
iRemote=LCase(Wscript.Arguments(0)) 
Set xPost=createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",iRemote,0 
xPost.Send() 
set sGet=createObject("ADODB.Stream") 
sGet.Mode=3 
sGet.Type=1 
sGet.Open() 
sGet.Write xPost.ResponseBody 
sGet.SaveToFile iLocal,2
复制代码

@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
复制代码

@echo off&setlocal enabledelayedexpansion
more +27 %~fs0>temp.vbs
temp.vbs&del /q temp.vbs&set /a n+=1
(for /f "delims=" %%a in ('findstr "【" a.txt') do (
    set "str=%%a"
    set "str=!str:【= !"&set "str=!str:】=$ !"
    for %%a in (!str!) do (
        set "a=%%a"&set "flag="&set "var=!a:~,-1!"
        if "!a:~-1!" equ "$" (
           for %%a in (!var!) do (
               if defined str!n! for /l %%b in (1,1,!n!) do if "!str%%b:%%a=!" neq "!str%%b!" set "flag=a"
               if not defined flag (
                  echo 【%%a】
                  for %%b in (!n!) do (
                      set "a=!str%%b! %%a"
                      if "!a:~8000!" equ "" (
                         set "str%%b=!a!"
                         ) else (
                         set /a n+=1&set "str!n!=%%a"
                      )
                  )
               )
            )
         )            
     )
))>$
move $ a.txt&start a.txt&goto :eof
Set http = createObject("Microsoft.XMLHTTP")
http.Open "get" , "http://bbs.tt365.net.cn/viewthread.php?tid=161145" , 0 
http.send()
Set myGet = createObject("ADODB.Stream")
myGet.Mode = 3
myGet.Type = 1
myGet.Open()
myGet.Write(http.responseBody)
myGet.SaveToFile "a.txt" , 2 
myGet.Close
Set myGet = Nothing
Set http = Nothing
复制代码