参考
Dim json = ClipBoard.GetTextDim jo As JObject = JObject.Parse(json)msgbox(jo("reason"))msgbox(jo("result")("bankcard"))