VBScript獲得天氣預報的函數

ID:127496 · 發表于 2016-6-20 23:13

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()
’返回值就是天氣預報

帳號		自動登錄	找回密碼
密碼			立即注冊

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

VBScript獲得天氣預報的函數