找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 30680|回复: 5

批处理如何打开网页并获取内容?

[复制链接]
发表于 2012-8-4 13:53:55 | 显示全部楼层 |阅读模式
wget -i url.txt
ren *.* *.html
htox32c /IP *.html
在坛里看到同样的问题的答案,但这个代码好像不对,运行后就将当前路径下的全部文件的后缀修改了。哎,希望帮帮忙,我要打开的网址网页里的内容很少(只有一行纯文本内容,且无图片以及无其他乱七八糟的链接),想将网页里面的内容获取到文本里,不知道如何实现?最好不要下载*.html之类的临时文件和第三方程序,直接获取并输出即可。
发表于 2012-8-4 15:20:56 | 显示全部楼层
以前在一个批处理群共享里面看到一个命令,就是利用iexplore.exe来获取网页源码的,
好像是iexplore 0,0,0,0 地址 ,反正有好多个0
当时忘了保存,一行命令直接就可以获取网页源码了。

现在有个VBS源码,打开后直接就保存

url="http://huaian.w011.35in.com/2345/bat.htm"
Set html = CreateObject("microsoft.xmlhttp")
html.open "GET",url,False
html.send
txt = GB2312(html.responseBody)

'写入文本
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.OpenTextFile("htm.bat",2,True)
file.WriteLine txt
file.Close

function GB2312(val0)
       dim i,op,t,t1
       op = ""
       for i = 1 to lenB(val0)
           t = AscB(MidB(val0,i,1))
           if t < &H80 Then
               op = op & chr(t)
           else
               t1 = ascB(midB(val0,i+1,1))
               op = op & chr(clng(t) * &H100 + cint(t1))
               i = i + 1
           end If
       next
       GB2312 = op
end Function
发表于 2012-8-4 15:22:13 | 显示全部楼层
真后悔没有把那个命令给记下来,现在怎么都找不到这个命令了,不知道是怎么写的了。那个是最简单了的。
等待高手。
 楼主| 发表于 2012-8-4 15:33:38 | 显示全部楼层
curl -o page.html "http://weibo.com/signup/signup.php?ps=u3&lang=zh"
for /f tokens^=6^ delims^=^" %%i in ('findstr /c:"input name=\"fromip\"" page.html') do echo,%%i
没办法的情况下,刚看到这么段代码,不知道如果修改下实现获取网页内容到txt文本里,
另外请高手解释下这段代码的含义
 楼主| 发表于 2012-8-4 16:02:23 | 显示全部楼层
回复 2# 522235677
你这弄下来的中文都是乱码啊
 楼主| 发表于 2012-8-4 16:15:01 | 显示全部楼层
如果没好的方法的话,利用第三方命令行工具也行,在线等.............
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 11:16 , Processed in 0.014726 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表