Ai... webencoding, ja. Sannsynligvis bare å konfigurere webclient riktig. Jeg skal sjekke. Hvilket stoppested er det?
EDIT: Sannsynligvis holder med å bare bruke UTF8. Legg til
client.Encoding = System.Text.Encoding.UTF8
Mellom using-kodene i RunQuery, evt. bare erstatt hele greia (dvs kun RunQuery) med koden under:
Private Function RunQuery(ByVal jsonQuery As String) As String
Dim url As String = "https://api.entur.org/journeyplanner/2.0/index/graphql"
Using client As New System.Net.WebClient
client.Headers.Add("ET-Client-Name", "Moskus-InfoplakatForHomeseer")
client.Headers.Add("User-Agent", "EnTur-script by Moskus")
client.Headers.Add("Content-Type", "application/graphql")
client.Encoding = System.Text.Encoding.UTF8
client.BaseAddress = url
Return client.UploadString(url, "POST", jsonQuery)
End Using
End Function
Sjekker du før jeg oppdaterer førstepost?