Moskus

Corona-virus-tall i Norge:

Sub Main(ByVal parameters As Object) 'Moskus 2020 Dim devID As Integer = parameters.ToString Dim useHTMLtable As Boolean = True Dim url As String = "https://www.vg.no/spesial/2020/corona-viruset/data/norway-table-overview/" Dim source As String = "" Try Using client = New System.Net.WebClient Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("CoronaScript", "Got no response from url: " & url) Exit Sub End If Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim output As String = "" Try Dim confirmed As Integer = json("totals")("confirmed") If useHTMLtable Then output &= "<table border=0 cellspacing=0 cellpadding=0>" output &= "<tr><td><b>Totalt</b></td><td align='right'>" & json("totals")("confirmed") & "</td><td align='right'>" & json("totals")("dead") & "</td><td align='right'>" & json("totals")("recovered") & "</td></tr>" For i As Integer = 0 To json("cases").Count - 1 output &= "<tr><td>" & json("cases")(i)("name") & "</td><td align='right'>" & json("cases")(i)("confirmed") & "</td><td align='right'>" & json("cases")(i)("dead") & "</td><td align='right'>" & json("cases")(i)("recovered") & "</td></tr>" Next output &= "</table>" Else output &= "<b>Totalt: " & json("totals")("confirmed") & " / " & json("totals")("dead") & " / " & json("totals")("recovered") & "</b><br>" For i As Integer = 0 To json("cases").Count - 1 output &= "• " & json("cases")(i)("name") & ": " & json("cases")(i)("confirmed") & " / " & json("cases")(i)("dead") & " / " & json("cases")(i)("recovered") & "<br>" Next End If hs.SetDeviceString(devID, output, False) hs.SetDeviceValueByRef(devID, confirmed, True) Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try End Sub Trigger: Kjøres hvert 5. minutt Parameter: DeviceIDen til en virtuell device som skal holde verdien. Du kan endre variabelen "useHTMLtable" til False hvis du vil ha det i HStouch, for HStouch viser ikke pene HTML-tabeller... Oppdatert med data fra RapidAPI siden jeg ble lei av at VG er så dårlig på å oppdatere tallene sine: Sub Main(ByVal parameters As Object) 'Moskus 2020 Dim devID As Integer = parameters.ToString Dim url As String = "https://covid-193.p.rapidapi.com/statistics?country=Norway" Dim source As String = "" Try Using client = New System.Net.WebClient 'TLS1.2 and encoding (UTF8) Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 'Headers client.Headers.Set("x-rapidapi-host", "covid-193.p.rapidapi.com") client.Headers.Set("x-rapidapi-key", "DIN_RAPIDAPI_KEY_HER") 'GET the url source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("CoronaScript", "Got no response from url: " & url) Exit Sub End If Try Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim confirmed As Integer = json("response")(0)("cases")("total") Dim output As String = "" output &= "<b>Aktive: " & json("response")(0)("cases")("active") & " (" & json("response")(0)("cases")("new") & ") " & "</b><br>" output &= "Totalt: " & json("response")(0)("cases")("total") & "<br>" output &= "Dødsfall: " & json("response")(0)("deaths")("total") & " (" & IIf(json("response")(0)("deaths")("new").ToString = "", "0", json("response")(0)("deaths")("new")) & ") " & "<br>" output &= "Testede: " & json("response")(0)("tests")("total") & "<br>" output &= "<i>Sist oppdatert: " & json("response")(0)("time") & "</i><br>" hs.SetDeviceString(devID, output, False) hs.SetDeviceValueByRef(devID, confirmed, True) Catch ex As Exception hs.WriteLog("CoronaScript Error", "Parsefeil: " & ex.Message) End Try End Sub Kjøres nå hver time, jeg vet ikke begrensningene hos RapidAPI.

For Pi'er tar jeg image-backup'er med jevne mellomrom, men kunne tenke meg en slik mulighet automatisk.

Støtter iallfall et utvalg Sunricher-utstyr, så det er ikke umulig at de støtter Namron også. Men du må nok høre med dem på Slack-kanalen deres.

Meh! Ofrer ikke 10% på det. Men jeg kikker på om jeg skriver et lite script for BulkSMS.com.

Skulle gjerne prøvd Futurehome sin, men her har vi Fireangel. Men vi pusset nettopp opp og fikk da muligheten til å kable (der for Fireangel er montert). Jeg har ikke undersøkt, men mulig de kan kommunisere med hverandre via Z-wave.

Er vel ingen grunn til å tro at disse er mindre seriøse enn andre tilsvarende tjenester.

Det så veldig lovende ut! For sent, men må teste det likevel.

Utgangspunktet er jo at systemet i utgangspunktet ikke behøver så mye justering. Vi har trykkvakt på ventilatoren, og bruker smarthuset til å forsere når det er høy fuktighet på bad. Kunne for så vidt tenke meg en smartere justering av temperatur, men jeg må slåss litt med modbus-plugin'en først. Men så mye mer enn er det vel en diskusjon om faktisk er nødvendig.

Ser det samme, ingen fiks som jeg vet om. Alexa er smartere enn dette...

@Guahtdim har laget en plugin som jeg tror burde passe her:

Det høres bra ut.

?

Ja, heldigvis. Men for Home Assistant er veien ganske lang å gå. Men det gjør absolutt ingenting at det blir bedre.

Nei... men det er ikke så nøye. Men da er det ikke det.

Wait, what? Du skal jo kunne koble til "hva som helst" og lese det ut, det er jo en del av spec'en til NVE.

OK; det er ikke så aktuelt. I HomeSeer også, men den kan ikke sende meldinger til en foreldre på en klasseliste...?

Kan det være at du poller for ofte?

Jo. Se f.eks. Home Assistant. ... men du har merket "HomeSeer" som "Ditt system". If you want the best... men seriøst: Jeg pleier å si at man betaler med tid eller penger; man velger selv hva man har mest av. Men dette er et forum for hjemmeautomasjon, og det er mest oss nerder som bryr oss, men jeg tror de absolutt aller fleste her har mer enn bare Pulse og et Tibber-abonnement Ikke som jeg vet om... men så har jeg aldri lett etter heller. Jeg har skrevet et eget Windows (console) program som jeg bruker til debugging, men det har du nok egentlig ikke noen glede av.

Vi har ikke engang hørt rykter om "HStouch 4", så det blir kun en spekulasjon. Men HStouch3 skal fungere med HS4...

Kan Aqara felles inn? De varer lenger enn et par måneder. Tenk iallfall et par år. Men det er veldig avhengig av hvor ofte du sender data (dvs. data utenom bevegelsessensorer, da temperatur, RH, Lux, etc).

Det er mange som har Facebook-kontoer, men det gjelder faktisk ikke alle. Derfor utgår Facebook.

Jeg finner ikke ut hvordan jeg får betalt med Paypal...?

OK, skal bli tydeligere: Det er snakk om SMS. Og kun SMS. Kjør debatt. Jeg trenger ikke få bekreftelse av systemet.

Nå har jeg ingen Apple-dingser i huset, så det er ikke en mulighet. Jeg har laget en konto hos BudgetSMS, og venter på å få den verifisert, så får vi se om den er ferdig før det er for sent og jeg må ta den manuelle jobben... Tanken var å be folk om å bekrefte mottak manuelt.