1、可以用异步函数取获取处理,这样不用卡死
http://www.foxtable.com/mobilehelp/scr/3269.htm
2、你要整体获取完毕,你才能知道返回多少数据的,也就是下面代码要执行完才能得到数据
Dim jo As JObject = JObject.Parse(hc.GetData())