Vinnerliste

Oppdaterte HSTouch på mobilen til samboeren i dag: "Jøss, så bra det har blitt! Synd ikke hele huset kan bli smart!" Challenge...accepted!

Etter å ha koblet om til 2-wire på "problem" sonene til FGD-212 ser det nå ut som blinkingen jeg har hatt er forsvunnet [emoji4] Og det er godt for det begynte å bli virkelig plagsomt [emoji85] For å ikke snakke om WAF...

Prøv dette: &hs.SetDeviceValueByRef 241, hs.DeviceValueEx(349), True Jada.. &hs.SetDeviceValueByRef SUM_DEV_REF, hs.DeviceValueEx(EN_REF) + hs.DeviceValueEx(NESTE_REF) + hs.DeviceValueEx(ENDA_EN_REF_ETC), True

Du kan evt bruke Jon00 Data Scraper plugin. Da legger du inn URL den skal hente fra og en enkel regex-regel for hva du skal hente ut. Dette blir automatisk lagt til en virtuell device.

For de som ikke vil scripte kan EasyTrigger være et alternativ. Den kan sette en device lik en annen device.

Det hadde jeg gjort, ja.

Da har jeg prøvd litt til. Fant til slutt ut at filene for Curl og Lua kun er for 64bit windows, og jeg kjører 32bit. Fant riktige versjoner på nettet, og la de inn i stedet. Da ser det ut som at scriptet henter inn riktige verdier, men har problemer med å skrive dette til Homeseer. Her er tilbakemelding:

Du legger filene hvor det passer deg, bare .exe-filene og .lua-filene er i samme katalog. Så er det bare å kjøre RunScript.cmd og se om devicene du har definert i HS oppdaterer seg. For å sette dette inn i et Event måtte jeg lage en snarvei til RunScript.cmd, sette snarveien til "Run as Administrator" (for det gjør HomeSeer hos meg), og så kjøre den linken istedenfor RunScript.cmd.

sånn kan det gå..!

SmartToggle.vb "Toggler" en device mellom "Off" og "On Last Level" hvis den finnes (altså er en Z-wave device). Kun mellom "Off" og "On" ellers. Parameter: 400 ... der 400 er device ref til device'n du vil toggle. Public Sub Main(ByVal input As Object) '© Moskus 2015 Dim control As String = input Dim devicevalue As Double = hs.DeviceValueEx(control) Dim capi As HomeSeerAPI.CAPIControl = Nothing If devicevalue = 0 Then 'device is off, so let's trigger "On Last Level" if it exists on the device, and just "On" capi = hs.CAPIGetSingleControl(input, True, "on last level", False, False) If capi Is Nothing Then '"On last Level" wasn't found, so we need to find "On" capi = hs.CAPIGetSingleControl(input, True, "on", False, False) End If Else 'The device is on, so let's turn it offf capi = hs.CAPIGetSingleControl(input, True, "off", False, False) End If If capi IsNot Nothing Then hs.CAPIControlHandler(capi) Else hs.WriteLog("SmartToggle", "Could not execute CAPIcontrol, it's nothing! (Input device value: " & devicevalue & ")") End If End Sub Eventet ser da slik ut: