batman

22# zm900612
效率我不评论，提取的文字少了n行。。。

CrLf

这个vbs部分是照搬别人的...

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

asnahu

楼上的同学走得太绕了

caruko

如果似乎给定的网站，那么TITIE，缓存文件都是固定的。
就可以直接就找到了。

batman

18# caruko
是不是想得太复杂了。。。

caruko

试过用IE打开网站，读缓存，但是几个问题很麻烦。
主要问题是IE打开的速度有快有慢，很难知道IE有没有将网页完全下载，除非设置较长的延时，或者等待端口time out（也很久）。

找到对应的缓存文件的方法如下:
1， ping 得到IP。
2，REG方式得到缓存主目录。
3，start web
4，在缓存主目录里，dir /s /b /ad /od /tw 得到最近访问时间的缓存文件夹。
5，netstat -o |findstr "IP"得到“PID”，然后tasklist 取得IE窗口“TITLE”。
6，进入缓存文件夹，findstr /i "<title>.*%Title%" *，查找缓存文件。

还是用NC,WGET要容易的多。

caruko

16# batman


如果不追求节省资源+效率，可以一边写入文件，然后下一句开始findstr文本。

batman

15# powerbat
本题最难点在于去除局部重复内容，以我对vbs的了解，它表示压力很大。。。

powerbat

应该放在VBS出题区比较好吧？
而且也没有什么挑战性，会VBS且会xmlhttp、adodb.stream、DOM等常见“第三方”对象的使用，本题迎刃而解，关键是要知道那几个对象。

其实我想问这个问题：如何用vbs从图片中读出验证码（如果有人研究出来了，肯定不能随便公开^@^）

batman

12# caruko
最好能将所有代码写出来，大家本来就是为了交流嘛。。。

ps:去重有点麻烦哦。。。

qzwqzw

明确一下第三方的概念
就是初始安装的操作系统中未包含的程序或者数据
不要刻意扩大或者缩小
那对解题没有任何助力

如果有必要
可以使用ASCODE技术将任何程序或数据编码
存储到批处理自身中
运行时再进行解码后调用

对于start 网页的形式
可能打开非IE内核的浏览器
这将影响缓存的确定
不建议使用

caruko

发一个取【】内容的代码吧，鉴于【】都在一行，所以没有多做分析。
但就算【】内容分做2行，IF里面加一句判断 !cut:~-1!==$ 就可以了。

抓取网页内容，前面已说了方法，第三方的话更简单，就不写了。
去掉了多余的CALL。

去重只是简单的当前这句跟上一句对比，如果包含在上一句内，就不输出，并且下一句对比时忽略这一句，跟上上句对比。

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

CrLf

10# Batcher


啊！太口怕了，版主竟然吃人...

Batcher

ping、netstat之类的也不是built-in啊
楼主出题的本意不是让大家扣字眼到底哪些是第三方
他不让用wget/curl，你就偏偏用，他还能吃了你？
无非是让大家练练手而已

caruko

还有一种方法
1, ping bbs.tt365.net.cn 取得目标IP
2, start 网页
3, 取得缓存
4, 根据netstat -o 对比IP 获取 IE的PID，然后taskkill。