Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

' AZ_Poollicht.vb
' Version : 1.4
' By A.A. van Zoelen
'
'Usage:
'
'AZ_Poollicht("Main","<DeviceCode>")
'Example : 'AZ_NS_storingen("Main","W37")
'
'
' Remark : Search text is not case sensitive
'
' History
' v1.4
' 06-12-2013
' Message layout on website had changed
'
' v1.3
' 18-10-2012
' Message layout on website had changed
'
' v1.2
' 26-04-2012
' Some tags where adjusted on the webside.
' Added debugging
'
' v1.1
' 09-03-2012
' Trapped when the site is under heavy load
' Few cosmetic adjustments related to above.
'
' v1.0
' 13-02-2012 : First release

'===================================================================

Imports System.Net
Imports System.IO


Public Sub Main(ByVal Params As Object)

  '*********************************************
  ' These variable must be set first
  '*********************************************
  Dim Debug as boolean
  Debug = false

  '*********************************************
  ' The next few variables might be alter if needed
  ' Use these values to create new device(s)
  ' If you also use the traffic jam script then
  ' this is a good moment to name then the same.
  Dim strDeviceRoom As String = "Poollicht - Monitoring" 
  Dim strDeviceType As String = "Poollicht Monitoring"
  Dim strDeviceFloor As String = "Systeem"
  Dim URL = "http://www.poollicht.be/nl"


'************************************************
'************************************************
'Below this there is no real need for altering anything

   '********************************
   'Get the device code
   '********************************
   Dim strDevice As String = hs.StringItem(Params, 1, ";") 
   Dim strHouseCode As String = GetChar(strDevice,1) 
   Dim strDeviceCode As String = strDevice.subString(1) 
   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "1")

   '********************************
   'First do some checks
   'Is the device and house code oke
   '********************************
   If not ((Val(strDeviceCode)>=1) And (Val(strDeviceCode)<=128)) Then
           hs.WriteLog("<b>AZ_Poollicht_Info</b>", "<b>Ongeldige DeviceCode!</b>")
           Exit Sub
   End If

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "2")

   If not (strHouseCode <> "") Then
           hs.WriteLog("<b>AZ_NS_Poollicht</b>", "<b>Ongeldige HouseCode!</b>")
           Exit Sub
   End If
   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "3")

   '********************************
   'Is the device available?
   '********************************
   If hs.DeviceExistsRef(strHouseCode & strDeviceCode) = -1 Then
      Dim dv As Object
      dv = hs.GetDeviceByRef(hs.NewDeviceRef("Poollicht"))
      dv.hc = strHouseCode
      dv.dc = strDeviceCode
      dv.misc = "&h10"
      dv.location = strDeviceRoom
      dv.location2 = strDeviceFloor
      dv.dev_type_string = strDeviceType
   End If

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "4")

   '**********************************
   ' We are ready to get the html page
   '**********************************
   Dim strWebPage As String
   Try
     strWebPage = getHtml(URL)
   Catch ex As Exception
     hs.setdevicestring(strDevice, URL + " onbereikbaar")
     hs.setdevicevalue(strDevice, 0)
     hs.setdevicelastchange(strDevice, now)
     hs.writelog("<b>AZ_Poollicht</b>","<b>Connection to site failed due:" & ex.Message & "</b>")
     Exit Sub
   End Try

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "5")

   '**********************************
   ' Controlleer of de pagina 
   ' beschikbaar is.
   '**********************************
   if Len(strWebPage) < 100 then
     hs.writelog("<b>AZ_Poollicht</b>","<b>" + URL + " onbereikbaar</b>")
     hs.setdevicestring(strDevice, URL + "onbereikbaar")
     hs.setdevicevalue(strDevice, 0)
     hs.setdevicelastchange(strDevice, now)
     Exit Sub
   End If

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "6")

   '**********************************
   ' Next we need to grab all the
   ' the info from the collected data
   '**********************************
   Dim intStart As Integer
   Dim intEnd As Integer
   Dim intValue As Integer
   Dim strTemp As String
   Dim strDetails As String

   ' Haal een stuk header tekst eraf omdat
   ' deze storende tekst bevat.
   intStart = Instr(strWebPage, "alertbalk waarschuwing")
   strWebPage = Right(strWebPage, Len(strWebPage) - intStart)


   ' Ga naar de live waardes voor de gemiddelde breedtgraad
   ' deze storende tekst bevat.
   intStart = Instr(strWebPage, "Gemiddelde breedtegraad")
   strWebPage = Right(strWebPage, Len(strWebPage) - intStart)

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "7")

   ' Vind de 'badge badge-success' class
   intStart = Instr(strWebPage, "badge badge-success") + Len("badge badge-success")
   'Verwijder ook het > teken
   intStart = intStart + 1
   ' Remove everything till this sign
   strWebPage = Right(strWebPage, Len(strWebPage) - intStart)

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "8")

   ' Next find the end of the class
   intEnd = Instr(strWebPage, "</span") - 1
   strTemp = Left(strWebPage, intEnd)

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", strTemp)

   strDetails = strTemp
   strTemp = Trim(Replace(strTemp, "%", ""))

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", "9")

   If Debug = true then hs.WriteLog("<b>AZ_Poollicht_Info</b>", strTemp)

   'Show the info
   hs.setdevicestring(strDevice, strDetails)
   hs.setdevicevalue(strDevice, Val(strTemp))
   hs.setdevicelastchange(strDevice, now)

End Sub


'********************************
'********************************
' Additional functions and such
'********************************
'********************************
' Get the HTML code of the requested web site
Function getHtml(ByVal url As String) As String
   Dim myWebRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
   myWebRequest.Method = "GET"
   ' make request for web page
   Dim myWebResponse As HttpWebResponse = DirectCast(myWebRequest.GetResponse(), HttpWebResponse)
   Dim myWebSource As New StreamReader(myWebResponse.GetResponseStream())
   Dim myPageSource As String = String.Empty
   myPageSource = myWebSource.ReadToEnd()
   myWebResponse.Close()

   return myPageSource
End Function