VB.net将来自URL结果的JSON放在文本框中

Question

我的 JSON 字符串

{

"name": "username",
"place": {
  "name": "placename",
}    

到目前为止我的代码

Dim request As HttpWebRequest
    Dim response As HttpWebResponse = Nothing
    Dim reader As StreamReader

    Try

        request = DirectCast(WebRequest.Create("http://json-request.com/myjson"), HttpWebRequest)

        response = DirectCast(request.GetResponse(), HttpWebResponse)
        reader = New StreamReader(response.GetResponseStream())

        Dim rawresp As String
        rawresp = reader.ReadToEnd()

        Dim jResults As JObject = JObject.Parse(rawresp)
        Dim results As List(Of JToken) = jResults.Children().ToList()

        For Each item As JProperty In results
            item.CreateReader()
            textbox.text = ("placename")) 
        Next

    Catch ex As Exception
        MsgBox(ex.ToString)
    Finally
        If Not response Is Nothing Then response.Close()

    End Try
End Sub

如果对我使用 Visual Studio 2013 和 Windows 窗体有帮助，我如何从 URL 中提取并解析一个文本框中的地名和 VB.net 中另一个文本框中的用户名

任何帮助将不胜感激

谢谢

Answer 1

我假设rawresp 包含此问题中发布的 json，以下代码 sn-p 演示了一种获取“用户名”和“地名”的方法，然后将它们显示在两个不同的 TextBoxs 中：

......
Dim jResults As JObject = JsonConvert.DeserializeObject<JObject>(rawresp)
usernameTextbox.text = jResults("name").ToString()
placenameTextbox.text = jResults("place")("name").ToString()
......

Answer 2

感谢我不得不将 [] 更改为 () 并稍微更改为

Dim jResults As JObject = JObject.Parse(rawresp)
usernameTextbox.text = jResults("name").ToString()
placenameTextbox.text = jResults("place")("name").ToString()

但它有效：D

但是当请求是 404 时，我抛出了一个异常，你知道我如何处理错误或任何其他错误，因为我将使用文本框来更改 URL 并显示一个消息框吗？

再次感谢