Dim dlg As New OpenFileDialog
dlg.Filter = "Excel|*.jpg;*.png;"
If dlg.ShowDialog = DialogResult.OK Then
Dim hc As New HttpClient("http://handline.aliapi.hanvon.com/rt/ws/v1/hand/line?code=" & dlg.filename)
hc.Headers.Add("Authorization","APPCODE" & " " & "5b33f5a0475d45df9ba68479b11085f3")
Dim result As String = hc.GetData()
Dim jo As JObject = Jobject.Parse(result)
messagebox.show(jo("Message"))
End If
我这样试提示远程服务器返回错误请求,请问老师该怎样改
加好友 
发短信
Post By：2020/1/10 21:39:00 [只看该作者]
