Gå til innhold
  • Bli medlem
Moskus

SCRIPT: VirtualThermostat.vb (beta) - En virtuell termostat med programfunksjon

Anbefalte innlegg

4 timer siden, Moskus skrev:

5. Scriptet oppretter et device som kjører scriptet hvert 5. minutt

 

Regner med du mener "event"? :) 

Topp script! Må vurdere om jeg skal ta i bruk det i stedet for RFXCOM. :) 

Del dette innlegget


Lenke til innlegg
Del på andre sider
11 minutter siden, ZoRaC skrev:

Regner med du mener "event"? :) 

Wops, indeed!

 

11 minutter siden, ZoRaC skrev:

Topp script! Må vurdere om jeg skal ta i bruk det i stedet for RFXCOM. :) 

Ja, jeg ble litt kjepphøy og opprettet en ny RFXCOM-termostat for å "bevise" at den fungerte fint.

Det gjorde den ikke, så da måtte jeg jo bare krype til korset og fullføre scriptet... ;) 

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider

Vakkert. En liten sak, dukker ikke opp i Imperihome eller HStouch som termostat. Lurer på om det kan skyldes at devicen mangler info på 

Device Type Internal: No API, Type: Type 0, SubType:

Endret av Johs.

Del dette innlegget


Lenke til innlegg
Del på andre sider

Det er riktig. Det er ingen termostat, teknisk sett, og i scripts kan jeg ikke implementere Thermostat API som kreves for at HomeSeer teknisk sett skal definere det som en.

Men det går å justere temperaturen med devicene. :) 

 

Det er ikke bare å sette riktig "Device Type", men det må også implementeres noen forhåndsdefinerte rutiner som scriptpakken ikke kan gjøre. Men det får bli når jeg oppgraderer scriptet til en plugin. ;) 

Del dette innlegget


Lenke til innlegg
Del på andre sider

Mulighet for å legge til flere enn en HeaterDeviceReference?(Har fire panelovner tilkoblet hver sine wall-plugs på stua)

Del dette innlegget


Lenke til innlegg
Del på andre sider
9 timer siden, gullfrode skrev:

Mulighet for å legge til flere enn en HeaterDeviceReference?(Har fire panelovner tilkoblet hver sine wall-plugs på stua)

Tja... det er teknisk mulig å skrive om scriptet slik at HeaterDeviceReference er en kommaseparert liste...?

 

Det jeg hadde gjort er å først lage en virtuell device som heter f.eks. "Varme", og så laget to eventer som skrur av eller på alle panelovnene dine når "Varme" blir skrudd av eller på. Deretter er det bare å la scriptet styre "Varme" istedenfor å styre panelovnen direkte. :) 

Del dette innlegget


Lenke til innlegg
Del på andre sider
1 minutt siden, ZoRaC skrev:

I siste versjon av HS kan man linke devicer. Kan man ikke bare linke panelovnene?

Jo! Det er faktisk en mulignet! :)

Hvis man vil kunne styre det avhengig av tid på døgnet kan man jo også bruke CloneDevice.vb-scriptet mitt.

 

Tenkte ikke på den muligheten... 😖

:P 

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider

Kongle!

Master Moskus, får du til å implementere i scriptet at om en/flere dørsensorer er åpen så skrur ovnene seg av, eller må man løse det med  if VD ditt eller datt. 

Begynner å bnærme seg funksjonalitet i Hc2 dette Homeseergreiene;-P

Del dette innlegget


Lenke til innlegg
Del på andre sider
Et øyeblikk siden, gullfrode skrev:

Master Moskus, får du til å implementere i scriptet at om en/flere dørsensorer er åpen så skrur ovnene seg av, eller må man løse det med  if VD ditt eller datt.

Du kan komme veldig langt med scripting, men når scriptet trenger input fra andre sensorer, så må man uansett til med et event. Da kan man like greit lage et event som skrur av termostaten når du åpner vinduet, og på igjen etterpå.

 

Eventuelt kan du bruke DeviceState.vb-scriptet mitt til å lagre statusen på termostaten (mode og temperatur), slik at du kan få nøyaktig samme innstilling før og etter åpning av vinduet/døren.

 

 

... med mindre @ZoRaC kommer på en mulighet jeg har oversett. ;) 

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider
1 time siden, gullfrode skrev:

