[已解决]vbs怎么读取网页指定内容

522235677 · 发表于 2013-9-1 21:20:31

本帖最后由 522235677 于 2013-9-29 09:18 编辑

最好是不要生成临时文件。
比如读取http://www.ip138.com/ips138.asp?ip=www.baidu.com&action=2
绿色的文字

wcymiss · 发表于 2013-9-27 14:56:09

Dim strText
with CreateObject("MSXml2.xmlhttp")
.Open "GET","http://www.ip138.com/ips138.asp?ip=www.baidu.com&action=2",false
.Send
strText = ByteToStr(.Responsebody)
end with
strText = Split(Split(strText,"<td align=""center""><ul class=""ul1""><li>")(1),"</li></ul></td>")(0)
strText = Replace(strText,"</li><li>",vbCr)
MsgBox strText
WScript.Quit
Function ByteToStr(ByVal arrByte)
With CreateObject("Adodb.Stream")
.Type = 1 'adTypeBinary
.Open
.Write arrByte
.Position = 0
.Type = 2 'adTypeText
.Charset = "GB2312"
ByteToStr = .Readtext
.Close
End With
End Function

复制代码

522235677 · 发表于 2013-9-27 16:07:51

本帖最后由 522235677 于 2013-9-27 16:17 编辑

回复 2# wcymiss

感谢，但是这个我想把这个数据显示在CMD中。那个MsgBox strText改为WScript.echo strText

复制代码

但是只能显示第一行，不能显示第二行

复制代码

wcymiss · 发表于 2013-9-28 23:11:36

strText = Replace(strText,"</li><li>",vbCr)
改成
strText = Replace(strText,"</li><li>",vbtab)

522235677 · 发表于 2013-9-29 09:17:54

回复 4# wcymiss

333333333333333333333qqqqqqqqqqqqqqqqqqqqqqqqqqqq

		自动登录	找回密码
密码			注册

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

[问题求助] [已解决]vbs怎么读取网页指定内容