clio75

Kan du prøve å sette denne til 3 ? Når jeg får mer tid skal jeg prøve å finne en måte å gjøre den delen mer robust. Om noen vet hvordan man kan finne ut hvor mange elementer det er i Json arrayet så skrik gjerne ut

Livet er som en kommode; Skuff på skuff ??

Hva skal hentes denne uka er et gjentagende SPM hjemme hos oss. Så jeg fant APPEN "Min renovasjon.". Men en app er jo ikke løsningen på noe. For man vil jo ha denne informasjonen inn i homeseer. MinRenovasjon.vb Sub Main(ByVal parameters As Object) 'Clio75 All Credits to [email protected] 'Inspired and based on Moskus scrip NewsReader.vb Dim DevID As Integer = parameters.ToString.Split("|")(0) Dim KommuneNr As String = parameters.ToString.Split("|")(1) Dim Gatekode As String = parameters.ToString.Split("|")(2) Dim GateNavn As String = parameters.ToString.Split("|")(3) Dim GateNr As String = parameters.ToString.Split("|")(4) 'Sette sammen URL: Dim kommuneURL as string = "kommunenr=" & KommuneNr Dim GateKodeURL as string = "gatekode=" & Gatekode Dim GateNavnURL as string = "gatenavn=" & GateNavn Dim GateNrURL as string = "husnr=" & GateNr Dim url As String = "https://komteksky.norkart.no/komtek.renovasjonwebapi/api/tommekalender/?" & kommuneURL & "&" & GateNavnURL & "&" & GateKodeURL & "&" & GateNrURL 'hs.WriteLog("Soppel Error", "url " & url) Dim source As String = "" Try Using client As New System.Net.WebClient 'Sette Headers client.headers.set("Kommunenr", KommuneNr ) client.headers.set("RenovasjonAppKey", "AE13DEEC-804F-4615-A74E-B4FAC11F0A30") Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("soppel Error", "Got no response from url: " & url) Exit Sub End If Try 'Dim json as Newtonsoft.Json.string = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim json as Object = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim numMembers As Integer = json.Count -1 Dim DeviceText As String = "" For i As Integer = 0 To numMembers Dim output As String = "" Dim output2 As String = "" output = json(i)("FraksjonId") output2 = json(i)("Tommedatoer")(0) & " Neste :" Try output2 &= json(i)("Tommedatoer")(1) Catch ex As Exception output2 &= " -- " End Try Select Case Output Case "1" output = Replace(output, "1", "<b>Restavfall : </b><br>") Case "2" output = Replace(output, "2", "<b>Papiravfall : </b><br>") Case "3" output = Replace(output, "3", "<b>Matavfall : </b> <br>") Case "4" output = Replace(output, "4", "<b>Glass/Metall : </b><br>") Case "5" output = Replace(output, "5", "<b>Drikkekartonger </b><br>") Case "6" output = Replace(output, "6", "<b>Grovavfall : </b><br>") Case "7" output = Replace(output, "7", "<b>Plastavfall : </b><br>") End Select DeviceText &= "" & output & " " & output2 & "<br>" Next hs.SetDeviceString(DevID, DeviceText , True) Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try End Sub Så en event : Parameters : DevieRef | Kommunenummer | Gatenummer | GataNavn | Husnummer Ser jeg forsatt har manuell trigger i screenshot, men en gang i døgnet burde vel holde i de fleste tilfeller. SOM ga meg denne : Instalering : VeiNummer: For å finne vegnummeret kan du gå inn på https://www.vegvesen.no/vegkart zoom deg inn på vegen din og nærmest mulig huset ditt klikker du på veien, Så finner du de 5 sifferene du trenger(Rødt). Kommune Nummeret var de fire første her i Blått : 0710 HomeSeer trenger en referanse til Newtonsoft.Json.Dll, det kan du sette opp ved å lese under "Installasjon" i denne tråden: https://www.hjemmeautomasjon.no/forums/topic/4338-script-enturvb-få-inn-data-fra-entur/ Takk Til: Dette hadde jeg ikke klart alene. @Moskus skal ha en stor takk for sine delinger av script. Tatt utgangspunktet i hans NewsReader.VB @Marhil Takk for tipset om Min renovasjons app eller hvordan jeg fant Gatenummer Og alle de andre som deler kode og eksempler åpnet på nett