Kongle!

Master Moskus, får du til å implementere i scriptet at om en/flere dørsensorer er åpen så skrur ovnene seg av, eller må man løse det med  if VD ditt eller datt. 

I mitt system, endrer jeg bare settpunkt på termostaten til f.eks 10grader når dører/vinduer åpnes.

Del dette innlegget


Lenke til innlegg
Del på andre sider
9 minutter siden, Blodstrupmoen skrev:

I mitt system, endrer jeg bare settpunkt på termostaten til f.eks 10grader når dører/vinduer åpnes.

Men da er det en reell termostat og ikke en virtuell?

Del dette innlegget


Lenke til innlegg
Del på andre sider
15 minutter siden, Blodstrupmoen skrev:

I mitt system, endrer jeg bare settpunkt på termostaten til f.eks 10grader når dører/vinduer åpnes.

Utfordringen er mer hva du skal sette den til når du lukker vinduet igjen. :)

 

Del dette innlegget


Lenke til innlegg
Del på andre sider
Et øyeblikk siden, Moskus skrev:

Utfordringen er mer hva du skal sette den til når du lukker vinduet igjen. :)

Da settes den til den verdien som er relevant for tidspunkt på døgnet. Fungerer utmerket.

 

Målet mitt med HA er at det skal være automatisk, og man skal slippe å trykke/skru på knapper for å få det som man vil. Dette har jeg oppnådd ganske bra, og det er ytterst sjelden det er behov for å endre temp, lys etc. ut over det som er satt i systemet. Men hvis man skulle ha endret settpunkt manuelt, så vil det jo gå tilbake til standard verdi etter av vindu/dør har vært åpnet. Dette ser jeg på som helt uproblematisk.

Del dette innlegget


Lenke til innlegg
Del på andre sider

Ja. Og det er fint mulig med HomeSeer hvis man kan scripte det. Som sagt, er det faktisk relativt enkelt med dette scriptet, men man får jo selvfølgelig enda flere muligheter hvis man bygger det selv.

 

Det jeg har gjort, er å sette skru av termostaten (eller sette setpoint til lav -> samme effekt), og så sette den på Auto etterpå (siden Auto kan gi deg forskjellig temperatur basert på klokkeslett).

Ferdig arbeid. :)

 

Del dette innlegget


Lenke til innlegg
Del på andre sider

Event som setter til manuell og gitt temp ved åpen dørsensor fungerte selvfølgelig fint med VD-ene. 

Lagde bare som Moskus foreslo en VD for rom med flere varmenoder, og egen event for av og på. 

Men hvordan implementere fridager-scriptet i scriptet, slik at Alternative scedule blir valgt på fridager?

Del dette innlegget


Lenke til innlegg
Del på andre sider
Den ‎15‎.‎04‎.‎2017 klokken 14.45, gullfrode skrev:

Men hvordan implementere fridager-scriptet i scriptet, slik at Alternative scedule blir valgt på fridager?

Hva nøyaktig er problemet? Det er vel bare å implementere scriptet, og referere det i .ini-filen?

Del dette innlegget


Lenke til innlegg
Del på andre sider
Hva nøyaktig er problemet? Det er vel bare å implementere scriptet, og referere det i .ini-filen?

Ikke noe problem, bare løsning.
Dvs AlternativeScheduleDeviceReference="Reference ID på Fridag-device"
Takk Moskus, noob som nevnt.
  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider

Hei,

 

denne er veldig aktuell for meg. Har fulgt oppskriften over (flere ganger), men får ikke dette til å virke. Det blir ikke opprettet noe event jeg kan jobbe videre med.

Har fulgt oppskriften til punkt og prikke.

(kan sies at jeg "remoter" inn)

 

Noen tips?

 

takk,

 

S

Del dette innlegget


