Gå til innhold
  • Bli medlem
Moskus

SCRIPT: MotionLog.vb - Logg bevegelser til en device

Anbefalte innlegg

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.png

 

 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

 

 

Spoiler

 

MotionLog.vb (gammel)


Public Sub Main(ByVal input As Object)
    Dim logDeviceRef As Integer = 1081 ' Update this

    Dim currentText As String = hs.DeviceString(logDeviceRef)
    Dim lines As System.Collections.Generic.List(Of String)

    If currentText.Contains("<br/>") Then
        lines = currentText.Split("<br/>").ToList
    Else
        lines = currentText.Split("<br>").ToList
    End If

    'Removing empty lines and cleaing up strings
    For i As Integer = lines.Count - 1 To 0 Step -1
        If lines(i).Trim = "" Then lines.RemoveAt(i)
        If lines(i).Contains("br/>") Then lines(i) = lines(i).Replace("br/>", "")
        If lines(i).Contains("br>") Then lines(i) = lines(i).Replace("br>", "")
    Next

    'Remove the bottom entry if needed
    If lines.Count = 10 Then lines.RemoveAt(lines.Count - 1)

    'Creating the device text
    Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString
    If lines.Count > 0 Then newText &= "<br>"

    If lines.Count > 2 Then
        For i As Integer = 0 To lines.Count - 2
            newText &= lines(i) & "<br>"
        Next
    ElseIf lines.Count = 2 Then
        newText &= lines(0) & "<br>"
    End If

    'Adding the last lines without the HTML break
    newText &= lines(lines.Count - 1)

    'Updating the device string
    hs.SetDeviceString(logDeviceRef, newText, True)
    'hs.TriggerEvent("Restart SisteBeveglse timer")
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.

  • Thanks 1

Del dette innlegget


Lenke til innlegg
Del på andre sider

Nei, jeg har faktisk ikke prøvd HStouch enda. Men det er bare HTML-formatert (kun < br/>), har du prøvd vis som HTML i HStouch?

Del dette innlegget


Lenke til innlegg
Del på andre sider
4 hours ago, Moskus said:

Nei, jeg har faktisk ikke prøvd HStouch enda. Men det er bare HTML-formatert (kun < br/>), har du prøvd vis som HTML i HStouch?


Det funker ikke med html nei :(

 

 

Del dette innlegget


Lenke til innlegg
Del på andre sider

Jeg har en versjon av dette scriptet hjemme hvor jeg deler opp hver event til en virtual device. Gjør det lettere å få det pent i HSTouch. Skal poste det når jeg er ferdig på jobb.

Del dette innlegget


Lenke til innlegg
Del på andre sider

Det er en modifisert utgave av den du skrev til meg for en stund siden. Poster det senere i kveld.

Del dette innlegget


Lenke til innlegg
Del på andre sider
Den 5/29/2016 klokken 19.52, Moskus skrev:

... skrev jeg det til deg, eller har du modifisert det selv? :)

 

Rettelse; det var ikke en modifisert utgave av scriptet ditt, men heller en overkomplisert metode som sikkert kan gjøres lettere med et script. ?

 

Slik gjorde jeg det:

 

1. Start med å lage en Virtual Device for hver bevegelsessensor du vil ha historie på.

 

#618 = 01 - Bevegelse historie

#619 = 02 - Bevegelse historie

#620 = 03 - Bevegelse historie

 

HomeSeer Web Control.png

 

 

2. Lag en ny gruppe i Events med navn "Bevegelsessensor historie" og opprett følgende eventer i denne gruppen:

  • Bevegelsessensor - Gang
  • Bevegelsessensor - Stue
  • Bevegelsessensor - Soverom

 

HomeSeer Web Control   Events.png

 

 

3. Event Bevegelsessensor - Gang ser slik ut:

 

HomeSeer Web Control   Events2.png

 

Script1:

&hs.SetDeviceString(620, hs.DeviceString(619), True)

Script2:

&hs.SetDeviceString(619, hs.DeviceString(618), True)

Script3:

&hs.SetDeviceString(618, hs.DeviceLastChangeRef(621) & " " & "- Bevegelse i gang", True)

 

4. Event Bevegelsessensor - Stue ser slik ut:

 

HomeSeer Web Control   Stue.png

 

Script1: Ingen forandring

 

Script2: Ingen forandring

 

Script3:

&hs.SetDeviceString(618, hs.DeviceLastChangeRef(622) & " " & "- Bevegelse i stue", True)

 

 

5. Event Bevegelsessensor - Soverom ser slik ut:

 