Forsatt : Net Feil: Accessed JArray values with invalid key value: "FraksjonId". Int32 array index expected. Noen flere tips ?

Da er jeg igang. Får denne tilbake Da har jeg dette script: Sub Main(ByVal parameters As Object) 'Moskus 2019 Dim devID As Integer = parameters.ToString.Split("|")(0) Dim url As String = "https://komteksky.norkart.no/komtek.renovasjonwebapi/api/tommekalender/?kommunenr=0710&gatenavn=bl%C3%A5b%C3%A6rveien&gatekode=45024&husnr=16" Dim source As String = "" Try Using client As New System.Net.WebClient 'Sette Headers client.headers.set("Kommunenr", "0710") client.headers.set("RenovasjonAppKey", "AE13DEEC-804F-4615-A74E-B4FAC11F0A30") Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("soppel Error", "Got no response from url: " & url) Exit Sub End If Try hs.WriteLog("Soppel debug", source ) Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) ' Dim output As String = "" For i As Integer = 1 To 4 output &= "• <b>" & json("")(i)("Tommedatoer") & "</b><br>" dim temp as string = output hs.WriteLog("Soppel debug", temp) output &= json("FraksjonId")(i)("Tommedatoer") & "<br><br>" Next hs.SetDeviceString(devID, output, True) Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try End Sub Får i loggen : okt-14 00:35:02 Soppel ErrorNet Feil: Accessed JArray values with invalid key value: "". Int32 array index expected. okt-14 00:35:02 Soppel debug[{"FraksjonId":2,"Tommedatoer":["2019-10-14T00:00:00","2019-11-04T00:00:00"]},{"FraksjonId":3,"Tommedatoer":["2019-10-14T00:00:00","2019-10-21T00:00:00"]},{"FraksjonId":4,"Tommedatoer":["2019-10-21T00:00:00","2019-12-02T00:00:00"]},{"FraksjonId":7,"Tommedatoer":["2019-10-21T00:00:00","2019-11-11T00:00:00"]},{"FraksjonId":1,"Tommedatoer":["2019-10-28T00:00:00","2019-11-18T00:00:00"]}] Ser ut som Get på rest API er OK. Men tolkningen av Json som kommer tilbake ikke er riktig. Trenger et nytt spark eller tips for å komme videre

he he. Kan jo det Min Renovasjon bruker also et RestAPI. Testet I Chrome: GET /komtek.renovasjonwebapi/api/tommekalender/?kommunenr=0710&gatenavn=bl%C3%A5b%C3%A6rveien&gatekode=45024&husnr=16 HTTP/1.1 Kommunenr: 0710 RenovasjonAppKey: AE13DEEC-804F-4615-A74E-B4FAC11F0A30 Host: komteksky.norkart.no Da får jeg : [ { "FraksjonId": 2, "Tommedatoer": [ "2019-10-14T00:00:00", "2019-11-04T00:00:00" ] }, { "FraksjonId": 3, "Tommedatoer": [ "2019-10-14T00:00:00", "2019-10-21T00:00:00" ] }, { "FraksjonId": 4, "Tommedatoer": [ "2019-10-21T00:00:00", "2019-12-02T00:00:00" ] }, { "FraksjonId": 7, "Tommedatoer": [ "2019-10-21T00:00:00", "2019-11-11T00:00:00" ] }, { "FraksjonId": 1, "Tommedatoer": [ "2019-10-28T00:00:00", "2019-11-18T00:00:00" ] } ] Spørsmålet var; Hvordan får jeg denne informasjonene inn i Homeseer ?

