- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 短网址生成问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116870)
-- 发布时间：2018/4/1 23:43:00
-- 短网址生成问题
甜老师，网上的短网址接口，一模一样的格式，只是服务商不同（域名不同），但是只有一个可以，其他的都不行，是什么原因呢。。
这个可以
这个不行
这个也不行
Dim url As String = "http://suo.im/api.php?format=json&url=http://www.baidu.com"
Dim hc As New HttpClient(url)
Dim jo As new JObject
jo = Jobject.Parse(hc.GetDaTa)
output.show( jo("url") )
Dim url2 As String = "http://api.kks.me/api.php?format=json&url=http://www.baidu.com"
Dim hc2 As New HttpClient(url2)
Dim jo2 As new JObject
jo2 = Jobject.Parse(hc2.GetDaTa)
output.show( jo2("url") )
此主题相关图片如下：微信截图_20180401234024.png
[此贴子已经被作者于2018/4/1 23:45:27编辑过]
-- 发布时间：2018/4/2 9:12:00
--
返回的数据本身有问题，如
Dim url2 As String = "http://api.kks.me/api.php?format=json&url=http://www.baidu.com"
Dim hc2 As New HttpClient(url2)
Dim jo2 As new JObject
Dim str As String = hc2.GetDaTa
Dim i = str.indexof("{")
str = str.SubString(i)
jo2 = Jobject.Parse(str)
output.show( jo2("url"))
-- 发布时间：2018/4/2 9:13:00
--
或者
Dim url2 As String = "http://api.kks.me/api.php?format=json&url=http://www.baidu.com"
Dim hc2 As New HttpClient(url2)
Dim jo2 As new JObject
Dim str As String = hc2.GetDaTa
jo2 = Jobject.Parse(str.trim)
output.show( jo2("url"))