VBS读取网页或.HTML的文字内容

我给你做了一个通过新浪天气获取城市天气预报的工具,自己研究一下,以后就可以修改使用了

Function zhuanghuan(wen)
For i = 1 To LenB(wen)
text = AscB(MidB(wen,i,1))
If text < &H80 Then
body = body & Chr(text)
Else
file = AscB(MidB(wen,i+1,1))
body = body & Chr(CLng(text) * &H100 + CInt(file))
i = i + 1
End If
Next
zhuanghuan = body
End Function

Function sear(sss,pt0)
set regex = New RegExp
regex.Pattern = pt0
regex.IgnoreCase = True
regex.Global = True
set matches = regex.Execute(sss)
for each match in matches
RetStr = RetStr & match.value
next
sear = RetStr
End Function

function getwet(url)
set xml = Createobject("MSXML2.XMLHTTP")
xml.open "GET",url,false
xml.send()
s = zhuanghuan(xml.responsebody)
ss = sear(s,"(.+)(sent_to_vb.+转发至微博)(.+)")
str = split(split(ss,"(")(1),")")(0)
getwet = str
end function

on error resume next
a = inputbox("输入城市名","静飞 天气预报查询 - by xiaomingtt","青岛")
if a = false then wscript.quit
u = "http://php.weather.sina.com.cn/search.php?f=1&c=1&city=" & a & "&dpc=1"
msgbox getwet(u),64,"静飞 天气预报 - by xiaomingtt"

在asp里可以用VBScript来创建xmlhttp来做到,vbs下我做了一次,做不到.asp代码我就不发了.