@Moskuseller @ZoRaC Hvordan bruker få dette inn i Homeseer ? Har bekreftet at dette virker på min adresse via en restapi tester. Men trenger et spark i riktig rettning på hvordan man kan få dette inn i Homeseer. Script / plugin / MQTT ?? På forhånd takk

Men hvilken sensor har du brukt for å finne ut at bilen ikke er i veien ? Sent fra min SM-G970F via Tapatalk

Egen laget Sensor (Temp, Barometric Trykk, Fuktighet og Gulv Sensor) Denne går på 12 volt fra sentral kilde. ESP32 med en BMS280 og en K-Sensor til gulvet. Denne rapportere til Homeseer via MQTT

Noen som har automatisert LEAF som virker ?? Ser ikke ut som jeg får logget inn Fikk ikke logget inn på Nissan sine sider heller

Velkommen etter. Har også emigrert til Homeseer Gå for pro utgaven. Sent fra min SM-G970F via Tapatalk

Vet ikke om z-wave. Men jobber med en løsning med en k-type termokopler, esp32 og mqtt. Kan dele litt om det kunne vært noe ? Sent fra min SM-G970F via Tapatalk

HE HE her er det mange Meninger. Fikk lov å legge inn ekstern antenne til AMS måler selv. Men måtte ha elektriker for å borre hull(Hadde heldigvis hull fra før). Men for å komme til må jeg fjerne deksler. Så da må det være lov å skru av deksler også i sikringsskap(Litt skeptisk) ?? Så nå venter jeg på beskjed om jeg kan koble antenna selv eller Everket må komme å montere selv

He he får montere den på/Inni komfyren Her får hver enkelt gjøre sine egne valg. Mulig jeg tar feil, men OM jeg kjøper en slik enhet kommer den til å bli montert på ledningen til komfyren

Ikke mellom kontakt og sikringsskap , men om ledningen fra Støpsel og opp til Komfyr. Den trenger ikke være fast i veggen heller selv om det ser bedre ut

Tja. Jeg tolker det slik at du kan koble noe mellom støpsel og komfyr(Eller en annen dings). Men det trenger vi ikke være enige i [emoji3] Er man usikker spør en (elektrikker) venn Sent fra min SM-G970F via Tapatalk

Fant dette på klikk.no Dette kan du gjøre selv Tilkobling/skifting av topolede plugger til og med 25 A, med og uten jording - dvs vanlige støpsler også til komfyrer. Tilkobling/skifting av topolede skjøtekontakter og apparatkontakter til og med 16 A, med og uten jording - det betyr at du kan kjøpe ledning, støpsel og skjøtekontakt i butikken og selv sette det sammen. Tilkobling og reparasjon av bordlamper/lampetter og lignende med bevegelige ledninger, herunder også ledningsbrytere. Tilkobling/skifting av belysningsutstyr opphengt i takkrok eller lignende, tilkoblet med kroneklemme eller plugg/stikkontakt. Montering og skifting av varmeovner som leveres med bevegelig ledning og plugg. Utskifting av dekklokk for brytere, stikkontakter og koblingsbokser. Kilde: Direktoratet for samfunnssikkerhet og beredskap og Nelfo Sent fra min SM-G970F via Tapatalk

Monter heavy duty switch på ledningen fra støpsel til komfyr. Det burde være lov Sent fra min SM-G970F via Tapatalk

Tar gjerne en post/tråd med detaljer og deling av kode

Hvor mange glemmer har du, og hvor mange kan den maks ha ? Sent fra min SM-G970F via Tapatalk

Tror mange bruker strømtrekk på vaskemaskin. Sent fra min SM-G970F via Tapatalk

@sigurdi Sent from my SM-G930F using Tapatalk

Sant så sant Sent from my SM-G930F using Tapatalk

Har ikke funnet ny fw. Men har ikke søkt mye etter den da jeg ikke trenger de 3 siste enda [emoji16] Men har du en link setter jeg pris på det Sent from my SM-G930F using Tapatalk

Her er min [emoji851] Sent from my SM-G930F using Tapatalk