Vinnerliste

Overvåke om HomeSeer er tilkoblet internett. Kom på tanken da Telenor sendte meg sms om at nett og TV var nede på min adresse, men når jeg sjekket så var "huset" fortsatt på nett Så da er det bedre å overvåke slikt selv. Litt søking, og kom til slutt tilbake til HomeSeer ? BLLan plugin, gratis, kan overvåke datamaskiner og nettadresser. Så la inn en ping mot google.no, og en event som sender meg SMS ved manglende svar etter X forsøk over X sekunder. Dette gir meg et par linjer i HS, og to devices. Dette kan så brukes i et event, som varsler. Telefonnummer skrives rett frem, uten noe prefix. Value 0 = nett nede. Value 100 = nett oppe/ping svar. SMS sendes via et 4G modem, som jeg har skrevet om tidligere, i forbindelse med overvåkning av strømmen, via BLUPS plugin og SMS varsling. Etter det innlegget, fant jeg svaret på å ikke bruke nett, det var å slå av TCP/IP 4 og 6 på den i windows

Ny beta versjon 4.0.3.0 kom ut i går. ?

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.

Jeg bruker dørsensor på ytterdør og har montert multisensoren i hjørnet over ytterdøra. Den peker skrått mot den andre døren. Vindfanget er vel kanskje 1.5 kvadrat og det fungerer utmerket!

Klarte ikke å bruke egigeozone på huawei for noen måneder siden. Har brukt life360 som fungerte helt til for noen dager siden.

Med så mye god reklame så må jeg ha med BulkSms i min egen sms-plugin (TwilioSeer) neste gang jeg gjøre endringer på den. ? Edit: Det er gjort!

Seriøsiteten er det ikke noe å si på. Har som jeg skrev brukt de i mange år. Har et fire sifret antall mottagere, som jeg antar ville tatt kontakt om de fikk reklame Den eneste "reklamen" de tilbyr, er hvis du tar med "bulksms.com" som siste linje i SMS, så får du litt rabatt.