Below is a .vb script that I wrote earlier this year:[codebox]' This vb.net script will go to www.weather.com and retreive the current humidity and wind chill factor/heat index.
' This script is based on the Homeseer script entitled "Accuweather humidity and wind chill.vb"
' Written on 3/4/2010 by Steve Q
' Updated 7/15/2010 to make it work with updates on the Weather Channel Page
Imports system.io
Imports Microsoft.VisualBasic.Compatibility.VB6
Sub Main(ByVal Parm As Object)
dim weather,wspeed,humid,pos1,pos2,pos3,realfeel,s,t as string
dim i as integer
On error resume next
'------------Get weather.com Wind,Humidity, and wind chill data------------
weather = hs.GetURL("http://www.weather.com","/weather/today/South Bend+IN+46628?lswe=46628&from=searchbox_localwx",TRUE,80)
hs.waitsecs (10)
if instr(weather,"could not be resolved") then
wspeed="not available"
humid="not available"
realfeel="not available"
else
pos1=instr(weather,"Right Now")
weather=mid(weather,pos1,len(weather))
pos3=instr(1,weather,"Feels Like:")+11
realfeel=Mid(weather,pos3,6)
do
i = instr(1,realfeel,vbcrlf)
if i = 0 then exit do
realfeel = replace(realfeel,vbcrlf," ")
loop
do
i = instr(1,realfeel,vbtab)
if i = 0 then exit do
realfeel = replace(realfeel,vbtab," ")
loop
realfeel=Trim(realfeel)
pos1=instr(weather,"Wind:")+10
weather=mid(weather,pos1,len(weather))
pos2=instr(weather,"Wind:")+10
wspeed=Mid(weather,pos2,100)
do
i = instr(1,wspeed,vblf)
if i = 0 then exit do
wspeed = replace(wspeed,vblf,"")
loop
do
i = instr(1,wspeed,vbtab)
if i = 0 then exit do
wspeed = replace(wspeed,vbtab," ")
loop
wspeed=Trim(wspeed)
pos2=instr(1,weather,"Humidity:")+9
humid=Mid(weather,pos2,5)
do
i = instr(1,humid,vblf)
if i = 0 then exit do
humid = replace(humid,vblf,"")
loop
do
i = instr(1,humid,vbtab)
if i = 0 then exit do
humid = replace(humid,vbtab,"")
loop
end if
hs.SetDeviceString ("z1", humid, True)
hs.SetDeviceString ("z2", wspeed, True)
hs.SetDeviceString ("z3", realfeel, True)
' hs.SetDeviceString "z4","none", True
' if humid <0 OR Humid >100 then Humid="NA"
if realfeel <70 then s="Wind Chill Factor: "
if realfeel >69 then s="Heat Index: "
hs.writelog ("Weather Channel", "Humidity: "&(humid)&"| Wind: "&(wspeed)&"| "&(s)&(realfeel))
End Sub
[/codebox]
You will have to modify the script to make it find what you are looking for.
Steve Q
