VBScript获得天气预报的函数 -

标题: VBScript获得天气预报的函数 [打印本页]

作者: 51hei丽人 时间: 2016-6-20 23:13
标题: VBScript获得天气预报的函数
Set xmlh = CreateObject("msxml2.xmlhttp") ‘需要声明的对象
Function Weather()
xmlh.open "GET","http://www.baidu.com/s?wd=%CC%EC%C6%F8&f=12&rsp=0&oq=tianqi&tn=baiduhome_pg",False
xmlh.send
html = xmlh.responseText
str_temp = "</a></div>"
a = InStr(html,str_temp) + Len(str_temp)
b = InStr(a,html," ")
c = b + Len(" ")
d = InStr(c,html," ")
Today_Temp = Mid(html,a,b - a)
Today_Weather = Mid(html,c,d - c)
Today_Wind = Mid(html,d + Len(" "),InStr(d,html,"</td>") - (d + Len(" ")))
a = InStr(d,html,"</a></div>") + Len("</a></div>")
b = InStr(a,html," ")
c = InStr(b + 4,html," ")
Tomorrow_Weather = Mid(html,b + 4,c - b - 4)
Tomorrow_Temp = Mid(html,a,b - a)
Tomorrow_Wind = Mid(html,c + Len(" "),InStr(c,html,"</td>") - (c + Len(" ")))
a = InStr(c,html,"</a></div>") + Len("</a></div>")
b = InStr(a,html," ")
c = InStr(b + 4,html," ")
the_weather = Mid(html,b + 4,c - b - 4)
the_Temp = Mid(html,a,b - a)
The_Wind = Mid(html,c + Len(" "),InStr(c,html,"</td>") - (c + Len(" ")))
Line1 = "近日天气预报"
Line2 = "今日" & today_temp & "," & today_weather & "," & today_wind
Line3 = "明日" & tomorrow_temp & "," & tomorrow_weather & "," & tomorrow_wind
Line4 = "后天" & the_temp & "," & the_weather & "," & the_wind
Weather = line1 & vbCrLf & line2 & vbCrLf & line3 & vbCrLf & line4
End Function

Msgbox Weather()
’返回值就是天气预报

欢迎光临 (http://www.51hei.com/bbs/)