AVCS SENS AIDA MAIN-v2.6 Inline Function in VB.net for VoiceAttack & AIDA64

'AVCS SENS - AIDA64 Sensor Data Monitoring Function v2.6
' - Parses new AIDA64 data every 3 seconds (including External DHT11 data every 30 seconds, if available)
' - Rolling data points of 10, averages calculated over the last 30 seconds
' - Differential Diagnostic Algorithm of data compared to low/med/high/extreme baselines via DHT11 data
' by SemlerPDX Mar2022
' VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Math
Imports System.Text.RegularExpressions
Imports System.Diagnostics
Imports System.Text
Imports System.Linq
Imports System.Xml
Imports System.Threading

Public Class VAInline
    dim MonitorTimerDelay as integer = 3000    'in milliseconds (default 3000 == 3 seconds)
    dim SensorsCheckDelay as integer = 10       'in multiples of MonitorTimerDelay (default 10 == 30 seconds)
    dim itemDataPointsMax as decimal? = 10   'total data points to keep in any array, used with AVCS_SENS_DataPointsTotal (Dec)
    dim itemDataPointsTotal as decimal? = 0  'variable current data points of any given array
    dim newSensorsCount as integer = 0
    dim dtFormat as string = "M/d/yyyy H:mm:ss"

    dim diagnosticsSensors() as string = {"SCPUUTI","TCPU","TCPUDIO","TCPUPKG","FCPU","FCPUOPT","SMEMUTI","SGPU1UTI","SVMEMUSAGE","TGPU1DIO","FGPU1","TMOBO","TPCHDIO","FPCH","TSB","FSB","TNB","FNB","TVRM","TFAN1VRM","FCHA","FCHA1","FCHA2","FCHA3","FCHA4","FCHA5","FCHA6","FCHA7","FCHA8","FCHA9"}


    dim savedRequests as integer = 0
    dim mainInterval as integer = 0

    dim historicLevels() as string = {"LOW","MEDIUM","HIGH","EXTREME"}
    dim levelBracket as string = ""
    dim historicLevelBracket as string = ""

    dim percentDifferenceMax as decimal? = 100
    dim pdMaxTemps as decimal? = 25
    dim pdMaxFans as decimal? = 100
    dim diagnosis as boolean


    dim currentAverage as decimal = 1


    dim debugging as boolean = false
    dim debugStopwatch as boolean = false
    dim debugSensors as boolean = false
    dim debugAIDA as boolean = false
    dim debugArduino as boolean = false
    dim debugAverages as boolean = false
    dim checkResults as boolean = false


    Public Function LoadHistoricSensorBaselines()
        dim checkBaselinesSet() as string = {"MEDIUM","HIGH","EXTREME"}
        dim checkBaselines as string
        dim contents() as string
        dim entry() as string
        if ((VA.GetText("AVCS_SENS_HistoricBaselineData")) IsNot nothing)
            checkBaselines = VA.GetText("AVCS_SENS_HistoricBaselineData")
            if (checkBaselines.Contains(vbNewLine))
                contents = checkBaselines.Split(new string() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                for each line as string in contents
                    entry = line.Split("=")
                    VA.SetText(entry(0), entry(1))
                next
            end if
            for each baseline as string in checkBaselinesSet
                if (checkBaselines.Contains("AVCS_SENS_SensorAverages_" + baseline))
                    VA.SetBoolean("AVCS_SENS_SET_BASELINE_LEVEL_" + baseline, true)
                else
                    VA.SetBoolean("AVCS_SENS_SET_BASELINE_LEVEL_" + baseline, nothing)
                end if
            next
        end if
    End Function

    Public Function GetFanLabelKeyword(ByVal sensorID as string, ByVal sensorLabel as string, ByVal sensorValue as string)
        if (VA.GetText("AVCS_SENS_FAN_" + sensorID) isNot nothing)
            sensorLabel = VA.GetText("AVCS_SENS_FAN_" + sensorID)
        else
            'Get User Choice for Fan Label and Command Phrase
            VA.SetText("AVCS_SENS_FAN_LABEL", "Sensor ID: " + sensorID + "(\n)Sensor Label: " + sensorLabel + "(\n)Sensor Value: " + sensorValue)
            VA.Command.Execute("F_AIDA_CASE_FANS", true)
            if (VA.GetText("AVCS_SENS_FAN_LABEL") isNot nothing)
                sensorLabel = VA.GetText("AVCS_SENS_FAN_LABEL").Replace(" ", "") + "_fan"
                'This value seems unused - test without and see if all works... maybe leftover from previous build?
                VA.SetText("AVCS_SENS_FAN_" + sensorID, sensorLabel)
                if (VA.GetInt("AVCS_DATA_SAVED_requests") isNot nothing)
                    savedRequests = VA.GetInt("AVCS_DATA_SAVED_requests") + 1
                else
                    savedRequests = 1
                end if
                VA.SetInt("AVCS_DATA_SAVED_requests", savedRequests)
                VA.SetText("AVCS_DATA_SAVED_name_" + savedRequests.ToString(), "AVCS_SENS_FAN_" + sensorID)
                VA.SetText("AVCS_DATA_SAVED_value_" + savedRequests.ToString(), sensorLabel)
            else
                return nothing
            end if
        end if
        VA.SetText("AVCS_SENS_FAN_LABEL", nothing)

        return sensorLabel
    End Function

    Public Function GetLargestInteger(ParamArray integers as integer()) as integer
        if integers.Length = 0
            throw New ArgumentException("AVCS ERROR: GetLargestInteger check params input")
        end if
        return integers.Max()
    End Function

    Public Function GetAverages(ByRef itemData as string, ByVal dataLabel as string, ByRef itemDataPointsTotal as decimal?)
        dim dataPointsArray() as string
        dim dataSum as decimal? = 0
        dim dataPointsLen as decimal? = 0
        dim dataAverage as decimal? = 0
        dataPointsArray = itemData.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)
        dataPointsLen = Convert.ToDecimal(dataPointsArray.Length)

        if (dataPointsLen >= 11)
            itemData = dataPointsArray(1)
            for i as integer = 2 to dataPointsArray.Length - 1
                if ((dataPointsArray(i) isNot nothing) andAlso (dataPointsArray(i) <> ""))
                    itemData = itemData + "," + dataPointsArray(i)
                    if (debugSensors)
                        VA.WriteToLog("Check DataPoint = " + dataPointsArray(i).ToString(), "green")
                    end if
                end if
            next
            VA.SetText("AVCS_SENS_" + dataLabel, itemData)
            if (debugSensors)
                VA.WriteToLog("Check Variable = " + "AVCS_SENS_" + dataLabel + " = " + VA.GetText("AVCS_SENS_" + dataLabel).ToString(), "purple")
            end if
            dataPointsArray = itemData.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)
            dataPointsLen = Convert.ToDecimal(dataPointsArray.Length)
            itemDataPointsTotal = dataPointsLen
            if (debugSensors)
                VA.WriteToLog("AVCS SENS New DataPointsMax = " + itemDataPointsTotal.ToString(), "green")
            end if
        else
            if (debugSensors)
                VA.WriteToLog("AVCS SENS Cannot build averages yet, data points below 10 = " + dataPointsLen.ToString(), "orange")
            end if
        end if

        if (debugSensors)
            VA.WriteToLog("dataPoints = " + itemData.ToString(), "pink")
            VA.WriteToLog("dataPointsLen = " + itemDataPointsTotal.ToString(), "pink")
        end if

        for each dataPoint as string in dataPointsArray
            try
                dataSum += Convert.ToDecimal(dataPoint)
                if (debugSensors)
                    VA.WriteToLog("DataPoint = " + dataPoint, "pink")
                end if
            catch
                if (debugSensors)
                    VA.WriteToLog("DataPoint NOT numeric = " + dataPoint, "red")
                end if
            end try
        next
        dataAverage = dataSum / dataPointsLen
        if (debugSensors)
            VA.WriteToLog("Equation: " + dataAverage.ToString() + " = " + dataSum.ToString() + " / " + dataPointsLen.ToString(), "green")
        end if
        if (itemDataPointsTotal = 0)
            itemDataPointsTotal = dataPointsLen
        end if
        return dataAverage
    end function

    Public Function GetAveragedAverages(ByVal givenAverages() as decimal)
        dim averagesSum as decimal = 0
        dim averagesLen as decimal = 0
        dim averagesAverage as decimal = 0
        try
            for x as integer = 0 to givenAverages.GetUpperBound(0)
                averagesSum =  averagesSum + givenAverages(x)
            next
            averagesLen = givenAverages.Length
            averagesAverage = averagesSum / averagesLen
            if (debugAverages)
                VA.WriteToLog("func sum = " + averagesSum.ToString(), "pink")
                VA.WriteToLog("func len = " + averagesLen.ToString(), "pink")
                VA.WriteToLog("func avg = " + averagesAverage.ToString(), "red")
            end if
        catch
            if (debugAIDA)
                VA.WriteToLog("AVCS SENS CATCH CalcAvgs possible divide by zero - givenAverages.Length = " + givenAverages.Length.ToString(), "red")
            end if
        end try

        return averagesAverage
    End Function

    Public Function GetAverageDistances(ByVal thisAverage as decimal, ByVal theseAverages() as decimal)
        dim historicDistances() as decimal = {}
        dim nearestDistance as decimal = decimal.MaxValue
        dim currentDistance as decimal = decimal.MaxValue
        try
            for y as integer = 0 to theseAverages.GetUpperBound(0)
                currentDistance = Abs(thisAverage - theseAverages(y))
                if (isNumeric(currentDistance))
                    redim preserve historicDistances(historicDistances.length)
                    historicDistances(historicDistances.length - 1) = currentDistance
                end if
                if (Abs(thisAverage - theseAverages(y)) < nearestDistance)
                    nearestDistance = Abs(thisAverage - theseAverages(y))
                    if (y <= 3)
                        historicLevelBracket = historicLevels(y)
                    end if
                end if
            next
            if (debugAverages)
                VA.WriteToLog("AVCS SENS GetAvgD distance from nearest HistoricAverage = " + nearestDistance.ToString(), "pink")
            end if
        catch
            VA.WriteToLog("AVCS SENS GetAvgD function error at TryCatch", "red")
        end try

        nearestDistance = nothing
        currentDistance = nothing
        return historicDistances
    End Function

    Public Function GetRoundedAverage(ByVal thisDecimal as decimal, ByVal decimalPlaces as integer)
        try
            'Try to compare decimal with integer version of itself to discover decimal places, then round
            dim checkInteger as Int32 = Convert.ToInt32(thisDecimal)
            if (thisDecimal = checkInteger)
                'For TTS brevity use the one that couldn't end with .000
                thisDecimal = checkInteger
            elseif (checkInteger <> thisDecimal)
                'dim roundDecimal as Double = checkInteger
                dim roundDecimal as Double = thisDecimal
                thisDecimal = Round(roundDecimal, decimalPlaces)
            end if
        catch
            'Result is a whole number already, does not need rounding for TTS brevity
        end try

        return thisDecimal
    end function

    Public Function GetRebuiltAverages(ByVal averagesArray() as decimal)
        dim rebuiltAveragesArray() as decimal = {}
        'Handle 0 values by turning into 1, should work if consitently applied to all
        for i as integer = 0 to averagesArray.GetUpperBound(0)
            redim preserve rebuiltAveragesArray(rebuiltAveragesArray.length)
            if (averagesArray(i) < 1)
                rebuiltAveragesArray(rebuiltAveragesArray.length - 1) = 1
            else
                rebuiltAveragesArray(rebuiltAveragesArray.length - 1) = averagesArray(i)
            end if
        next
        return rebuiltAveragesArray
    End Function

    Public Function DifferentialDiagnostics(ByVal newLabel as string, ByVal newAverage as decimal)
        dim averages() as decimal = {}
        dim averageDistances() as decimal = {}
        dim historicAverages() as decimal = {}
        dim historicAverageDistances() as decimal = {}
        dim historicAveragesDistances() as decimal = {}
        dim historicLevelBrackets() as decimal = {}
        dim historicAverageDistance as decimal = 1
        dim averagedAverage as decimal = 1
        dim historicAverage as decimal = 1
        dim percentDifference as decimal = 0
        dim averageDistance as decimal = 0
        dim differentialDiagnosis as string = "stable"
        dim roundResult as Double


        if ((newLabel <> "") and (newAverage > -1))

            'If it is temperature sensor, data to get is delta-T over Ambient
            if (newLabel.StartsWith("Temp"))
                newLabel = "dTa_" + newLabel
            end if


            if (VA.GetText("AVCS_SENS_SensorAverages_LOW_" + newLabel) isNot nothing)
                historicAverages = VA.GetText("AVCS_SENS_SensorAverages_LOW_" + newLabel).Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(n) decimal.Parse(n)).ToArray()
                if not(historicAverages.Length < 10)

                    'step 1 -- for low, medium, high, and extreme - get average arrays for this level, build into an Array of level averages
                    for i as integer = 0 to historicLevels.GetUpperBound(0)
                        redim historicAverages(0)
                        historicLevelBracket = ""
                        if (VA.GetText("AVCS_SENS_SensorAverages_" + historicLevels(i) + "_" + newLabel) isNot nothing)
                            historicAverages = VA.GetText("AVCS_SENS_SensorAverages_" + historicLevels(i) + "_" + newLabel).Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(n) decimal.Parse(n)).ToArray()
                            if not(historicAverages.Length < 1)
                                averagedAverage = 0
                                averagedAverage = GetAveragedAverages(historicAverages)
                                if (IsNumeric(averagedAverage))
                                    if (debugAverages)
                                        VA.WriteToLog("averagedAverage of bracket '" + i.ToString() + "' = " + averagedAverage.ToString(), "orange")
                                    end if
                                    redim preserve historicLevelBrackets(historicLevelBrackets.length)
                                    historicLevelBrackets(historicLevelBrackets.length - 1) = averagedAverage
                                end if
                                if (debugAverages)
                                    VA.WriteToLog("averages of bracket '" + historicLevels(i).ToString() + "' = " + averagedAverage.ToString(), "pink")
                                end if
                            end if
                        end if
                    next
                    if (debugAverages)
                        VA.WriteToLog("historicLevelBrackets = " + historicLevelBrackets(0).ToString(), "green")
                    end if

                    'step 2 - identify nearest bracket by value of newAverage against historicLevelBrackets
                    GetAverageDistances(newAverage, historicLevelBrackets)

                    'Checking historicLevelBrackets:
                    if (debugAverages)
                        VA.WriteToLog("historicLevelBrackets(0) = " + historicLevelBrackets(0).ToString(), "yellow")
                        VA.WriteToLog("historicLevelBrackets(1) = " + historicLevelBrackets(1).ToString(), "yellow")
                        VA.WriteToLog("historicLevelBrackets(2) = " + historicLevelBrackets(2).ToString(), "yellow")
                        VA.WriteToLog("historicLevelBrackets(3) = " + historicLevelBrackets(3).ToString(), "yellow")
                    end if

                    'save return as 'historicLevelBracket' gets changed anytime function is called, but only useful here
                    levelBracket = historicLevelBracket
                    VA.SetText("AVCS_SENS_Current_LevelBracket",levelBracket)

                    'step 3 - get an average of all the historic averages distances to each other
                    'now that we know which bracket to examine, use the levelBracket to get that bracket averages
                    redim historicAverages(0)
                    if (VA.GetText("AVCS_SENS_SensorAverages_" + levelBracket + "_" + newLabel) isNot nothing)

                        historicAverages = VA.GetText("AVCS_SENS_SensorAverages_" + levelBracket + "_" + newLabel).Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(n) decimal.Parse(n)).ToArray()
                        if (debugAverages)
                            for i as integer = 0 to historicAverages.GetUpperBound(0)
                                VA.WriteToLog("historicAverages("+i.ToString()+") = " + historicAverages(i).ToString(), "pink")
                            next
                        end if


                        for i as integer = 0 to historicAverages.GetUpperBound(0)
                            if (IsNumeric(historicAverages(i)))
                                historicAverageDistances = GetAverageDistances(historicAverages(i), historicAverages)

                                'Replace zero-distance to self in each iteration with 1
                                historicAverageDistances = GetRebuiltAverages(historicAverageDistances)

                                'Get Average of these distances and add to AveragesDistances array
                                averageDistance = GetAveragedAverages(historicAverageDistances)
                                redim preserve historicAveragesDistances(historicAveragesDistances.length)
                                historicAveragesDistances(historicAveragesDistances.length - 1) = averageDistance

                                if (debugAverages)
                                    VA.WriteToLog("averageDistance = " + averageDistance.ToString(), "pink")
                                    for x as integer = 0 to historicAveragesDistances.GetUpperBound(0)
                                        VA.WriteToLog("bracket historicAverages = " + historicAveragesDistances(x).ToString(), "yellow")
                                    next
                                end if
                            end if
                        next

                        'Check all average distances created above
                        if (debugAverages)
                            for f as integer = 0 to historicAveragesDistances.GetUpperBound(0)
                                VA.WriteToLog("historicAverageDistances("+f.ToString()+") = " + historicAveragesDistances(f).ToString(), "pink")
                            next
                        end if

                        'Get the average distance between all averages in this set
                        historicAverageDistance = GetAveragedAverages(historicAveragesDistances)

                        'Get the average distance between given average and all historic averages
                        averageDistances = GetAverageDistances(newAverage, historicAverages)
                        averageDistance = GetAveragedAverages(averageDistances)
                    end if

                    'Check the historicLevelBracket that was determined:
                    if (checkResults)
                        select case levelBracket
                            case historicLevels(0)
                                VA.WriteToLog(newLabel + " is LOW", "green")
                            case historicLevels(1)
                                VA.WriteToLog(newLabel + " is MEDIUM", "yellow")
                            case historicLevels(2)
                                VA.WriteToLog(newLabel + " is HIGH", "orange")
                            case historicLevels(3)
                                VA.WriteToLog(newLabel + " is EXTREME", "red")
                            case else
                                VA.WriteToLog("AVCS SENS ERROR: Select Case levelBracket failed", "red")
                        end select
                        VA.WriteToLog("averageDistance of current number from historic averages= " + GetRoundedAverage(averageDistance,2).ToString(), "green")
                        VA.WriteToLog("historicAverageDistance of historic averages from each other = " + GetRoundedAverage(historicAverageDistance,2).ToString(), "green")
                    end if


                    'Get Percent Difference via (((ad-had)/had)*100)
                    if (historicAverageDistance < averageDistance)
                        percentDifference = (((averageDistance - historicAverageDistance)/historicAverageDistance) * 100)
                        roundResult = percentDifference
                        percentDifference = GetRoundedAverage(roundResult, 3)
                    else
                        percentDifference = 0
                    end if

                    if (newLabel.Contains("fan"))
                        percentDifferenceMax = pdMaxFans
                    else
                        percentDifferenceMax = pdMaxTemps
                    end if

                    'Store baseline/up/down status with VA Boolean states of notset/true/false
                    historicAverage = GetAveragedAverages(historicAverages)
                    VA.SetBoolean("AVCS_SENS_ATYPICAL_" + newLabel, nothing)
                    if (percentDifference > percentDifferenceMax)
                        if (newAverage > historicAverage)
                            differentialDiagnosis = "higher"
                            VA.SetBoolean("AVCS_SENS_ATYPICAL_" + newLabel, true)
                        elseif (newAverage < historicAverage)
                            differentialDiagnosis = "lower"
                            VA.SetBoolean("AVCS_SENS_ATYPICAL_" + newLabel, false)
                        end if
                    end if

                    if (checkResults)
                        VA.WriteToLog("FINAL percent diff = " + GetRoundedAverage(percentDifference, 2).ToString() + "% (" + differentialDiagnosis + ")", "green")
                    end if

                    'Set data to final variable for this sensor with a timestamp, overwriting previous data
                    VA.SetText("~dtFormat",dtFormat)
                    dtFormat = VA.ParseTokens("{DATETIMEFORMAT:~dtFormat}")

                    differentialDiagnosis = dtFormat + "," + newAverage.ToString() + "," + historicAverage.ToString() + "," + averageDistance.ToString() + "," + percentDifference.ToString() + "," + differentialDiagnosis
                    VA.SetText("AVCS_SENS_DIAGNOSTICS_" + newLabel, differentialDiagnosis)

                    if (debugAverages)
                        VA.WriteToLog("AVCS_SENS_DIAGNOSTICS_" + newLabel + " = " + differentialDiagnosis, "green")
                    end if


                elseif ((historicAverages.Length > 0) and (historicAverages.Length < itemDataPointsMax))
                    'Wait for enough historic data points before diagnosing
                    if (debugAverages)
                        VA.WriteToLog("AVCS SENS Cannot build differential diagnostics yet, data points below 10 = " + historicAverages.Length.ToString(), "orange")
                    end if
                end if
            end if

        end if
        historicAverageDistance = nothing
        averagedAverage = nothing
        historicAverage = nothing
        percentDifference = nothing
        averageDistance = nothing
        differentialDiagnosis = nothing
        levelBracket = nothing
        historicLevelBracket = nothing
        roundResult = nothing
        averages = nothing
        averageDistances = nothing
        historicAverages = nothing
        historicAverageDistances = nothing
        historicAveragesDistances = nothing
        historicLevelBrackets = nothing
    End Function

    Public Function MonitorDebug(ByVal requestAllOff as boolean)
        if (requestAllOff)
            debugging = false
            debugSensors = false
            debugAIDA = false
            debugArduino = false
            debugAverages = false
            checkResults = false
            debugStopwatch = false
            VA.SetBoolean("AVCS_SENS_Debugging", false)
            VA.SetBoolean("AVCS_SENS_DebugSensors", false)
            VA.SetBoolean("AVCS_SENS_DebugAIDA", false)
            VA.SetBoolean("AVCS_SENS_DebugArduino", false)
            VA.SetBoolean("AVCS_SENS_DebugAverages", false)
            VA.SetBoolean("AVCS_SENS_DebugCheckResults", false)
            VA.SetBoolean("AVCS_SENS_DebugStopwatch", false)
        else
            if ((VA.GetBoolean("AVCS_SENS_DebugSensors") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugSensors")))
                debugSensors = true
            else
                debugSensors = false
            end if

            if ((VA.GetBoolean("AVCS_SENS_DebugAIDA") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugAIDA")))
                debugAIDA = true
            else
                debugAIDA = false
            end if

            if ((VA.GetBoolean("AVCS_SENS_DebugArduino") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugArduino")))
                debugArduino = true
            else
                debugArduino = false
            end if

            if ((VA.GetBoolean("AVCS_SENS_DebugAverages") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugAverages")))
                debugAverages = true
            else
                debugAverages = false
            end if

            if ((VA.GetBoolean("AVCS_SENS_DebugCheckResults") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugCheckResults")))
                checkResults = true
            else
                checkResults = false
            end if

            if ((VA.GetBoolean("AVCS_SENS_DebugStopwatch") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_DebugStopwatch")))
                debugStopwatch = true
            else
                debugStopwatch = false
            end if
        end if
    End Function

    Private Sub MonitorTimerElapsed(sender As Object, e As System.Timers.ElapsedEventArgs)
        if ((VA.GetBoolean("AVCS_MAIN_TIMER_WORKING") isNot nothing) andAlso (VA.GetBoolean("AVCS_MAIN_TIMER_WORKING")))
            'do nothing for now, maybe debug msg later?
        else
            VA.SetBoolean("AVCS_MAIN_TIMER_WORKING", true)
            dim keyFile as string = ""
            dim reBuild as string = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbNewLine + "<sensordata>" + vbNewLine
            dim fixLines as string = ">" + vbNewLine + "<"
            dim contents() as string
            dim doc as XmlDocument = New XmlDocument()
            dim nodeGet as XmlNode

            dim baselineLevels() as string = {"LOW","MEDIUM","HIGH","EXTREME"}

            dim itemDataAverage as decimal? = 0
            dim itemID as string = ""
            dim itemNode as string = ""
            dim itemLabel as string = ""
            dim itemValue as string = ""
            dim itemData as string = ""
            dim currentLabel as string = ""
            dim counter as integer = 0
            dim valueDHTc as decimal = 0
            dim valueDeltaToverAmb as decimal = 0
            dim intervalSensors as Int32 = 0
            dim debugWatch as Stopwatch = New Stopwatch

            if ((VA.GetBoolean("AVCS_SENS_Debugging") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_Debugging")))
                MonitorDebug(true)
            else
                MonitorDebug(false)
            end if

            if (debugStopwatch)
                'VA.WriteToLog("AVCS AIDA64 Sensor Monitor is now executing at " + e.SignalTime.ToString(), "green")
                debugWatch.Start()
            end if

            if ((VA.GetBoolean("AVCS_SENS_ReloadBaselines") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_ReloadBaselines")))
                if (debugAverages)
                    VA.WriteToLog("AVCS SENS - re-loading baseline data found on file....", "black")
                end if
                VA.Command.Execute("F_AIDA_BASELINES", true)
                VA.SetBoolean("AVCS_SENS_ReloadBaselines", nothing)
                LoadHistoricSensorBaselines()
                Thread.Sleep(100)
            end if

            'SensorsCheckDelay Config Setting -- when changed, new minimum time must be >= 2000ms, as a multiple of main timer loop interval
            if ((VA.GetInt("AVCS_SENS_SensorsCheckDelay") isNot nothing) andAlso (Integer.TryParse(VA.GetInt("AVCS_SENS_SensorsCheckDelay"), SensorsCheckDelay)))
                if ((SensorsCheckDelay * MonitorTimerDelay) < 2000)
                    SensorsCheckDelay = 10
                    if (debugSensors)
                        VA.WriteToLog("AVCS SENS ERROR: SensorsCheckDelay interval lower than 2 seconds, resetting to minimum 10xMonitorTimerDelay...", "red")
                    end if
                end if
            end if

            if ((VA.GetBoolean("AVCS_SENS_Logging") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_Logging")))


                'USB External DHT11 Serial Data Parsing Section ================================
                if (VA.GetInt("AVCS_SENS_IntervalAIDA") isNot nothing)
                    intervalSensors = Convert.ToInt32(VA.GetInt("AVCS_SENS_IntervalAIDA"))
                    intervalSensors += 1
                    if (intervalSensors >= SensorsCheckDelay)
                        intervalSensors = 0
                    end if
                    VA.SetInt("AVCS_SENS_IntervalAIDA", intervalSensors)
                else
                    VA.SetInt("AVCS_SENS_IntervalAIDA", 0)
                end if
                if (debugAIDA)
                    VA.WriteToLog("AVCS AIDA64 Sensor Monitor Interval = " + intervalSensors.ToString(), "blue")
                end if

                'AIDA SharedMem Data Parsing Section ================================
                if (VA.GetText("AVCS_SENS_SHAREDMEM_XML") isNot nothing)
                    keyFile = VA.GetText("AVCS_SENS_SHAREDMEM_XML").Replace("><", fixLines)
                    if (debugSensors)
                        VA.WriteToLog("AVCS_SENS_SHAREDMEM_XML is NOT nothing", "pink")
                        VA.WriteToLog(keyFile, "pink")
                    end if
                    if (keyFile.Contains(vbNewLine))
                        contents = keyFile.Split(new string() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                        for each line as string in contents
                            if (line.StartsWith("<") or line.StartsWith(" ") or line.StartsWith("\t"))
                                reBuild = reBuild + line.ToString() + vbNewLine
                            end if
                        next
                        reBuild = reBuild + "</sensordata>" + vbNewLine
                    end if

                    doc.LoadXml(reBuild)

                    for each node as XmlNode in doc.SelectNodes("/sensordata/*")
                        if (doc.GetElementsByTagName("label").Item(counter) isNot nothing)
                            nodeGet = doc.GetElementsByTagName("id").Item(counter)
                            itemID = nodeGet.ChildNodes(0).InnerText

                            nodeGet = doc.GetElementsByTagName("label").Item(counter)
                            itemLabel = nodeGet.ChildNodes(0).InnerText

                            nodeGet = doc.GetElementsByTagName("value").Item(counter)
                            itemValue = nodeGet.ChildNodes(0).InnerText
                            if (itemValue = "0")
                                itemValue = "1"
                            end if

                            itemID = itemID.Replace(" ", "_")

                            'VA.WriteToLog("NODENAME: " + node.Name + " (" + itemID + ") " + itemLabel + " = " + itemValue, "yellow")
                            'NEW----------- Set/Get Sensor Item Label  ---EXAMPLES:
                            'VA.SetText("AVCS_SENS_" + itemID, itemLabel)
                            'VA.SetText("AVCS_SENS_" + itemLabel, data)
                            'VA.GetText("AVCS_SENS_" + VA.ParseTokens("{TXT:AVCS_SENS_" + itemID + ":}")) = data

                            itemNode = ""
                            select case (node.Name)
                                case "sys"
                                    itemNode = "sys"
                                case "temp"
                                    itemNode = "temp"
                                case "fan"
                                    itemNode = "fan"
                                case "duty"
                                    itemNode = "sys"
                                case "volt"
                                    itemNode = "volt"
                                case "curr"
                                    itemNode = "curr"
                                case "pwr"
                                    itemNode = "pwr"
                                case else
                                    itemNode = "sys"
                            end select

                            if (VA.GetText("AVCS_SENS_" + itemID) is nothing)

                                itemLabel = itemLabel.
                                    Replace(" (HH:MM)", "").
                                    Replace("Utilization", "Use").
                                    Replace("Processes", "Process_Count").
                                    Replace("CPU OPT", "Optional CPU").
                                    Replace("PCH Diode", "PCH").
                                    Replace("GPU Diode", "GPU").
                                    Replace("Chassis ", "Case ").
                                    Replace("iGPU", "GPU").
                                    Replace("GPU1", "GPU").
                                    Replace("GPU2", "GPU").
                                    Replace("South Bridge", "Southbridge").
                                    Replace("#", "").
                                    Replace(" ", "_")

                                if (debugSensors)
                                    VA.WriteToLog("(" + itemID + ") " + itemLabel + " = " + itemValue, "yellow")
                                end if


                                select case (node.Name)
                                    case "sys"
                                        itemLabel = itemLabel
                                    case "temp"
                                        itemLabel = itemLabel + "_temp"
                                    case "fan"
                                        if (itemLabel.Contains("Case"))
                                            itemLabel = GetFanLabelKeyword(itemID, itemLabel, itemValue)
                                        else
                                            itemLabel = itemLabel + "_fan"
                                        end if
                                    case "duty"
                                        itemLabel = itemLabel + "_fan_use"
                                    case "volt"
                                        itemLabel = itemLabel + "_voltage"
                                    case "curr"
                                        itemLabel = itemLabel + "_amperage"
                                    case "pwr"
                                        itemLabel = itemLabel + "_wattage"
                                    case else
                                        itemLabel = nothing
                                end select

                                'Get/Set itemLabel function...
                                'save to variable ... save to baselines file
                                if (itemLabel isNot nothing)
                                    VA.SetText("AVCS_SENS_" + itemID, itemLabel)

                                    if (VA.GetInt("AVCS_DATA_SAVED_requests") isNot nothing)
                                        savedRequests = VA.GetInt("AVCS_DATA_SAVED_requests") + 1
                                    else
                                        savedRequests = 1
                                    end if
                                    VA.SetInt("AVCS_DATA_SAVED_requests", savedRequests)
                                    VA.SetText("AVCS_DATA_SAVED_name_" + savedRequests.ToString(), "AVCS_SENS_" + itemID)
                                    VA.SetText("AVCS_DATA_SAVED_value_" + savedRequests.ToString(), itemLabel)

                                end if


                            else
                                itemLabel = VA.GetText("AVCS_SENS_" + itemID)
                            end if

                            'Record this Sensor Data to Variables
                            if (itemLabel isNot nothing)

                                itemData = nothing
                                if (not(itemValue.Contains(":")))
                                    if (VA.GetText("AVCS_SENS_" + itemLabel) isNot nothing)
                                        itemData = VA.GetText("AVCS_SENS_" + itemLabel)
                                        itemData = itemData + "," + itemValue
                                        itemDataAverage = GetAverages(itemData, itemLabel, itemDataPointsTotal)
                                        'Round electric values to two decimal places, else 0 decimal places
                                        if (itemLabel.EndsWith("_voltage") or itemLabel.EndsWith("_amperage") or itemLabel.EndsWith("_wattage"))
                                            itemDataAverage = GetRoundedAverage(itemDataAverage, 2)
                                        else
                                            itemDataAverage = GetRoundedAverage(itemDataAverage, 0)
                                        end if
                                        if (debugSensors)
                                            VA.WriteToLog("New Average for " + itemLabel + " = " + itemDataAverage.ToString(), "grey")
                                        end if
                                        VA.SetText("AVCS_SENS_" + itemLabel, itemData)
                                        VA.SetDecimal("AVCS_SENS_LastAverage_" + itemLabel, itemDataAverage)
                                        if ((VA.GetDecimal("AVCS_SENS_TempDHTc") isNot nothing) andAlso ((diagnosticsSensors.Contains(itemID)) andAlso (itemDataPointsTotal >= itemDataPointsMax)))
                                            if ((VA.GetBoolean("AVCS_SENS_GET_BASELINE") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_GET_BASELINE")))
                                                if ((VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") isNot nothing) andAlso (baselineLevels.Contains(VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL"))))

                                                    if (VA.GetInt("AVCS_DATA_SAVED_requests") isNot nothing)
                                                        savedRequests = VA.GetInt("AVCS_DATA_SAVED_requests") + 1
                                                    else
                                                        savedRequests = 1
                                                    end if

                                                    VA.SetInt("AVCS_DATA_SAVED_requests", savedRequests)
                                                    VA.SetText("AVCS_DATA_SAVED_name_" + savedRequests.ToString(), "AVCS_SENS_SensorAverages_" + VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") + "_" + itemLabel)
                                                    VA.SetText("AVCS_DATA_SAVED_value_" + savedRequests.ToString(), itemData)
                                                    VA.SetText("AVCS_SENS_SensorAverages_" + VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") + "_" + itemLabel, itemData)
                                                end if
                                            end if
                                        end if

                                    else
                                        VA.SetText("AVCS_SENS_" + itemLabel, itemValue)
                                    end if

                                    'Check if this is a temperature sensor
                                    if ((node.Name = "temp") andAlso (VA.GetDecimal("AVCS_SENS_TempDHTc") isNot nothing))

                                        if (debugSensors)
                                            VA.WriteToLog("New Temp Sensor for " + itemLabel + " and Ambient = " + VA.GetDecimal("AVCS_SENS_TempDHTc").ToString(), "yellow")
                                        end if

                                        'Calculate Delta-T over Ambient from DHT11 Temp (c) value
                                        if (Decimal.TryParse(itemValue, valueDeltaToverAmb)) andAlso ((valueDeltaToverAmb <> 0) and (valueDeltaToverAmb > (Decimal.TryParse(VA.GetDecimal("AVCS_SENS_TempDHTc"), valueDHTc))))

                                            valueDeltaToverAmb -= valueDHTc
                                            if (debugSensors)
                                                VA.WriteToLog("New Ambient = " + valueDHTc.ToString(), "yellow")
                                                VA.WriteToLog("New dTa for " + itemLabel + " = " + valueDeltaToverAmb.ToString(), "green")
                                            end if

                                            itemData = nothing
                                            itemDataPointsTotal = 0
                                            itemValue = valueDeltaToverAmb.ToString()
                                            itemLabel = "dTa_" + itemLabel

                                            if (VA.GetText("AVCS_SENS_" + itemLabel) isNot nothing)
                                                itemData = VA.GetText("AVCS_SENS_" + itemLabel)
                                                itemData = itemData + "," + itemValue
                                                itemDataAverage = GetAverages(itemData, itemLabel, itemDataPointsTotal)
                                                itemDataAverage = GetRoundedAverage(itemDataAverage, 3)
                                                if (debugSensors)
                                                    VA.WriteToLog("New Average for " + itemLabel + " = " + itemDataAverage.ToString(), "grey")
                                                end if
                                                VA.SetText("AVCS_SENS_" + itemLabel, itemData)
                                                VA.SetDecimal("AVCS_SENS_LastAverage_" + itemLabel, itemDataAverage)
                                                if ((diagnosticsSensors.Contains(itemID)) andAlso (itemDataPointsTotal >= itemDataPointsMax))
                                                    if ((VA.GetBoolean("AVCS_SENS_GET_BASELINE") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_GET_BASELINE")))
                                                        if ((VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") isNot nothing) andAlso (baselineLevels.Contains(VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL"))))
                                                            if (VA.GetInt("AVCS_DATA_SAVED_requests") isNot nothing)
                                                                savedRequests = VA.GetInt("AVCS_DATA_SAVED_requests") + 1
                                                            else
                                                                savedRequests = 1
                                                            end if

                                                            VA.SetInt("AVCS_DATA_SAVED_requests", savedRequests)
                                                            VA.SetText("AVCS_DATA_SAVED_name_" + savedRequests.ToString(), "AVCS_SENS_SensorAverages_" + VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") + "_" + itemLabel)
                                                            VA.SetText("AVCS_DATA_SAVED_value_" + savedRequests.ToString(), itemData)
                                                            VA.SetText("AVCS_SENS_SensorAverages_" + VA.GetText("AVCS_SENS_SET_BASELINE_LEVEL") + "_" + itemLabel, itemData)
                                                        end if
                                                    end if
                                                end if
                                            else
                                                VA.SetText("AVCS_SENS_" + itemLabel, itemValue)
                                            end if
                                        else
                                            if (debugSensors)
                                                VA.WriteToLog("AVCS SENS ERROR at TryParse Decimal dTa - check code at dTa Calc", "red")
                                            end if
                                        end if
                                    end if
                                else
                                    VA.SetText("AVCS_SENS_" + itemLabel, itemValue)
                                end if
                            end if
                            counter += 1
                        end if
                    next

                    if ((VA.GetInt("AVCS_SENS_MAIN_INTERVAL") isNot nothing) andAlso (VA.GetInt("AVCS_SENS_MAIN_INTERVAL") < 100))
                        VA.SetInt("AVCS_SENS_MAIN_INTERVAL", VA.GetInt("AVCS_SENS_MAIN_INTERVAL") + 1)
                    elseif (VA.GetInt("AVCS_SENS_MAIN_INTERVAL") is nothing)
                        VA.SetInt("AVCS_SENS_MAIN_INTERVAL", 1)
                    end if

                    if (debugStopwatch)
                        VA.WriteToLog("Current Main Interval: " + VA.GetInt("AVCS_SENS_MAIN_INTERVAL").ToString(), "pink")
                    end if

                    'Save To File function for Get Baseline calls
                    if (VA.GetInt("AVCS_DATA_SAVED_requests") isNot nothing)
                        if ((VA.GetBoolean("AVCS_SENS_GET_BASELINE") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_GET_BASELINE")))
                            VA.SetText("AVCS_SENS_SET_BASELINE_LEVEL", "")
                            VA.SetBoolean("AVCS_SENS_ReloadBaselines", true)
                            VA.Command.Execute("F_SFS_SAVE_BASELINES", true)
                            VA.SetBoolean("AVCS_SENS_GET_BASELINE", false)
                        else
                            VA.Command.Execute("F_SFS_SAVE_DATA", true)
                        end if
                    end if

                    if (debugSensors)
                        VA.WriteToLog("New DataPointsMax = " + itemDataPointsTotal.ToString(), "orange")
                        VA.WriteToLog("New System Uptime = " + VA.GetText("AVCS_SENS_WindowsOS_Uptime"), "orange")
                    end if

                    'AVCS Differential Diagnosis Algorithm Section ================================
                    if ((VA.GetDecimal("AVCS_SENS_TempDHTc") isNot nothing) andAlso ((itemDataPointsTotal >= itemDataPointsMax) and ((intervalSensors = 4) or (intervalSensors = 9))))
                        if (debugArduino)
                            VA.WriteToLog("AVCS SENS - Diagnostic Interval Entered....", "yellow")
                        end if
                        if ((VA.GetBoolean("AVCS_SENS_Diagnosing") isNot nothing) andAlso (not(VA.GetBoolean("AVCS_SENS_Diagnosing"))))
                            VA.SetBoolean("AVCS_SENS_Diagnosing", true)
                            if ((VA.GetText("AVCS_SENS_DIAGNOSTIC_SENSORS") isNot nothing) andAlso (VA.GetText("AVCS_SENS_DIAGNOSTIC_SENSORS").Contains(",")))
                                diagnosticsSensors = VA.GetText("AVCS_SENS_DIAGNOSTIC_SENSORS").Split(",").ToArray()
                            end if

                            dim countLow as integer = 0
                            dim countMed as integer = 0
                            dim countHigh as integer = 0
                            dim countExtr as integer = 0

                            for i as integer = 0 to diagnosticsSensors.GetUpperBound(0)
                                if ((diagnosticsSensors(i) <> "") andAlso (VA.GetText("AVCS_SENS_" + diagnosticsSensors(i)) isNot nothing))
                                    currentLabel = VA.GetText("AVCS_SENS_" + diagnosticsSensors(i))
                                    currentAverage = -1

                                    'If it is temperature sensor, data to get is deltaT over Ambient
                                    if (currentLabel.StartsWith("Temp"))
                                        if (VA.GetDecimal("AVCS_SENS_LastAverage_dTa_" + currentLabel) isNot nothing)
                                            currentAverage = VA.GetDecimal("AVCS_SENS_LastAverage_dTa_" + currentLabel)
                                            if (debugSensors)
                                                VA.WriteToLog("AVCS SENS SUCCESS at DifferentialDiagnosis - dta Temp currentAverage is:" + currentAverage.ToString(), "green")
                                            end if
                                        else
                                            if (debugSensors)
                                                VA.WriteToLog("AVCS SENS Error at DifferentialDiagnosis - dta Temp currentAverage is nothing", "red")
                                            end if
                                        end if
                                    else
                                        if (VA.GetDecimal("AVCS_SENS_LastAverage_" + currentLabel) isNot nothing)
                                            currentAverage = VA.GetDecimal("AVCS_SENS_LastAverage_" + currentLabel)
                                            if (debugSensors)
                                                VA.WriteToLog("AVCS SENS SUCCESS at DifferentialDiagnosis - non Temp currentAverage is:" + currentAverage.ToString(), "green")
                                            end if
                                        else
                                            if (debugSensors)
                                                VA.WriteToLog("AVCS SENS Error at DifferentialDiagnosis - non Temp currentAverage is nothing", "red")
                                            end if
                                        end if
                                    end if

                                    if (currentAverage > -1)
                                        DifferentialDiagnostics(currentLabel,currentAverage)

                                        if (VA.GetText("AVCS_SENS_Current_LevelBracket") isNot nothing)
                                            select case (VA.GetText("AVCS_SENS_Current_LevelBracket"))
                                                case historicLevels(0)
                                                    countLow += 1
                                                case historicLevels(1)
                                                    countMed += 1
                                                case historicLevels(2)
                                                    countHigh += 1
                                                case historicLevels(3)
                                                    countExtr += 1
                                                case else
                                                    VA.WriteToLog("AVCS SENS ERROR: Select Case levelBracket failed", "red")
                                            end select
                                        end if
                                        if (debugSensors)
                                            VA.WriteToLog("AVCS SENS DifferentialDiagnosis complete on this set", "green")
                                        end if
                                    else
                                        if (debugSensors)
                                            VA.WriteToLog("AVCS SENS Error at DifferentialDiagnosis Section of Timer Event line 1060", "red")
                                        end if
                                    end if
                                else
                                    if (debugSensors)
                                        VA.WriteToLog("AVCS SENS Error at DifferentialDiagnosis Else line 1031", "red")
                                    end if
                                end if
                            next

                            'Evaluate number of sensors reporting state similar to a low-extreme baseline to assume overall PC state
                            select case (GetLargestInteger(countLow,countMed,countHigh,countExtr))
                                case countLow
                                    VA.SetText("AVCS_SENS_Current_LevelBracket", "LOW")
                                case countMed
                                    VA.SetText("AVCS_SENS_Current_LevelBracket", "MEDIUM")
                                case countHigh
                                    VA.SetText("AVCS_SENS_Current_LevelBracket", "HIGH")
                                case countExtr
                                    VA.SetText("AVCS_SENS_Current_LevelBracket", "EXTREME")
                                case else
                                    VA.SetText("AVCS_SENS_Current_LevelBracket", "LOW")
                            end select
                            countLow = nothing
                            countMed = nothing
                            countHigh = nothing
                            countExtr = nothing
                            VA.SetBoolean("AVCS_SENS_Diagnosing", false)
                            if (debugArduino)
                                VA.WriteToLog("AVCS SENS - Diagnostic Interval Completed....", "green")
                            end if
                        else
                            if (debugArduino)
                                VA.WriteToLog("AVCS SENS - Diagnostic Interval Postponed (bool in use)....", "yellow")
                            end if
                        end if
                    end if

                end if


            else
                VA.WriteToLog("AVCS AIDA64 Sensor Monitor has been terminated...", "black")
                VA.SetBoolean("AVCS_SENS_Monitoring", nothing)
                VA.SetInt("AVCS_SENS_MAIN_INTERVAL", nothing)
                if (VA.GetBoolean("AVCS_SENS_UnloadClose") is nothing)
                    VA.SetText("AVCS_SENS_TTS_WILDCARD", "Sensor Data [Monitoring;;] Systems have been [terminated;disabled;ended]")
                    VA.Command.Execute("F_SAY_TTS", true)
                end if
                sender.Stop()
            end if

            if (debugStopwatch)
                debugWatch.Stop()
                VA.WriteToLog("Interval " + intervalSensors.ToString() + " Function Time to Complete: " + debugWatch.Elapsed.TotalMilliseconds.ToString() + "ms", "pink")
            end if

            VA.SetBoolean("AVCS_MAIN_TIMER_WORKING", nothing)
        end if
    End Sub

    Private Sub MonitorTimer(ByVal timerInterval as integer)
        dim t as New System.Timers.Timer(timerInterval)
        AddHandler t.Elapsed, AddressOf MonitorTimerElapsed
        VA.WriteToLog("AVCS AIDA64 Sensor Monitor is now running...", "black")
        t.Start()
    End Sub


    Public Sub Main()

        'Begin AVCS AIDA64 Sensor Monitor Systems
        if ((VA.GetBoolean("AVCS_SENS_Monitoring") isNot nothing) andAlso (VA.GetBoolean("AVCS_SENS_Monitoring")))

            MonitorDebug(false)
            'DataPointsTotal Config Setting -- when changed, new baselines must be established to include equal data points
            if ((VA.GetDecimal("AVCS_SENS_DataPointsTotal") isNot nothing) andAlso (Decimal.TryParse(VA.GetDecimal("AVCS_SENS_DataPointsTotal"), itemDataPointsMax)))
                if (itemDataPointsMax < 10)
                    itemDataPointsMax = 10
                    if (debugSensors)
                        VA.WriteToLog("AVCS SENS ERROR: DataPointsTotal lower than 10, resetting to minimum 10...", "red")
                    end if
                end if
            end if
            if ((VA.GetInt("AVCS_SENS_MonitorTimerDelay") isNot nothing) andAlso (Integer.TryParse(VA.GetInt("AVCS_SENS_MonitorTimerDelay"), MonitorTimerDelay)))
                if (MonitorTimerDelay < 1000)
                    MonitorTimerDelay = 1000
                    if (debugSensors)
                        VA.WriteToLog("AVCS SENS ERROR: MonitorTimerDelay lower than 1 second, resetting to minimum 1 sec...", "red")
                    end if
                end if
            end if
            VA.SetBoolean("AVCS_SENS_Diagnosing", false)
            VA.SetBoolean("AVCS_SENS_Logging", true)
            MonitorTimer(MonitorTimerDelay)
            'Check if called by autostart - bypass TTS if not called by command or Sensor Menu
            if (VA.ParseTokens("{CMDACTION}") = "Plugin")
                VA.SetText("AVCS_SENS_TTS_WILDCARD", "Sensor Data [Monitoring;;] Systems are now [active;online;ready;engaged]")
                VA.Command.Execute("F_SAY_TTS", true)
            end if
        else
            VA.WriteToLog("AVCS AIDA64 Sensor Monitor called but Shared Memory Monitor not running... exiting...", "red")
            VA.SetBoolean("AVCS_SENS_Logging", false)
            VA.SetBoolean("AVCS_SENS_Monitoring", false)
            MonitorDebug(true)
        end if
        VA.SetBoolean("AVCS_SENS_Monitor_Startup", nothing)
    End Sub

End Class