Ik gebruik onderstaand script (runs recurring elke 5 min..)
--------------------------------
Const SwVersion As String = "1.0"
Public Sub Main(ByVal Parms As Object)
'This script is used to force refresh of
'RFXCharts images by invoking the respective
'chart pages periodically - HSTouch then
'displays the up-to-date images with no further
'action needed.
Dim HourlyUtilityChartPage As String = "
http://1.2.3.4:88/RFXCharts/UtilityH.aspx"
Dim DailyUtilityChartPage As String = "
http://1.2.3.4:88/RFXCharts/UtilityD.aspx"
Dim HourlyWeatherChartPage As String = "
http://1.2.3.4:88/RFXCharts/WeatherHome.aspx"
Dim HourlyTopFloorChartPage As String = "
http://1.2.3.4:88/RFXCharts/Enviro1H.aspx"
Dim HourlyGroundFloorChartPage As String = "
http://1.2.3.4:88/RFXCharts/Enviro2H.aspx"
Dim HourlyBoilerRoomChartPage As String = "
http://1.2.3.4:88/RFXCharts/Enviro3H.aspx"
'*** Log to HomeSeer that script has started ***************************
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": started")
'Refresh Hourly Utility Chart Page
hs.URLAction(HourlyUtilityChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Utility Chart refreshed")
'Refresh Daily Utility Chart Page
hs.URLAction(DailyUtilityChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Daily Utility Chart refreshed")
'Refresh Hourly Weather Chart Page
hs.URLAction(HourlyWeatherChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Weather Chart refreshed")
'Refresh Hourly Top Floor Chart Page
hs.URLAction(HourlyTopFloorChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Whirlpool Chart refreshed")
'Refresh Hourly Ground Floor Chart Page
hs.URLAction(HourlyGroundFloorChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Binnen Chart refreshed")
'Refresh Hourly Boiler Room Chart Page
hs.URLAction(HourlyBoilerRoomChartPage, "GET", "", "")
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": 5 minute Buiten Chart refreshed")
'*** Log to HomeSeer that script has completed ***************************
hs.WriteLog("Info", "RFXCharts Image Refresh for HSTouch v" & SwVersion & ": completed")
End Sub