HomeSeer Web Control   Soverom.png

 

Script1: Ingen forandring

 

Script2: Ingen forandring

 

Script3:

&hs.SetDeviceString(618, hs.DeviceLastChangeRef(623) & " " & "- Bevegelse i soverom", True)

 

6. Hver gang en bevegelsessensor trigger så kjøres eventene og resultatet blir som dette:

 

HomeSeer Web historie.png

 

De 3 VDene kan du nå plassere i riktig rekkefølge hvor du måtte ønske i HSTouch. :)

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider
Den 1.6.2016 klokken 11.16, Moskus skrev:

Hjælp!

 

Tenker jeg oppdaterer scriptet mitt istedenfor, jeg. ;)

Er det bare å kopiere å bruke scriptene dere lager?

Dette er en jeg vil låne om det er mulig, og den blir oppdatert.

Del dette innlegget


Lenke til innlegg
Del på andre sider
2 minutter siden, TomasV skrev:

Er det bare å kopiere å bruke scriptene dere lager?

Dette er en jeg vil låne om det er mulig, og den blir oppdatert.

 

Ja, her er det bare å kopiere og bruke scriptene som du vil. Bare husk på å forandre på Reference IDen slik at de passer ditt system. :) 

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider

Jepp, lån i vei! :)

 

Men hvis du legger til noe som gjør det enda bedre, så hadde det vært kjekt om du postet den nye versjonen. Kanskje ditt er bedre enn mitt?

Del dette innlegget


Lenke til innlegg
Del på andre sider

Hei,

 

Jeg får denne erroren når jeg prøver å kjøre scriptet:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\MotionLog.vb :Exception has been thrown by the target of an invocation.->Does entry point Main exist in script? at System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) at System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) at A.c17b105f989efe61e5979e67bec1ef734.cffd66cb0782c50126727e3fa75582d7a()

 

Slik ser eventen ut:

Yklsb0Vn.jpeg

 

Har byttet DeviceRef til ny opprettet VD.

 

Noen som ser åpenbar feil jeg har gjort?

Del dette innlegget


Lenke til innlegg
Del på andre sider

OK, tror jeg får lage en egen Setup-funksjon som gjør dette her. Lager en device og setter den opp riktig.

Del dette innlegget


Lenke til innlegg
Del på andre sider
On 7/6/2016 at 11:23, GeneralVirus said:

Prøv å kjør denne under Tools -> Control Panel -> Immediate Script Command.

 

hs.SetDeviceString(DINDEVICEREF, "Linje 1<br/>Linje 2<br/>Linje 3", True)

 

Det virker. Hva kan da være feil?

Del dette innlegget


Lenke til innlegg
Del på andre sider
45 minutter siden, Archos skrev:

 

Det virker. Hva kan da være feil?

Hvis det virker kan det vel ikke være feil... ;)

Del dette innlegget


Lenke til innlegg
Del på andre sider

OK, da kan det være at du trenger å oppdatere fra mono 3 til mono 4, eller noe sånt. Jeg er dessverre ikke rette personen å spørre.

Mono er .NET på Linux. Men versjon 3 har ikke alle de kule funksjonene som den siste versjonen har.

 

EDIT: Det kan være at det hjelper å skrive "Imports System.Linq" på en egen linje helt, helt øverst i scriptet.

  • Like 1

Del dette innlegget


Lenke til innlegg
Del på andre sider
16 minutter siden, Moskus skrev:

OK, da kan det være at du trenger å oppdatere fra mono 3 til mono 4, eller noe sånt. Jeg er dessverre ikke rette personen å spørre.

Mono er .NET på Linux. Men versjon 3 har ikke alle de kule funksjonene som den siste versjonen har.

 

EDIT: Det kan være at det hjelper å skrive "Imports System.Linq" på en egen linje helt, helt øverst i scriptet.

Ser ikke ut som det hjalp å legge til Imports System.Linq, så da skal jeg se om jeg får oppdatert til mono 4 (eller så får jeg børste støv av en win pc).

Del dette innlegget