Lenke til innlegg
Del på andre sider

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå

  • Lignende innhold

    • Av HSv
      Jeg mener dette er min første post her - jeg har hatt mye hjelp av å lese her, og nå er det kanskje på tide jeg bidrar litt.

      Jeg har kikket etter et script som gjør det jeg ønsker (...og ikke minst på den måten jeg ønsker:-) uten å finne det - og har derfor prøvd å skrive et selv.
      Jeg har "hentet inspirasjon" fra noen av Moskus' scripts.
      Input parametre:
         <deviceref>:<start>:<stop>:<time>
       
      Litt opplagt igrunn - men uansett vil dette endre devicen fra start til stopp, og bruke (tilnærmet) tid på det. (På grunn av litt avrundinger, så kan det ta noen sekunder mer eller mindre enn det du oppgir)
      For å ikke sende altfor mange kommandoer, så begrenser jeg meg per default til maks 4 kommandoer per sec (kan konfigureres)
       
      Noen spesialverdier:
      start = -1 - da leser jeg nåværende verdi, og dimmer til stoppverdi
      start = -2 - da leser jeg nåværende verdi, og øker/minker denne med stoppverdien
       
      Eksempler:
      100:10:30:5 - skru dev 100 fra 10% til 30% (uavhengig av hva nåværende verdi er)- og bruke 5 sec på det
      100:-1:30:5 - skru device fra nåværende verdi til 30% - og bruke 5 sec.
      100:-2:-10:5 - endre device 100 med sluttverdien. Her er både positiv og negativ verdi tillatt - Om device 100 var på 35% før du startet scriptet, så vil den være på 25% etterpå. (og igjen - bruker  5 sec)
       
      Dette er ikke veldig foolproof - det er helt sikkert mulig å legge inn verdier som kræsjer hele scriptet - men så lang så fungerer det som jeg vil.
      Blant annet så tester det ikke om det finnes noe <deviceref>... (ikke ennå iallefall)
      Jeg kjører HomeSeer på Linux - ikke testet ut på en Windows-serveer (Og jeg har strengt tatt ikke planer om å gjøre det heller...)
       
      Jeg bruker det hovedsakelig til to ting: Styre utelyset mitt på en litt elegant måte, samt å skånsomt skru opp lyset på soverommet om morgenen.
       
      Kommentarer er mer en velkommen. Endringsforslag og "bug-reports" likeså
       
       
       
    • Av Moskus
      Dette scriptet lar deg hente inn trafikkinformasjon fra EnTur.  
       
      Finne reiseruter, IDer for "StopPlace" og "Quay"
      Å bruke scriptet er ikke så vanskelig. Det vanskelige er å finne IDene til stasjonene du vil spore. 
       
      La oss si at jeg vil finne alle busser som går fra "Tasta Senter" (og mot Stavanger sentrum, men det kommer vi tilbake til)
      Gå til en-tur.no Tast inn stoppesteder til og fra Kopier URL'en fra nettleseren etter søket (f.eks. som denne) inn URLdecoder.org for å gjøre den lettere å lese. Finn "startID" og kopier ut strengen som begynner med "NSR:". For Tasta Senter er denne "NSR:StopPlace:28163"
       
       
      Vel og bra!  Nå vet vi at busstoppet ved Tasta Senter heter "NSR:StopPlace:28163". Men et busstopp kan faktisk ha flere plattformer, f.eks. en på hver side av veien. Det heter visst "Quay" på engelsk.
       
      Jeg er ikke interessert i begge sider av veien for kun en av dem har vanligvis trafikk mot sentrum. For å finne Quay, må vi bruke GraphQL-exploreren til EnTur (som dessverre ikke er like forseggjort som Tibber sin). Vi er interessert i denne spørringen som finner alle avganger for et stoppested, og vi må endre id: "NSR:StopPlace:28163" og avgangstiden (startTime:"2018-06-19T09:00:00+0200") til det riktige. I skrivende stund ser min spørring slik ut. 
       
      Så går vi gjennom resultatene, vi skal prøve å finne riktig "Quay".
       
      Det første treffet er inneholder denne teksten:
      "destinationDisplay": { "frontText": "Tasta - Vardeneset" }, "quay": { "id": "NSR:Quay:48450" }, ... men en buss med "Tasta - Vardeneset" tar meg i feil retning! Ergo er "NSR:Quay:48450" ikke riktig.
       
      Det neste treffet inneholder dette:
      "destinationDisplay": { "frontText": "Stavanger" }, "quay": { "id": "NSR:Quay:48449" }, Jepp! Riktig! Altså kan vi filtrere på "NSR:Quay:48449" for å finne avganger fra "NSR:StopPlace:28163" som kun går mot Stavanger.
       
       
       
      Installasjon
      Du trenger en referanse til Newtonsoft.Json.dll for at scriptet skal fungere. Json er mye i bruk i dag, og siden jeg har oppdaget at Webclient nå er innebygget i HS3 (og superenkel å bruke), så er det bare å legge inn Json-støtte for scripting også.
       
      Lukk HS3. Åpne settings.ini Finn linjen som begynner med ScriptingReference= Vanligvis står det kun System.Core;System.Core.dll. Vi skal legge til Newtonsoft bak der. Hos meg (på Windows) skal linjen da se slik ut:  
      ScriptingReferences=System.Core;System.Core.dll,Newtonsoft.Json;C:\Program Files (x86)\HomeSeer HS3\Bin\homeseer\Newtonsoft.Json.dll Lagre og start HS3 igjen. For Linux skal den muligens se slik ut, men du må sjekke plasseringen på /bin/homeseer/Newtonsoft.Json.dll selv.
      ScriptingReferences=System.Core;System.Core.dll,Newtonsoft.Json;/usr/local/HomeSeer/bin/homeseer/Newtonsoft.Json.dll  
       
      Kopier scriptet under og lagre det som EnTur.vb. Etter massiv testing fra @Tor-Erik er vi ganske sikre på at det også kjører på Linux.  
       
      EnTur.vb:
       
       
      Du må også lage deg noen devicer selv for å faktisk vise data. Dette gjør foreløpig ikke scriptet for deg. Den trenger ingen status values, men kanskje en enkel status Graphics for å ha et ikon (istedenfor Off/Dim/On-ikoner)
        

       

       
       
       
      Så trenger vi et event for å oppdatere teksten. Dette kan f.eks. kjøre hvert minutt.
      Parametre for funksjonen "CallsFromStopplace" er deviceID, stopplaceID, quayID (optional), antall_avganger (optional).
       

       
      Du kan ha flere script-kall i et event, hvis du har flere stopp, avganger, etc du vil kontrollere.  
       

       
       
      Parametre for funksjonen "TripsBetweenStops" er deviceID, stopplaceID (fra), stopplaceID (til), antall_avganger (optional). Det er et enkelt ruteoppslag, fint fra større stasjoner (f.eks. "Stavanger") til et bestemt stoppested.
       
      DeviceValue i hver device er antall minutter til neste avgang. Kan brukes til automasjon.  
       

       
       
    • Av ZoRaC
      Vi har HSTouch på mobilene våre og jeg har lenge tenkt jeg skulle legge inn noen av de grafene jeg har tilgang på fra Device History.
      Startet med det i dag og da innså jeg at det var veldig begrenset hvor mye man kunne tilpasse grafene via vanlig event, mens man kunne gjøre mye mer tilpassninger via script. Med script ble det også en fordel at man bare trenger å endre ett sted om jeg vil endre noe på designet på grafene, i stedet for å måtte endre mange events.
       
      Sub Main(ByVal params as Object) ' @Author: ZoRaC ' @Version: 1.1 (2019-01-09) ' @Syntax: dvRef|time in hours|Y1-label ' SETTINGS Dim parameters() as String = params.ToString.Split("|") Dim dvRef As String = parameters(0) Dim hours As Integer = parameters(1) Dim y1Lbl As String = parameters(2) Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(dvRef) Dim dvName As String = dv.Name(Nothing) Dim filename As String = Nothing Dim seconds As Integer = hours*60*60 Dim timeString As String = parameters(1) & " timer" If hours > 24 Then timeString = "1 dag" End If If hours > 48 Then timeString = TimeSpan.FromSeconds(seconds).Days & " dager" End If ' CREATE GRAPH filename = hs.PluginFunction("Device History", "", "CreateChartEx",New Object(){dvRef,"{'Title': '" & dvName & " (" & timeString & ")', 'Y1Label': '" & y1Lbl & "','Y2Label': '','XLabel': 'Dato/Tid', 'ShowLegend': false, 'DurationType': 2, 'PeriodType': 1, 'Periods': " & hours & ", 'Style': 2, 'UseMarkers': false, 'Width': 460, 'Height': 310, 'RotateDegrees': 270}", "", ""}) End Sub I manualen til Device History finnes det mange flere parametere man kan putte inn for å tilpasse utseendet på grafen.
       
      Scriptet gir f.eks dette (med parametere: "789|24|% RH"):

       
      I HSTouch har jeg laget egne screens:
       
       
      Jeg har laget 3 events pr rom:

       
      På de 3 tekst-knappene over grafen har jeg satt "IgnorePresses=false" og lagt inn dette i "ActionWhenPressed":

       
      Vent i 1000ms, slik at den rekker å generere bildet.
       
      Deretter tvinger den den til å laste bildet på nytt - setter bare URL til det samme som den opprinnelig er (PNG-URLen):

       
      Slik ble resultatet:

    • Av Moskus
      Dette scriptet lar deg logge alle bevegelser til en device, slik at det blir enklere å se på web eller HStouch. Bevegelser (eller enhver hendelse) blir da logget slik.
       

       
       MotionLog.vb (ny)
      Public Sub Main(ByVal input As Object) Dim logDeviceRef As Integer = 1081 ' Update this Dim count As Integer = 9 'Maximum number of lines shown on the device - 1. 9 means 10 lines are shown Dim currentText As String = hs.DeviceString(logDeviceRef) currentText = currentText.Replace("<br>", "|") Dim lines() As String = currentText.Split("|") If lines.GetLength(0) < count Then count = lines.GetLength(0) Dim oldLines(count - 1) As String Array.Copy(lines, oldLines, count) 'Creating the device text Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString If lines.GetLength(0) > 0 And lines(0) <> "" Then newText &= "<br>" 'Adding the previous lines newText &= String.Join("<br>", oldLines) 'Updating the device string hs.SetDeviceString(logDeviceRef, newText, True) 'hs.TriggerEvent("Restart SisteBeveglse timer") lines = Nothing oldLines = Nothing End Sub  
       
       
      For hver bevegelsessensor har jeg da et event som blir trigget ved bevegelse (selvfølgelig! ), som i tillegg til å styre lys der det er nødvendig, kjører dette scriptet med sub Main og parameter med navnet på sensoren, som "Kjøkken" eller "Stue".
       
      I tillegg har jeg en timer som he ter "SisteBevegelse", som jeg resetter når dette skjer. Hvis du også vil bruke dette, må du opprette den timeren, lage et Event (som jeg har kalt "Restart SisteBevegelse timer" fordi det ikke finnes kode for å restarte den), og fjerne fnutten foran den nest siste linjen i koden.
       
       
      EDIT: Oppdatert slik at det blir penere i HStouch.  
      EDIT2:  Bruker arrays for å gjøre scriptet enklere. Burde nå kjøre på Linux uten problemer.
    • Av Jonnyhar
      Hei.
       
      Jeg har laget et script for å starte og parkere Gardena Smart Sileno gressklippere. Testet og fungerer på min Gardena Smart Sileno R100Li.
      Legg inn e-postadressen, passordet, og navnet på klipperen på linje 12->14 i skriptet.
      Sett logJson = True for å se alt i json-responsen fra Gardena. Det ligger mye nyttig informasjon i responsen fra get_device_id.
       
      Kall scriptet med parameter start eller stop.
      Disse parametrene blir så brukt lenger nede i scriptet til:
       
          'Available start commands:
          'Start according to schedule: "{""name"":""start_resume_schedule"", ""parameters"":{}}"
          'Start overriding schedule. Run for 1440 minutes: "{""name"":""start_override_timer"", ""parameters"":{""duration"": 1440}}"
          
          'Available stop commands:
          'Park and pause all schedules: "{""name"":""park_until_further_notice""}"
          'Park and start again at next schedule: "{""name"":""park_until_next_timer""}"
      Imports System.IO Imports System.Net '*** Choose if json-responces should get written to the log *** Const logJson As Boolean = False '************************************************************** Public Sub Main(ByVal command As String) '*** Put in e-mailadress and password and lawnmover-name *** '*** They must be exactly as entered into the Gardena app *** Dim email As String = "myemail@gmail.com" Dim password As String = "Mypassword" Dim mower_name As String = "Name_of_lawnmower_in_gardena_app" '************************************************* '*** NO NEED TO EDIT BEHIND THIS POINT! *** '************************************************* 'Get token and username Dim jsonGetToken As String = "{""sessions"":{""email"":""" & email & """,""password"":""" & password & """}}" Dim tokenAndUser() As String = getToken(jsonGetToken) 'Get location Dim location As String = getLocation(tokenAndUser) 'Get device-id for lawnmover set in mower_name Dim locationAndToken(3) as String locationAndToken(0) = tokenAndUser(0) locationAndToken(1) = location locationAndToken(2) = mower_name Dim deviceId As String = getdeviceId(locationAndToken) 'Send start or stop command to mower Dim data(4) as String data(0) = tokenAndUser(0) data(1) = location data(2) = deviceId data(3) = command sendCommand(data) End Sub Public Function getToken(json As string) As String() 'Get token and user ID based on e-mail and password Dim strURL As String = "https://sg-api.dss.husqvarnagroup.net/sg-1/sessions" Dim myWebReq As HttpWebRequest Dim myWebResp As HttpWebResponse Dim encoding As New System.Text.UTF8Encoding Dim sr As StreamReader Dim result(2) As String Try Dim data As Byte() = encoding.GetBytes(json) myWebReq = DirectCast(WebRequest.Create(strURL), HttpWebRequest) myWebReq.ContentType = "application/json" myWebReq.ContentLength = data.Length myWebReq.Method = "POST" Dim myStream As Stream = myWebReq.GetRequestStream() If data.Length > 0 Then myStream.Write(data, 0, data.Length) myStream.Close() End If myWebResp = DirectCast(myWebReq.GetResponse(), HttpWebResponse) sr = New StreamReader(myWebResp.GetResponseStream()) Dim responseText As String = sr.ReadToEnd() if logJson Then hs.WriteLog("Gardena", "Response getToken: " & responseText) End If 'Search json for token Dim sSource As String = responseText 'String that is being searched Dim sDelimStart As String = """token"":""" 'First delimiting word Dim sDelimEnd As String = """,""user_id" 'Second delimiting word Dim nIndexStart As Integer = sSource.IndexOf(sDelimStart) 'Find the first occurrence of f1 Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'Find the first occurrence of f2 If nIndexStart > -1 AndAlso nIndexEnd > -1 Then '-1 means the word was not found. Dim token As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'Crop the text between hs.WriteLog("Gardena", "Token: " & token) 'We got the token, continue to get the user id sDelimStart = "user_id"":""" 'First delimiting word sDelimEnd = """,""refresh_token" 'Second delimiting word nIndexStart = sSource.IndexOf(sDelimStart) 'Find the first occurrence of f1 nIndexEnd = sSource.IndexOf(sDelimEnd) 'Find the first occurrence of f2 If nIndexStart > -1 AndAlso nIndexEnd > -1 Then '-1 means the word was not found. Dim user As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'Crop the text between hs.WriteLog("Gardena", "User: " & user) result(0) = token result(1) = user return result Else hs.WriteLog("Gardena", "Error: Did not receive user ID") End If Else hs.WriteLog("Gardena", "Error: Did not receive token") End If Catch ex As Exception : hs.writelog("Gardena", "Error: " & ex.Message.ToString) End Try End Function Public Function getLocation(tokenAndUser() As String) As String 'Get location based on token and user id Dim token As String = tokenAndUser(0) Dim user As String = tokenAndUser(1) Dim strURL As String = "https://sg-api.dss.husqvarnagroup.net/sg-1/locations/?user_id=" & user Dim myWebReq As HttpWebRequest Dim myWebResp As HttpWebResponse Dim sr As StreamReader Try myWebReq = DirectCast(WebRequest.Create(strURL), HttpWebRequest) myWebReq.ContentType = "application/json" myWebReq.Method = "GET" myWebReq.Headers.Add("X-session", token) myWebResp = DirectCast(myWebReq.GetResponse(), HttpWebResponse) sr = New StreamReader(myWebResp.GetResponseStream()) Dim responseText As String = sr.ReadToEnd() if logJson Then hs.WriteLog("Gardena", "Response getLocation: " & responseText) End if 'Search json for location Dim sSource As String = responseText 'String that is being searched Dim sDelimStart As String = """id"":""" 'First delimiting word Dim sDelimEnd As String = """,""name" 'Second delimiting word Dim nIndexStart As Integer = sSource.IndexOf(sDelimStart) 'Find the first occurrence of f1 Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'Find the first occurrence of f2 If nIndexStart > -1 AndAlso nIndexEnd > -1 Then '-1 means the word was not found. Dim location As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'Crop the text between hs.WriteLog("Gardena", "Location: " & location) return location Else hs.WriteLog("Gardena", "Error: Did not receive location") End If Catch ex As Exception : hs.writelog("Gardena", "Error: " & ex.Message.ToString) End Try End Function Public Function getdeviceId(tokenAndLocation() As String) As String 'Get device id for lawnmover based on location and mower_name Dim token As String = tokenAndLocation(0) Dim location As String = tokenAndLocation(1) Dim mower_name As String = tokenAndLocation(2) Dim strURL As String = "https://sg-api.dss.husqvarnagroup.net/sg-1/devices?locationId=" & location Dim myWebReq As HttpWebRequest Dim myWebResp As HttpWebResponse Dim sr As StreamReader Try myWebReq = DirectCast(WebRequest.Create(strURL), HttpWebRequest) myWebReq.ContentType = "application/json" myWebReq.Method = "GET" myWebReq.Headers.Add("X-session", token) myWebResp = DirectCast(myWebReq.GetResponse(), HttpWebResponse) sr = New StreamReader(myWebResp.GetResponseStream()) Dim responseText As String = sr.ReadToEnd() if logJson Then hs.WriteLog("Gardena", "Response getLocation: " & responseText) End If 'Finn Device ID Dim sSource As String = responseText 'String that is being searched Dim sDelimEnd As String = """,""name"":""" & mower_name & """,""category"":""mower""" 'Second delimiting word Dim nIndexStart As Integer = sSource.IndexOf(sDelimEnd) - 36 Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'Find the first occurrence of f2 If nIndexStart > -1 AndAlso nIndexEnd > -1 Then '-1 means the word was not found. Dim deviceId As String = Strings.Mid(sSource, nIndexStart + 1, nIndexEnd - nIndexStart) 'Crop the text between hs.WriteLog("Gardena", "Device ID: " & deviceId) return deviceId Else hs.WriteLog("Gardena", "Error: Did not receive device ID") End If Catch ex As Exception : hs.writelog("Gardena", "Error: " & ex.Message.ToString) End Try End Function Public Function sendCommand(data() As String) 'Send start or stop to the mower. Dim token As String = data(0) Dim location As String = data(1) Dim device As String = data(2) Dim command As String = data(3) Dim json As String '*** Here you can change what start and stop does.*** 'Available start commands: 'Start according to schedule: "{""name"":""start_resume_schedule"", ""parameters"":{}}" 'Start overriding schedule. Run for 1440 minutes: "{""name"":""start_override_timer"", ""parameters"":{""duration"": 1440}}" 'Available stop commands: 'Park and pause all schedules: "{""name"":""park_until_further_notice""}" 'Park and start again at next schedule: "{""name"":""park_until_next_timer""}" if command = "start" Then json = "{""name"":""start_resume_schedule"", ""parameters"":{}}" else if command = "stop" Then json = "{""name"":""park_until_further_notice""}" else hs.writelog("Gardena", "Error: Angi start eller stop som parameter") End If Dim strURL As String = "https://sg-api.dss.husqvarnagroup.net/sg-1/devices/" & device & "/abilities/mower/command?locationId=" & location Dim myWebReq As HttpWebRequest Dim myWebResp As HttpWebResponse Dim encoding As New System.Text.UTF8Encoding Dim sr As StreamReader Try Dim data As Byte() = encoding.GetBytes(json) myWebReq = DirectCast(WebRequest.Create(strURL), HttpWebRequest) myWebReq.ContentType = "application/json" myWebReq.ContentLength = data.Length myWebReq.Headers.Add("X-session", token) myWebReq.Method = "POST" Dim myStream As Stream = myWebReq.GetRequestStream() If data.Length > 0 Then myStream.Write(data, 0, data.Length) myStream.Close() End If myWebResp = DirectCast(myWebReq.GetResponse(), HttpWebResponse) sr = New StreamReader(myWebResp.GetResponseStream()) Dim responseText As String = sr.ReadToEnd() hs.WriteLog("Gardena", "Sent command: " & command) Catch ex As Exception : hs.writelog("Gardena", "Error: " & ex.Message.ToString) End Try End Function  
×