Yale-lås i HS3

[mk1 black limited]

Moskus: Det flotte scriptet du lagde til HS2 (yalelockinterpreter.vb), kan det brukes i HS3? Hvis ikke, hvordan får man ut av HS3 hvem som har åpnet døra (basert på pinkode)?

 

Får sendt epost om status på låsen, men det me hvem som åpnet døra sliter jeg litt med.

[mk1 black limited]

Da er jeg ordentlig over på HS3. Byttet z-wavekontroller til UZB også, det var superenkelt. Nå mangler jeg egentlig bare en løsning for det over...

[Moskus]

Moskus: Det flotte scriptet du lagde til HS2 (yalelockinterpreter.vb), kan det brukes i HS3? Hvis ikke, hvordan får man ut av HS3 hvem som har åpnet døra (basert på pinkode)?

 

Får sendt epost om status på låsen, men det me hvem som åpnet døra sliter jeg litt med.

Nei, ikke direkte. Scripts må skrives om, for HS3 er smartere enn HS2, men bittelitt vanskeligere å kode for.

 

Jeg har imidlertid noe liggende som jeg bruker selv (det ligner VELDIG), så jeg skal få hostet sammen noe lesbart.

[mk1 black limited]

 

Moskus: Det flotte scriptet du lagde til HS2 (yalelockinterpreter.vb), kan det brukes i HS3? Hvis ikke, hvordan får man ut av HS3 hvem som har åpnet døra (basert på pinkode)?

 

Får sendt epost om status på låsen, men det me hvem som åpnet døra sliter jeg litt med.

Nei, ikke direkte. Scripts må skrives om, for HS3 er smartere enn HS2, men bittelitt vanskeligere å kode for.

 

Jeg har imidlertid noe liggende som jeg bruker selv (det ligner VELDIG), så jeg skal få hostet sammen noe lesbart.

 

 

Strålende, venter i spenning!

[mk1 black limited]

 

Moskus: Det flotte scriptet du lagde til HS2 (yalelockinterpreter.vb), kan det brukes i HS3? Hvis ikke, hvordan får man ut av HS3 hvem som har åpnet døra (basert på pinkode)?

 

Får sendt epost om status på låsen, men det me hvem som åpnet døra sliter jeg litt med.

Nei, ikke direkte. Scripts må skrives om, for HS3 er smartere enn HS2, men bittelitt vanskeligere å kode for.

 

Jeg har imidlertid noe liggende som jeg bruker selv (det ligner VELDIG), så jeg skal få hostet sammen noe lesbart.

 

Bare en påminnelse om denne, når du får tid og lyst...

[Moskus]

Du, altså...

 

Se under. Du må (minst) endre på den første linja og den siste linja. 451 er min deviceRef til devicen' som heter "Notification". Det er den som håndterer beskjeder. Jeg sender bare beskjedene videre med growl og Pushalot, men du kan også oppdatere device string på device'n (451 hos meg).

Sub Main(ByVal input As String)
    Dim CAPIstatus As HomeSeerAPI.CAPIStatus = hs.CAPIGetStatus(451)

    Dim status As String = CAPIstatus.Status
    Select Case CAPIstatus.Value
        Case Is = 110
            status = "Opplåst manuelt"

        Case Is = 111
            status = "LÅST manuelt"

        Case Is = 120
            status = "Opplåst av HomeSeer"

        Case Is = 121
            status = "LÅST av HomeSeer"

        Case Is = 1001
            status = "MASTER låste opp"

        Case Is = 1002
            status = "Person1 låste opp"

        Case Is = 1003
            status = "Person2 låste opp"

        Case Is = 1004
            status = "Person3 låste opp"

        Case Is = 1005
            status = "Person4 låste opp"

        Case Is = 1007
            status = "Person5 låste opp"

    End Select

    'Disse to linjene er kommentert ut, for de er spesifikt til mitt oppsett...
    'System.Diagnostics.Process.Start("c:\" & "PushalotConsole.exe", "6cb42xxxxxxxf754779 ""Ytterdør"" """ & status & "")
    'hs.RunScriptFunc("Growl.vb", "Main", "Ytterdør#" & status, False, False)

    hs.SetDeviceString(451, status, False)
End Sub

Endret 20. juli 2015 av Moskus

[mk1 black limited]

 

Du, altså...

 

Se under. Du må (minst) endre på den første linja og den siste linja. 451 er min deviceRef til devicen' som heter "Notification". Det er den som håndterer beskjeder. Jeg sender bare beskjedene videre med growl og Pushalot, men du kan også oppdatere device string på device'n (451 hos meg).

Strålende, takk! Et par spørsmål - koden din inneholder PushalotConsole.exe, kan den lastes ned et sted? Evt. kan man ikke bruke Pushover-plugin'en i stedet?

 

Også Growl.vb er jeg litt spent på hvordan ser ut...

 

Forresten, hvorfor bruker du begge?

[Moskus]

Jeg bruker Growl fordi jeg enda har et stort Growl-nettverk til diverse PCer, men jeg installerer det ikke på nye. Og så er det ingen native Growl-plugin (bl.a fordi jeg ikke har giddet å skrive en). Og så fungerer push videre til NotifyMyAndroid fint med Growl.

 

Pushalot bruker jeg på nye PCer og mobiler (for selvfølgelig bruker man det overlegne mobile OSet Windows Phone. Go Windows 10!!). Det trengtes et enkel console-app som jeg skrev, kan ikke lastes ned noe sted. Utenom her.

 

Growl.vb:

    Sub Main(ByVal title_pound_message As String)
        'growlnotify.exe /host:IP_ADDRESS /pass:PASSWORD /a:"HS3 Script" /n:"HS3 Script" /t:"This is the title" "This is the message to display"

        Dim host As String = "192.168.0.10" 'The IP to the growl server
        Dim password As String = "the_network_password"
        Dim title As String = title_pound_message.Split("#")(0)
        Dim message As String = title_pound_message.Split("#")(1)

        System.Diagnostics.Process.Start("c:\" & "growlnotify.com", "/host:" & host & " /pass:" & password & " /a:""HS3 Script"" /n:""HS3 Script"" /t:""" & title & """ """ & message & """")
    End Sub

    Sub Register(ByVal input_not_used As String)
        'growlnotify.exe /host:192.168.0.10 /pass:PASSWORD  /r:"HS3 Script" /a:"HS3 Script" /ai:"c:\hs3.ico" /t:"Register" "Register this!"

        Dim host As String = "192.168.0.10" 'The IP to the growl server
        Dim password As String = "the_network_password"
        Dim title As String = "Register!"
        Dim message As String = "Registerthis!"

        System.Diagnostics.Process.Start("c:\" & "growlnotify.com", "/host:" & host & " /pass:" & password & " /r:""HS3 Script"" /a:""HS3 Script"" /ai:""c:\hs3.ico"" /t:""" & title & """ """ & message & """")
    End Sub

PushalotConsole.zip

Endret 20. juli 2015 av Moskus