Et script jeg bruker til å sjekke om hvilke dører eller vinduer som er åpne, og sender en email/push-melding med den beskjeden på egnede tidspunkter (som f.eks. når alarmen blir skrudd på eller huset går over i natt-modus).
Du må endre (minst) tre linjer, og det er hhv. "Dim rfxcom() as Integer..." og "Dim zwave() as integer..." og nederst "hs.SendEmail...". Jeg sender push-meldinger til Pushalot og/eller PushSafer (hvor sistnevnte snart får en plugin).
CheckDoorsAndWindows.vb
Sub Main(ByVal input As Object)
Dim lst As New System.Collections.Generic.List(Of String)
Dim closedStatus As Integer = 100
'RFXCOM devices
Dim rfxcom() As Integer = {41, 1188, DINE RFXCOM-SENSORER HER KOMMASEPARERT}
closedStatus = 2
For Each d As Integer In rfxcom
If hs.DeviceValue(d) <> closedStatus Then
Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(d)
lst.Add(dev.Location2(hs) & " " & dev.Location(hs) & " " & dev.Name(hs))
End If
Next
'Zwave devices
Dim zwave() As Integer = {450, 545, DINE Z-WAVE-SENSORER HER KOMMASEPARERT}
closedStatus = 255
For Each d As Integer In zwave
If hs.DeviceValue(d) <> closedStatus Then
Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(d)
lst.Add(dev.Location2(hs) & " " & dev.Location(hs) & " " & dev.Name(hs))
End If
Next
If lst.Count > 0 Then
Dim msg As String = "Følgende vinduer er åpne: " & vbNewLine
msg &= String.Join(vbNewLine, lst)
hs.SendEmail("
[email protected]", "FRA_HS#@epost.com", "", "", "HS3: Åpne vinduer/dører!", msg, "")
Else
hs.WriteLog("Vindu/dører", "Alle er lukket")
End If
End Sub