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

' Script Name: Water Leak Monitor

' Version: 2025.06.07.03

' Author: [Your Name or Initials]

' Description:

'   Monitors all HomeSeer water sensors (Location2 = "Water Sensor").

'   Detects leak or dry status using device status strings (not values).

'   If a leak is detected, it logs the event, updates devices, and triggers a webhook.

'   If no leaks are detected, it updates status and logs the result.

'

' Webhook Integration:

'   - Sends a GET request to Home Assistant webhook endpoint:

'     http://192.168.1.177:8123/api/webhook/water_leak_detected

'   - Triggers a Home Assistant automation for announcements or other actions.

'   - Local-only integration, no internet exposure.

'

' Device 766:

'   - Used as a summary status device.

'   - Value 100 = Leak Detected, 0 = No Leak.

'   - Script only updates if value has changed or last update was >30 seconds ago.

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

Imports System.Diagnostics

Imports System.Text

Imports System.Threading.Tasks

Imports System.Collections.Generic

​

Sub Main(Parm As Object)

    Dim dryList As New List(Of String)()

    Dim leakList As New List(Of String)()

    Dim lockObj As New Object()

    Dim debug As Boolean = False ' Set to True for verbose logging

    Dim sw As Stopwatch = Stopwatch.StartNew()

    Try

        Dim waterSensors As List(Of Scheduler.Classes.DeviceClass) = GetWaterSensors()

        If debug Then hs.WriteLog("DEBUG", "Number of water sensors: " & waterSensors.Count)

        Parallel.ForEach(waterSensors, Sub(dv)

            If dv Is Nothing Then Return

            Try

                Dim statusText As String = hs.DeviceString(dv.Ref(Nothing)).Trim().ToLower()

                If debug Then hs.WriteLog("DEBUG", "Device: " & dv.Name(Nothing) & ", Status: " & statusText)

                If statusText.Contains("dry") Then

                    SyncLock lockObj

                        dryList.Add(dv.Location(Nothing) & " " & dv.Name(Nothing) & ", <Br>")

                    End SyncLock

                ElseIf statusText.Contains("leak") Or statusText.Contains("water leak detected") Then

                    SyncLock lockObj

                        leakList.Add(dv.Location(Nothing) & " " & dv.Name(Nothing))

                    End SyncLock

​

                    hs.WriteLog("WATER LEAK", "Leak detected at " & dv.Location(Nothing) & " " & dv.Name(Nothing) & " at " & DateTime.Now.ToString())

                End If

            Catch ex As Exception

                hs.WriteLog("ERROR", "Exception in Parallel.ForEach: " & ex.Message)

            End Try

        End Sub)

        Dim Dry As String = String.Join("", dryList)

        If Dry.EndsWith(", <Br>") Then Dry = Dry.Substring(0, Dry.Length - 6)

        Dim Leak As String = String.Join(", ", leakList)

        Dim current766Val As Integer = hs.DeviceValue(766)

        Dim lastChange766 As DateTime = hs.DeviceLastChange(766)

        If Leak.Length > 0 Then

            hs.SetDeviceString(562, "Water Leak Detected at " & Leak, True)

            hs.SetDeviceValueByRef(562, 255, True)

            If current766Val <> 100 OrElse (DateTime.Now - lastChange766).TotalSeconds > 30 Then

                hs.SetDeviceValueByRef(766, 100, True)

            End If

​

            hs.URLAction("http://192.168.1.177:8123/api/webhook/water_leak_detected", "GET", "", "Content-Type: application/x-www-form-urlenc")

        Else

            hs.SetDeviceString(562, "No Water Leaks Detected at <BR><BR>" & Dry, True)

            hs.SetDeviceValueByRef(562, 0, True)

            If current766Val <> 0 OrElse (DateTime.Now - lastChange766).TotalSeconds > 30 Then

                hs.SetDeviceValueByRef(766, 0, True)

            End If

​

            hs.WriteLog("Status", "No water leaks detected at " & DateTime.Now.ToString())

            If debug Then hs.WriteLog("DEBUG", "No water leaks detected at " & DateTime.Now.ToString())

        End If

​

        sw.Stop()

        If debug Then hs.WriteLog("Script", "Script execution time: " & sw.Elapsed.TotalMilliseconds & " ms")

    Catch ex As ArgumentNullException

        hs.WriteLog("ERROR: Water Leak - ArgumentNullException", ex.Message)

    Catch ex As InvalidOperationException

        hs.WriteLog("ERROR: Water Leak - InvalidOperationException", ex.Message)

    Catch ex As Exception

        hs.WriteLog("ERROR: Water Leak - General Exception", ex.Message)

    End Try

End Sub

​

Function GetWaterSensors() As List(Of Scheduler.Classes.DeviceClass)

    Dim col As New List(Of Scheduler.Classes.DeviceClass)

    Dim dv As Scheduler.Classes.DeviceClass

    Try

        Dim EN As Scheduler.Classes.clsDeviceEnumeration = hs.GetDeviceEnumerator

        Do

            dv = EN.GetNext

            If dv Is Nothing Then Continue Do

            If dv.Location2(Nothing) = "Water Sensor" Then

                col.Add(dv)

            End If

        Loop Until EN.Finished

    Catch ex As Exception

        hs.WriteLog("ERROR: GetWaterSensors", ex.Message)

    End Try

​

    Return col

End Function

​