script SCRIPT: EnTur.vb - Få inn data fra EnTur

[Moskus]

Jeg finner ingen feil, jeg. Utenom at du har en linje for mye helt øverst i scriptet.

 

Slik ser min scriptingreference ut:

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

Ingen feilmeldinger i loggen da du restartet HS3?

 

 

EDIT: JO, det er en feil. Lurer på om det er det som ser ut som den øverste linjen inneholder mer enn bare linjeskift.

 

 

 

[Rogerbl]

også denne feilmeldingen kommer:

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: For få typeargumenter for System.Collections.Generic.List(Of T).

jan-13 22.04.37

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser.

[Moskus]

Prøv min versjon, da:

EnTur.vbHenter informasjon...

[Rogerbl]

  Moskus skrev (På 13.1.2020 den 21.11):

Prøv min versjon, da:

EnTur.vb 15 kB · 0 downloads

Ekspander  

nei, må være noe feil på oppsettet på min hs3 server. Fikk denne meldingen med ditt script:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

[Moskus]

MEN: Du har denne banen her:

C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb

 

men i scripting-references har du c:\programfiler (x86)?

[Kensko]

  Rogerbl skrev (På 13.1.2020 den 21.19):

nei, må være noe feil på oppsettet på min hs3 server. Fikk denne meldingen med ditt script:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

Ekspander  

 

Har fulgt med litt fra bakgrunn, fordi jeg trodde det var jeg som hadde gjort noe teit. Men får samme feilmelding, og det virket hos meg helt i starten av traåden. Lastet ned Moskus sitt script fra tidligere i kveld, og bruker parameterne han testet med, men det feiler altså. Har samme linje i scriptingreference også. Kjører Windows 10 virtuelt. 

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

 

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur_test5.vb :Exception has been thrown by the target of an invocation.->Does entry point CallsFromStopplace 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 System.Reflection.MethodBase.Invoke(Object obj, Object[] parameters) at Scheduler.clsRunVBNetScript.ExecuteScript()

[Rogerbl]

  Moskus skrev (På 13.1.2020 den 21.22):

MEN: Du har denne banen her:

C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb

 

men i scripting-references har du c:\programfiler (x86)?

Ekspander  

Var jeg som endra det isted, men nå er den til bake til Program Files med feilmelding:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

[Moskus]

  Kensko skrev (På 13.1.2020 den 21.27):

Kjører Windows 10 virtuelt. 

Ekspander  

Det gjør jeg også, så det betyr nok ingenting. 

 

 

Aaaargh, dette gjør meg passe gal. Jeg har testet det på Linux og fikk god hjelp til det, jeg tester det på to forskjellige Windows-systemer. Det fungerer fint på Windows 7 og 10.

 

Jeg kjører imidlertid engelsk OS, men norske formateringer.

[Kensko]

  Moskus skrev (På 13.1.2020 den 21.42):

Det gjør jeg også, så det betyr nok ingenting. 

 

 

Aaaargh, dette gjør meg passe gal. Jeg har testet det på Linux og fikk god hjelp til det, jeg tester det på to forskjellige Windows-systemer. Det fungerer fint på Windows 7 og 10.

 

Jeg kjører imidlertid engelsk OS, men norske formateringer.

Ekspander  

Jeg gjør det samme (hmm eller hvordan var det med tusenskilletegn igjen?)

[GeneralVirus]

Har også samme problem her. Windows 10.

[Rogerbl]

  Moskus skrev (På 13.1.2020 den 21.42):

Det gjør jeg også, så det betyr nok ingenting. 

 

 

Aaaargh, dette gjør meg passe gal. Jeg har testet det på Linux og fikk god hjelp til det, jeg tester det på to forskjellige Windows-systemer. Det fungerer fint på Windows 7 og 10.

 

Jeg kjører imidlertid engelsk OS, men norske formateringer.

Ekspander  

Win 10 Enterprise her. 64 bit

[Moskus]

  Kensko skrev (På 13.1.2020 den 21.48):

Jeg gjør det samme (hmm eller hvordan var det med tusenskilletegn igjen?)

Ekspander  

 

Norsk bruker komma som desimalskille, og space som tusentallskille, så der er det i det minste en forskjell. Kan være et problem hvis EnTur-APIen bruker komma, men det burde de ha tenkt på.

[Moskus]

Oooookay, da skal vi kjøre noen runder med debugging. Yaaaay!

Så kanskje vi til og med lærer noe.  Vi deler scriptet opp i stykker og ser hva som skjer. Det kan være syntax-feil, og det kan være språklige utfordringer.

 

Finn "Sub Main" i scriptet og endre den til dette (tror det finnes der fra før).

 

Sub Main(parm As Object)
    Dim list As List(Of Trippattern) = GetTripBetweenStops("NSR:StopPlace:59854", "NSR:StopPlace:27753")

    Dim out As String = ""
     For Each c As Trippattern In list
         out &= c.ToString & "<br>"
     Next

    hs.WriteLog("EnTur", out)
