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