楼上第2个问题尝试了好几个小时，也没有弄出来，若能给个例子，那就太感谢了！
Dim text = "狗蛋"
Dim hc A s New HttpC lient("https://aip.baidubce.com/rpc/2.0/nlp/v1/lexer")
hc.Con tentType = "applica tion/x-w ww-fo rm-url encoded"
Dim token As String = "24.ee769b8e9b4df4450143b25069981892.2592000.1508637775.282335-10174353"
hc.Con tent = "acces s_token=" & token
msgbox("获取数据完毕")
Dim stm As Sys tem.IO.Str eam = pos.GetResponseStream()
Dim reader As New Sy stem.I O.Strea mReader(stm)
Dim str As String = read er.Rea dToEnd
po s.Close
st m.Close
rea der.close
Dim jo As JOb ject = Jobje ct.Par se(str)
msgbox("3:" & jo.ToString)
[此贴子已经被作者于2018/11/19 11:43:48编辑过]
加好友 
发短信
Post By：2018/11/19 11:36:00 [只看该作者]