End Sub

 

Kjør scriptet med et kall til "Main" istedenfor noen andre funksjoner. Sjekk loggen og rapporter.

[Rogerbl]

  Moskus skrev (På 14.1.2020 den 7.58):

Oooookay, da skal vi kjøre noen runder med debugging. Yaaaay!

Så kanskje vi til og med lærer noe.  Vi deler scriptet opp i stykker og ser hva som skjer. Det kan være syntax-feil, og det kan være språklige utfordringer.

 

Finn "Sub Main" i scriptet og endre den til dette (tror det finnes der fra før).

 

Sub Main(parm As Object)
    Dim list As List(Of Trippattern) = GetTripBetweenStops("NSR:StopPlace:59854", "NSR:StopPlace:27753")

    Dim out As String = ""
     For Each c As Trippattern In list
         out &= c.ToString & "<br>"
     Next

    hs.WriteLog("EnTur", out)
End Sub

 

Kjør scriptet med et kall til "Main" istedenfor noen andre funksjoner. Sjekk loggen og rapporter.

Ekspander  

ok, skal prøve det men oppdaget en feilmelding fra TibberSeer i loggen ang. NewtonSoft.json, kanskje en sammenheng?
TibberPrice, UpdateData ERROR: Could not load file or assembly 'Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed' or one of its dependencies. The located assembly's manifest definition does not match the assembly reference. (Exception from HRESULT: 0x80131040)

 

[Rogerbl]

endret sub main og fikk denne meldingen i loggen:
Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

[Moskus]

  Rogerbl skrev (På 14.1.2020 den 8.18):

ok, skal prøve det men oppdaget en feilmelding fra TibberSeer i loggen ang. NewtonSoft.json, kanskje en sammenheng?
TibberPrice, UpdateData ERROR: Could not load file or assembly 'Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed' or one of its dependencies. The located assembly's manifest definition does not match the assembly reference. (Exception from HRESULT: 0x80131040)

Ekspander  

TibberSeer har sin egen Newtonsoft.JSon.dll, men denne feilmeldingen kan tyde på at du har en Newtonsoft.Json.dll i HomeSeer-root-mappa.

DET ville forklare ganske mye. Kan du sjekke?

[Rogerbl]

  Moskus skrev (På 14.1.2020 den 8.24):

TibberSeer har sin egen Newtonsoft.JSon.dll, men denne feilmeldingen kan tyde på at du har en Newtonsoft.Json.dll i HomeSeer-root-mappa.

DET ville forklare ganske mye. Kan du sjekke?

Ekspander  

ja, det lå i root katalogen. Prøver igjen....

[Rogerbl]

feil igjen:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

[Moskus]

Da har du et event som kaller CallsFromStopplace. Fjern det. Du skal kalle "Main" funksjonen.  

[Rogerbl]

  Moskus skrev (På 14.1.2020 den 8.35):

Da har du et event som kaller CallsFromStopplace. Fjern det. Du skal kalle "Main" funksjonen.  

Ekspander  

Uten parametre?

[Moskus]

  Rogerbl skrev (På 14.1.2020 den 8.39):

Uten parametre?

Ekspander  

Det er det samme. Parameteren brukes ikke til noe.

[Moskus]

  Rogerbl skrev (På 14.1.2020 den 8.31):

ja, det lå i root katalogen. Prøver igjen....

Ekspander  

Restartet etterpå?

[Rogerbl]

  Moskus skrev (På 14.1.2020 den 8.40):

Restartet etterpå?

Ekspander  

ja.. her er resultat i loggen nå:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point Main exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

jan-14 09.36.57

Event

Running script and waiting: C:/Program Files (x86)/HomeSeer HS3/scripts/EnTur.vb("Main","345,NSR:StopPlace:57094,NSR:Quay:97801,5")

[Moskus]

Ok, da prøver vi dette:

 

Sub Main(parm As Object)
    Dim stop1 As String = "NSR:StopPlace:59854"
    Dim stop2 As String = "NSR:StopPlace:27753"

    Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}"
    Dim result As String = RunQuery(jsonQuery)
    hs.WriteLog("EnTur", result)
 End Sub

Hvis dette fungerer, så er det noe tull med JSON. Hvis dette ikke fungerer, så er det noe funky med WebClient, men det burde det ikke være.

[Rogerbl]

  Moskus skrev (På 14.1.2020 den 8.58):

Ok, da prøver vi dette:

 

Sub Main(parm As Object)
    Dim stop1 As String = "NSR:StopPlace:59854"
    Dim stop2 As String = "NSR:StopPlace:27753"

    Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}"
    Dim result As String = RunQuery(jsonQuery)
    hs.WriteLog("EnTur", result)
 End Sub

Hvis dette fungerer, så er det noe tull med JSON. Hvis dette ikke fungerer, så er det noe funky med WebClient, men det burde det ikke være.

Ekspander  

Fikk denne i loggen: Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: entries er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.

jan-14 10.04.34

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser.