SCRIPT: Sjekk postleveranse

[Moskus]

28 minutter siden, Erling skrev:

Oi, hva har jeg gjort galt nå da?

Har du lagt inn Newtonsoft.dll-filen i ScriptingReferences som diskutert her i tråden?

[Erling]

Googler og legger inn i kveld...

[Moskus]

2 timer siden, Erling skrev:

Googler og legger inn i kveld...

Det står en beskrivelse i EnTur-scriptet sin tråd:

 

[Erling]

Glimrende, nå virker det.

 

Takk igjen.

 

😎

[mk1 black limited]

Er det nok å endre 2020 i URL til 2021 for å få det til å virke?

[Moskus]

Behøves ikke her iallfall.

 

[mk1 black limited]

Eh, nei, min feil - var litt for kjapp.

[TorbjørnMohn]

Noen som vet hvorfor linken til Posten (https://www.posten.no/levering-av-post-2020/_/component/main/1/leftRegion/1?postCode=5009) ikke fungerer lenger? 

Har den i HA, men i dag sluttet den å fungere. Har posten skiftet API eller? 

Endret 15. september 2021 av TorbjørnMohn

[daniel.h.iversen]

Ser ut som posten har oppdaget at det ikke lenger er 2020.

Denne ser ut til å fungere
https://www.posten.no/levering-av-post/_/component/main/1/leftRegion/1?postCode= 

[Moskus]

1 hour ago, daniel.h.iversen said:

Ser ut som posten har oppdaget at det ikke lenger er 2020.

Denne ser ut til å fungere
https://www.posten.no/levering-av-post/_/component/main/1/leftRegion/1?postCode= 

Haha! Takk!

Jeg oppdaget akkurat dette, du sparte meg for litt debugging..

[Fjosepose]

Hei @Moskus

Der kan se ut som om Homeseer plug-in for postlevering har feilet. Skal jeg tippe så har vel posten gjort en endring etsteds?

[Moskus]

Les to poster opp, og endre scriptet ihht. første post.  

[Fjosepose]

3 minutes ago, Moskus said:

Les to poster opp, og endre scriptet ihht. første post.  

Auda, ser jo dette nå....her kan jeg vel bare skylde på at øynene står i veien😀

Endret 23. september 2021 av Fjosepose

[mroek]

Moskus skrev (På 27.7.2020 den 15.03):

Jo, men hva er device-stringen? Jeg ser at den kan inneholde tekst som "i dag" eller "i morgen", og derfor fjerner jeg dem før jeg prøver å parse verdien til en dato. Men det ser ut som du har fått noe som ikke har tatt hensyn til, eller at jeg har bommet på en.

 

 

Det stemmer, det er fordi man må legge til headeren "x-requested-with:XMLHttpRequest".

 

Jeg prøvde å få til dette på Homey (via et Homeyscript), men det var ikke før jeg fant denne tråden at jeg fikk det til, for problemet var nettopp at jeg ikke hadde med denne headeren, så takk for tips! Jeg hadde jo funnet den riktige URLen via developer tools i nettleseren (og fikk da en blank side), men jeg tenkte ikke på at det måtte en ekstra header til for at serveren skulle gi fornuftige data tilbake...

[Moskus]

mroek skrev (På 27.7.2022 den 17.54):

Jeg prøvde å få til dette på Homey (via et Homeyscript), men det var ikke før jeg fant denne tråden at jeg fikk det til, for problemet var nettopp at jeg ikke hadde med denne headeren, så takk for tips! Jeg hadde jo funnet den riktige URLen via developer tools i nettleseren (og fikk da en blank side), men jeg tenkte ikke på at det måtte en ekstra header til for at serveren skulle gi fornuftige data tilbake...

De har sikkert "gode grunner" for å kreve den, men sånt gjør datauthenging unødvendig vanskelig innimellom.

 

Tips: "Record" litt nettverksaktivitet i DevTools, så kan du få se headers.  

[mroek]

Moskus skrev (2 timer siden):

De har sikkert "gode grunner" for å kreve den, men sånt gjør datauthenging unødvendig vanskelig innimellom.

 

Tips: "Record" litt nettverksaktivitet i DevTools, så kan du få se headers.  

 

Jeg hadde faktisk sett på headerne også (i DevTools), men glemte helt å teste om noen av dem var påkrevd for å få data tilbake. Lesson learned.

[Terje Klungervik]

Hei. 

 

Hva er det jeg gjør galt mon tro? Windows 10. Homeseer 4.

 

Kopierte scriptet og forandret på dev id og postnr. La til ScriptingReferences i settings.ini. Den lå ikke der fra før. Restartet HS4.

 

ScriptingReferences=System.Core;System.Core.dll,Newtonsoft.Json;C:\Program Files (x86)\HomeSeer HS4\Bin\homeseer\Newtonsoft.Json.dll

 

Running script: Indeksen var utenfor området. Den må være ikke-negativ og mindre enn størrelsen på samlingen. Parameternavn: startIndex-> ved System.String.IndexOf(String value, Int32 startIndex, Int32 count, StringComparison comparisonType) ved System.String.IndexOf(String value, Int32 startIndex) ved HSCore.Trigger.TriggerRunScript(String scr, Boolean single_instance, Int32 phone_line, String host, Boolean wait_here, String CalledFrom, String UName, Int32 URights, String passedfunc, Object passedparam, Int32 evref, Boolean DoSetEvent)

 

"Sub Main(ByVal params As Object)
        Dim devRef As Integer = 3181
        Dim postnummer As Integer = 7300"

 

Endret 18. november 2022 av Terje Klungervik

[Moskus]

Prøv dette scriptet, og se hva som dukker opp i loggen. Det er helt uten referanser til JSON-biblioteket (noe jeg ikke heller tror er feil). Jeg lurer på om den finner noe resultat...

 

    Sub Main(ByVal params As Object)
        Dim devRef As Integer = 3181
        Dim postnummer As Integer = 7300
        Dim url As String = "https://www.posten.no/levering-av-post/_/component/main/1/leftRegion/1?postCode=" & postnummer

        Dim source As String = ""

        Using client As New System.Net.WebClient
            client.Headers.Add("x-requested-with", "XMLHttpRequest")
            client.BaseAddress = url
            source = client.DownloadString(url)
        End Using

        hs.WriteLog("Post-test", source)
    End Sub

 

[Terje Klungervik]

Samme resultatet. Er det noen programmer som jeg ikke har installert mon tro? Microsoft c++ greier?

 

Jeg kjører andre scripts uten problem. Scriptet fra Gcal: 

 

Sub Main(ByVal Parms As Object)
        Dim msg As String = ""
        Try
            Dim ParmArray() As String
            ParmArray = Parms.ToString.Split(",")
            Dim deviceID = ParmArray(0)
            Dim calendarName = ParmArray(1)
            Dim numberOfDays = CInt(ParmArray(2))
            Dim allEvents As Object

            allEvents = hs.PluginFunction("GCalSeer", "", "GetItemsFromCalendar", New Object() {calendarName, numberOfDays})
            For Each ev As Object In allEvents
                Dim calendarEventAsString As String = ""
                If ev.StartDateTimeLocal.Date = Now.Date Then
                    If ev.AllDayEvent Then
                        calendarEventAsString = "Dagens "
                    Else
                        calendarEventAsString = "Kl. "
                    End If
                End If
                If ev.StartDateTimeLocal.Date = Now.Date.AddDays(1) Then
                    If ev.AllDayEvent Then
                        calendarEventAsString = "I morgen "
                    Else
                        calendarEventAsString = "I morgen kl. "
                    End If
                End If

                If ev.StartDateTimeLocal.Date < Now.Date.AddDays(2) Then
                    If ev.AllDayEvent Then
                        calendarEventAsString = calendarEventAsString & ev.Subject
                    Else
                        calendarEventAsString = calendarEventAsString & Format(ev.StartDateTimeLocal, "HH:mm") & " - " & ev.Subject
                    End If
                Else
                    If ev.AllDayEvent Then
                        calendarEventAsString = calendarEventAsString & Format(ev.StartDateTimeLocal, "ddd dd.MM") & " (hele dagen) - " & ev.Subject
                    Else
                        calendarEventAsString = calendarEventAsString & Format(ev.StartDateTimeLocal, "ddd dd.MM HH:mm") & " - " & ev.Subject
                    End If
                End If

                If ev.StartDateTimeLocal.Date = Now.Date Then
                    calendarEventAsString = "<b>" & calendarEventAsString & "</b>"
                End If
                msg = calendarEventAsString & "<br>" & msg
            Next

            'hs.WriteLog("test", "events found: " & msg)

            If msg = "" Then
                msg = "No Events Scheduled"
            End If
            hs.SetDeviceString(deviceID, msg, True)
        Catch ex As Exception
            hs.WriteLog("", "Exception in script: " & ex.Message)
        End Try
        'hs.WriteLog("test", "---=== DONE ===---")

    End Sub

 

Endret 19. november 2022 av Terje Klungervik

[Moskus]

Terje Klungervik skrev (På 19.11.2022 den 18.25):

Samme resultatet.

Samme resultat?! Jøss, det skal jo nesten ikke gå an. Men hva kjører du HomeSeer på? Win7, Win10, Win11 eller Linux?

 

Kan du poste et screenshot fra scriptet slik det ser ut i HomeSeer?

[Terje Klungervik]

Homeseer 4 på windows 10.

 

Endret 21. november 2022 av Terje Klungervik

[Terje Klungervik]

Fant feilen. 

 

Manglet .vb i navnet på scriptet...

[JohnMartin]

Bare jeg som har fått problemer med scriptet?
Får ingen feilmelding i logg, men får dette resultatet:

[Moskus]

Nei, akkurat nå ser det ut til å fungere:

 

 

EDIT: Jeg må sjekke, det kan være jeg endrer SSL/TSL i et annet script...

 

[JohnMartin]

Moskus skrev (På 15.4.2023 den 8.37):

Nei, akkurat nå ser det ut til å fungere:

 

 

EDIT: Jeg må sjekke, det kan være jeg endrer SSL/TSL i et annet script...

 

Hva må evt endres på SSL/TSL og hvordan gjør man isåfall det?
Er det være noe med brannmuren?