以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  curl -d 狐表怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116819)

--  作者:fubblyc
--  发布时间:2018/3/31 20:11:00
--  curl -d 狐表怎么写
老师,curl-d 用FT怎么写呢。。。
这边是 长连接转短链接
https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1443433600

curl -d "{\\"action\\":\\"long2short\\",\\"long_url\\":\\"http://wap.koudaitong.com/v2/showcase/goods?alias=128wi9shh&spm=h56083&redirect_count=1\\"}" "https://api.weixin.qq.com/cgi-bin/shorturl?access_token=ACCESS_TOKEN"

我这样写不对:
Dim url As String = "https://api.weixin.qq.com/cgi-bin/shorturl?access_token={0}"
Dim hc2 As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))
Dim jo2 As JObject 
jo2("action") = "long2short"
jo2("long_url") = "http://www.baidu.com"
jo2 = jobject.Parse(hc2.GetData)
output.show(jo2.toString)




--  作者:fubblyc
--  发布时间:2018/4/1 18:25:00
--  
微信的文档:


--  作者:有点甜
--  发布时间:2018/4/1 18:39:00
--  

2楼代码没问题的,你执行后报什么错?


--  作者:fubblyc
--  发布时间:2018/4/1 21:36:00
--  
甜老师,是这样:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180401213614.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180401213746.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2018/4/1 21:37:58编辑过]

--  作者:有点甜
--  发布时间:2018/4/1 21:54:00
--  

改成

 

Dim jo As New JObject


--  作者:fubblyc
--  发布时间:2018/4/1 22:18:00
--  
天,原来是这个低级错误。可以了,谢谢甜老师!!