Lenke til innlegg
Del på andre sider

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Fjern formatering

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.


  • Lignende innhold

    • Av Moskus
      Nå kan du endelig få endre trigger-tiden til dine eventer med noen enkle tastetrykk! Det fungerer fint på websiden, HStouch og HS Mobile.  
       
      Vi har alle eventer som går av på et visst tidspunkt. F.eks. vekkerklokker. Av og til vil man enkelt kunne endre tiden på vekkerklokken uten å måtte navigere til Event-siden og finne selve eventet. Kanskje vil man at ungene skal kunne gjøre det, etc.
       
      Med dette scriptet får du en device som dette:
      ... som lar deg endre klokkeslettet på et event.
       
      Her er scriptet (vær nøye med filnavnet, det må være riktig):
      TimeDevice.vb
      Public Sub Main(ByVal input As Object) 'Moskus 2019 '----------------------------- 'The Main sub will update 'DeviceRef,NewTime 'Example: 3245,13:00 -> will set device 3245 to 13:00 and the event to trigger at 13:00 '----------------------------- Dim deviceRef As Integer = input.ToString.Split(",")(0) Dim timeString As String = input.ToString.Split(",")(1) Dim _time As TimeSpan = TimeSpan.Parse(timeString) UpdateDeviceAndEvent(deviceRef, _time) End Sub Public Sub CreateDevice() Dim deviceRef As Integer = hs.NewDeviceRef("Klokkekontroll") Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(deviceRef) dev.Location(hs) = "Klokke" dev.Location2(hs) = "Klokke" dev.Device_Type_String(hs) = "Ditt event her" hs.SaveEventsDevices() AddDeviceButtons(deviceRef) Dim _time As New TimeSpan hs.SetDeviceString(deviceRef, _time.ToString("hh\:mm"), False) hs.SetDeviceValueByRef(deviceRef, _time.TotalMinutes, True) End Sub Public Sub ButtonPress(ByVal input As Object) Dim deviceRef As Integer = input(0) Dim parameter As String = input(1) Dim deviceValue As Integer = hs.DeviceValue(deviceRef) Dim minutesToAdd As Integer = Integer.Parse(parameter) Dim newValue As Integer = deviceValue + minutesToAdd If newValue < 0 Then newValue = 24 * 60 + minutesToAdd If newValue > 24 * 60 Then newValue = minutesToAdd Dim _time As TimeSpan = New TimeSpan(0, newValue, 0) UpdateDeviceAndEvent(deviceRef, _time) End Sub Public Sub UpdateDeviceAndEvent(ByVal deviceRef As Integer, ByVal _time As TimeSpan) hs.SetDeviceString(deviceRef, _time.ToString("hh\:mm"), False) hs.SetDeviceValueByRef(deviceRef, _time.TotalMinutes, True) Dim eventName As String = DirectCast(hs.GetDeviceByRef(deviceRef), Scheduler.Classes.DeviceClass).Device_Type_String(hs) Dim eventRef As String = hs.GetEventRefByName(eventName) hs.EventSetTimeTrigger(eventRef, New Date(1, 1, 1).Add(_time)) hs.SaveEventsDevices() End Sub Public Sub AddDeviceButtons(ByVal device_ref As String) Dim devID As Integer = CInt(device_ref) hs.DeviceScriptButton_DeleteAll(devID) hs.DeviceProperty_dvMISC(device_ref, HomeSeerAPI.Enums.eDeviceProperty.MISC_Set, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) Try hs.WriteLog("TimeDevice.vb", "Added button 1: " & hs.DeviceScriptButton_AddButton(devID, "+5 min", 5, "TimeDevice.vb", "ButtonPress", "+5", 1, 1, 1)) hs.WriteLog("TimeDevice.vb", "Added button 2: " & hs.DeviceScriptButton_AddButton(devID, "-5 min", -5, "TimeDevice.vb", "ButtonPress", "-5", 1, 2, 1)) hs.WriteLog("TimeDevice.vb", "Added button 3: " & hs.DeviceScriptButton_AddButton(devID, "+15 min", 15, "TimeDevice.vb", "ButtonPress", "+15", 1, 3, 1)) hs.WriteLog("TimeDevice.vb", "Added button 4: " & hs.DeviceScriptButton_AddButton(devID, "-15 min", -15, "TimeDevice.vb", "ButtonPress", "-15", 1, 4, 1)) hs.WriteLog("TimeDevice.vb", "Added button 5: " & hs.DeviceScriptButton_AddButton(devID, "+1 time", 60, "TimeDevice.vb", "ButtonPress", "+60", 2, 1, 1)) hs.WriteLog("TimeDevice.vb", "Added button 6: " & hs.DeviceScriptButton_AddButton(devID, "-1 time", -60, "TimeDevice.vb", "ButtonPress", "-60", 2, 2, 1)) Catch ex As Exception hs.WriteLog("TimeDevice.vb", "Error adding buttons: " & ex.Message) End Try End Sub  
      Du trenger først å lage et event som trigger scriptet med rutinen "CreateDevice", slik:

       
      Gå nå til Device Manager-siden. Velg at "Klokke" skal vises, både for "Floor" og "Room". MEN: Du må også huske på å velge ALLE device typer:

       
      Da får du opp den nye devicen. Denne kan du navngi og gi plassering akkurat som det passer deg.
       
      Så skal vi bestemme hvilket event som skal trigges. Navnet sette vi som en "Device Type String" under Advanced-taben. Merk at hele navnet skal brukes, og at det er "Gruppe" + mellomrom + "Event navn". La oss si at jeg vil trigge et test-event som jeg har navngitt "Et timer-event", som her:

       
      Da er hele evnetnavnet mitt: "Test Et timer-event", og det setter vi inn her:

      ... og trykker "Done".
      NB! Når vi nå går tilbake til Device Manager, må vi huske på å vise alle Device Types igjen, fordi den har vi nettopp endret til noe nytt som ikke var valgt før.
       
      Så er det bare å stille klokka.  
      Endrer vi tiden på devicen til dette...

      ... vil eventet også endres:

       
      Det gjør ingenting om eventet ditt har andre conditions, de vil ikke bli påvirket av dette.  
       
       
       
      Scriptet har også en rutine for å endre klokkeslettet med eventer, f.eks. hvis man skal stille tilbake flere  vekkerklokker etter en ferie. 
      Da kaller man bare rutinen/metoden "Main" (eller lar være å spesifisere rutine), og bruker deviceRef og klokkeslett som parameter.
      Dette:

       
      ... gir dette:

      ... og selvfølgelig dette:

       
    • Av clio75
      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
       

    • Av Moskus
      Nyheter er viktig, og din bolig burde vite hva som skjer. HStouch kommer med en RSS-leser, men den støtter ikke norske tegn, og fungerer bare når den vil. Ettersom jeg ble lei av det, skrev jeg et lite script for å hente frem nyheter.
       
      NewsReader.vb
      Sub Main(ByVal parameters As Object) 'Moskus 2019 Dim devID As Integer = parameters.ToString.Split("|")(0) Dim url As String = "https://api.rss2json.com/v1/api.json?rss_url=" & System.Net.WebUtility.HtmlEncode(parameters.ToString.Split("|")(1)) Dim source As String = "" Try Using client As 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("NewsReader Error", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("NewsReader Error", "Got no response from url: " & url) Exit Sub End If Try Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim output As String = "" For i As Integer = 0 To 4 output &= "• <b>" & json("items")(i)("title") & "</b><br>" output &= json("items")(i)("description") & "<br><br>" Next hs.SetDeviceString(devID, output, True) Catch ex As Exception hs.WriteLog("NewsReader Error", "Net Feil: " & ex.Message) End Try End Sub 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/
       
       
      Du trenger en virtuell device per nyhetskilde du vil ha. Ingen controller er viktig, velg "Status Only device" og "Do not log commands from this device".
       
      Så lager du et event. Det kan trigge hvert 15. minutt. Og så legger du til en kjøring av NewsReader.vb for hver nyhetskilde du ønsker deg. Parameter for scriptet er "DEV_ID|http://nyhetskilde.com/rss/", altså device ID, en "pipe" | og kilden. Huk av "Wait for script to finish" og "Only allow a single instance"
       

       
      Da blir resultatet dette:

       
      Her er noen nyhetskilder:
      https://www.aftenbladet.no/rss
      https://www.aftenposten.no/rss
      https://www.nrk.no/toppsaker.rss
      https://www.dagbladet.no/rss/
      https://www.vg.no/rss/feed/?categories=1068&limit=10&format=rss&private=1  - sjekk https://vg.no/rss for å sette opp din egen feed.
       
       
       
    • Av Moskus
      Tegneserier er gøy. Automatiske tegneserier er selvfølgelig enda gøyere. Tidligere var det bare å linke bildet på nettet, men VG ville gjøre det litt vanskeligere for oss. Men det lar seg ordne.
       
      Aller først trenger vi SP_ID'en din. Logg inn på VG (det holder med en gratis-konto), og trykk F12 (eller åpne Developer Console)
      Så finner du "Application" på menyen øverst, finner så cookies, og velger "www.vg.no". Dobbelttrykk på tekstfeltet etter "SP_ID" og kopier hele denne lange, uforståelige teksten til et sted.
       

       
       
       
      NB! Dette scriptet omfatter sletting av filer, og kan potensielt gå ad undas. Det er selvfølgelig testet en del av meg, men som alltid: Ta backup først!
       
      Scriptet er her:
      Tegneserie.vb
      Sub Main(ByVal input As Object) 'Moskus 2019 'Parametre: device_ID|Tegneserie 'Serie-alternativer: Pondus, Lunch, Hjalmar, Tegnehanne Dim devID As String = input.ToString.Split("|")(0) Dim serie As String = input.ToString.Split("|")(1) Dim deleteFiles As Boolean = True Dim SP_ID As String = "DIN_LANGE_SPID_STRENG_HER" Dim directoryName As String = hs.GetAppPath & "/html/images/Tegneserier/" 'Check if "Tegneserier" exits If (Not System.IO.Directory.Exists(directoryName)) Then System.IO.Directory.CreateDirectory(directoryName) 'Delete local files If deleteFiles Then For Each deleteFile As String In System.IO.Directory.GetFiles(directoryName, serie.ToLower & "*.*", System.IO.SearchOption.TopDirectoryOnly) System.IO.File.Delete(deleteFile) Next End If Dim remoteFile As String = "" Dim filename As String = serie.ToLower & "_" & Now.Date.ToString("yyMMdd") & ".jpg" Dim localFile As String = hs.GetAppPath & "/html/images/Tegneserier/" & filename Dim dateFormat As String = Now.Year & "-" & Now.Month.ToString("00") & "-" & Now.Day.ToString("00") Select Case serie.ToLower Case = "pondus" remoteFile = "https://www.vg.no/tegneserier/api/images/pondus/" & dateFormat Case = "lunch" remoteFile = "https://www.vg.no/tegneserier/api/images/lunch/" & dateFormat Case = "hjalmar" remoteFile = "https://www.vg.no/tegneserier/api/images/hjalmar/" & dateFormat Case = "tegnehanne" remoteFile = "https://www.vg.no/tegneserier/api/images/tegnehanne/" & dateFormat End Select If remoteFile <> "" Then Try Using client As New System.Net.WebClient Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Headers.Add(Net.HttpRequestHeader.Cookie, "SP_ID=" & SP_ID) client.Headers.Add("User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0") client.DownloadFile(remoteFile, localFile) client.Dispose() End Using Catch ex As Exception hs.WriteLog("Tegneserier", "Ex: " & ex.ToString) End Try Dim dateValue As Integer = CInt(Now.Date.ToString("yyMMdd")) hs.SetDeviceString(devID, "<img src='/images/HomeSeer/status/custom.gif' />", True) hs.SetDeviceString(devID, "<img src='./images/Tegneserier/" & filename & "' width='300px' />", False) hs.SetDeviceValueByRef(devID, dateValue, True) Else hs.WriteLog("Tegneserie", "RemoteFile ikke spesifisert for tegneserie: " & serie) End If End Sub Du legger inn SP_ID-strengen din istedenfor "DIN_LANGE_SPID_STRENG_HER".
       
      I tillegg må du lage en device pr. tegneserie du er interessert i. Som i nyhetsscriptet er dette en "Status Only" device.
       
      Så er det bare å sette opp eventet. Tegneseriene blir oppdatert kl. 08:00, så 08:15 er sikkert et bra tidspunkt. Kun ukedager og lørdager. Huk av "Wait for Script to finish" og "Only allow singe instance". Så repeter for hver tegneserie.
       
      Parameter er dev_ID|Tegneserie, f.eks. 3689|Pondus.

       

       
       
      ... som gir oss:

       
      Bredden er satt til 300px for at hele tegneserien skal dukke opp i Device Management, men dette er ikke en begrensning i f.eks. HStouch.
    • Av Guahtdim
      Problemet er som følger:
      Jeg overvåker fryser og ønsker å sende en melding i god tid før den har nådd 0 grader. Etter å ha opplevd ett par ganger at fryseren er blitt lukket, men ikke tett med tilsvarende dårlig kjøling så ønsker jeg å kunne varsle meg selv når man er på vei mot 0 grader ett stykke før den har nådd f.eks. -3 grader. 
       
      Nå overvåker jeg kun på overstigning av -3 grader, men dette har en tendens å inntreffe lenge etter at jeg har dratt inn til jobb og siden jeg er pendler ett greit stykke (Moss - Oslo) så er det ikke å stikke fra jobben for å sjekke/lukke fryseren.
       
      Finnes det noe plugin eller script for å se om temperaturen er på vei opp utenom de vanlige "bølgene" som oppstår mellom hver gang kompressoren slår inn? Eller er dette noe man må "snekre" selv?
×
×
  • Opprett ny...