Dim JsonStr As String = <string>{
"refresh_token": "61d260",
"expires_in": 2592000,
"session_key": "9mz",
"access_token": "240",
"session_secret": "6fa"
}</string>
Dim j As Object = New System.Web.Script.Serialization.JavaScriptSerializer().Deserialize(Of Object)(JsonStr)
Dim strToken = j("access_token")
记得添加引用System.Web.Extensions.dll