json - recuperar valores de uma string

Question

Tenho um JSON nesse formato,  alguém tem algum exemplo de como consigo recuperar o valor somente do campo: accessToken?

{
"result":
{
"authenticated":true
,"created":"2021-02-22 10:08:14"
,"expiration":"2021-02-22 10:38:14"
,"accessToken":"eyJhbGci..."
,"message":"OK"
}
}

já tentei como abaixo mas não deu certo.

    Private Function RetornaJson(jsonString As String) As String

        Dim tokenJson = JsonConvert.SerializeObject(jsonString)
        Dim jsonResult = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(jsonString)
        
        Dim Item = jsonResult.Item("accessToken").Item(0).Value(Of String)("result").ToString

              RetornaJson = Item

    End Function

---

Fabiano Pires

Answer 1

Ola Fabiano,

Você está tentando renovar o token ou apenas deseja exibi-lo em seu código?

De onde é esse arquivo JSON? Sua conta do Azure?

Answer 2

Boa tarde,

esses json é uma API que me retorna e eu preciso preencher alguns campos com o resultado dela, por exemplo:

txtaccessToken.text  =  accessToken

---

Fabiano Pires

Answer 3

Fabiano,

Eu achei esses dois artigos que acho que vai lhe ajudar modificar seu código para pegar o valor to token do JSON.

https://stackoverflow.com/questions/20924190/get-value-of-json-object-in-vb-net

https://stackoverflow.com/questions/22777119/how-to-read-a-json-response-using-httpclient-in-vb-net

Answer 4

eu cheguei a testar esses dois, porem só funciona se eu deixar meu json nesse formato:

{
"authenticated":true
,"created":"2021-02-22 10:08:14"
,"expiration":"2021-02-22 10:38:14"
,"accessToken":"eyJhbGci..."
,"message":"OK"
}

invés desse:

{
"result":
{
"authenticated":true
,"created":"2021-02-22 10:08:14"
,"expiration":"2021-02-22 10:38:14"
,"accessToken":"eyJhbGci..."
,"message":"OK"
}
}

---

Fabiano Pires