wh1234567

6# Batcher


Batcher 管理员您好，很感谢您的回答，这个批处理不能在线获取到网址所对应的网页标题啊，是不是哪里需要修改？

Batcher

@echo off
more +8 "%~f0" >GetUrlText.vbs
(for /f %%a in (a.txt) do (
    echo,%%a
    cscript //nologo GetUrlText.vbs %%a | findstr "<title>.*</title>"
))>b.txt
goto :eof

strURL=WScript.Arguments(0)
WScript.Echo strURL
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET",strURL,0
objXmlHttp.Send()
Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 1
objStream.Open()
objStream.Write(objXmlHttp.responsebody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gbk"
strText = objStream.Readtext
WScript.Echo strText
复制代码

a.txt的内容如下：

http://bbs.bathome.net
http://bbs.chinaunix.net
复制代码

Batcher

4# wh1234567


能否把这些背景描述更新到顶楼？

wh1234567

就是有好多个网址，为了日后忘记每个网站到底是关于啥类型的网站，所以用此方法将他的网页标题自动附加到对应的网址后面，这样日后只要看一下标题就知道哪个是我目前想访问的网站了，

hanyeguxing

楼主，请以具体示例说明意图。。。

namejm

论坛严禁发表“如题”内容的帖子
请认真阅读总版规。