Gå til innhold
  • Bli medlem

clio75

Medlemmer
  • Innholdsteller

    306
  • Ble med

  • Besøkte siden sist

  • Dager vunnet

    1

clio75 vant dagen sist April 15 2018

clio75 hadde mest likt innhold!

Nettsamfunnsomdømme

45 Excellent

Om clio75

  • Rang
    Avansert medlem
  • Bursdag 27. juni 1975

Hjemmeautomasjon

  • System
    HomeSeer

Nylige profilbesøk

743 profilvisninger
  1. @mk1 black limited Hva er parrameterne dine på eventen ?
  2. Prøvde Men får Net Feil: Finner ikke "Public"-medlem GetLength på typen JArray.
  3. 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
  4. Livet er som en kommode; Skuff på skuff 😂😂
  5. 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 Moskus@hjemmeautomasjon.no '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) 'Setting URL string 'Dim URLGateName as string = URLEncode(GateNavn) ' hs.WriteLog("Soppel Debug", URLGateName ) 'Dim url As String = "https://komteksky.norkart.no/komtek.renovasjonwebapi/api/tommekalender/?kommunenr=0710&gatenavn=bl%C3%A5b%C3%A6rveien&gatekode=45024&husnr=16" '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/?kommunenr=0710&gatenavn=blåbærveien&gatekode=45024&husnr=16" 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 = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim numMembers As Integer = 4 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 :" & json(i)("Tommedatoer")(1) 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>" 'hs.WriteLog("Soppel debug", output & " " & output2 ) 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
  6. Forsatt : Net Feil: Accessed JArray values with invalid key value: "FraksjonId". Int32 array index expected. Noen flere tips ?
  7. 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
  8. 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 ?
  9. @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
  10. Men hvilken sensor har du brukt for å finne ut at bilen ikke er i veien ? Sent fra min SM-G970F via Tapatalk
  11. 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
  12. 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
  13. Velkommen etter. Har også emigrert til Homeseer Gå for pro utgaven. Sent fra min SM-G970F via Tapatalk
  14. 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
  15. 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
×
×
  • Opprett ny...