Dim source As String = FileSys.ReadAllText("D:\问题\返回的jsonstring.txt")
Dim jo As JObject = JObject.Parse(source)
Dim bytes() As Byte = Convert.FromBase64String(jo("Audio").ToString)
Using fs As New io.FileStream("d:\问题\abc.mp3", io.FileMode.Create, io.FileAccess.Write)
fs.Write(bytes, 0, bytes.Length)
fs.Flush()
End Using