【已解决】[求助]kuaibao快宝api - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]kuaibao快宝api

共有4814人关注过本帖树形打印复制链接主题：【已解决】[求助]kuaibao快宝api

zto001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00

【已解决】[求助]kuaibao快宝api 发帖心情

Post By：2019/7/22 10:51:00 [只看该作者]

以下内容是专门发给zto001浏览

[/username]

[此贴子已经被作者于2020/3/19 23:13:19编辑过]

有点酸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/7/22 11:15:00 [只看该作者]

我看到里头有C#的代码，复制出来，然后转为vb.net的代码就行了。

ttp://converter.telerik.com/

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/22 11:42:00 [只看该作者]

最好找他们要c#的开发实例。里面有MD5加密的用法，不知道使用的是哪一种，开发文档没看到有

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2019/7/22 11:58:00 [只看该作者]

用Foxtable大概就是：

Dim hc As new HttpClient("http://kop.kuaidihelp.com/api/")

hc.FormData.Add("app_id", "50001")

hc.FormData.Add("method", "cloud.address.resolve")

hc.FormData.Add("ts", "1524209949")

hc.FormData.Add("sign", "bdf3b5f50865ac813cbdfd6c9b572b79")

hc.FormData.Add("data", "{""text"":""浙江省绍兴市诸暨市浣东街道西子公寓北区电话:13905857430 衣服食物 "",""multimode"":false}")

output.show(hc.GetData)

[此贴子已经被作者于2019/7/22 11:58:52编辑过]

zto001

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/7/22 13:13:00 [只看该作者]

当前时间戳怎么获取？

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/22 14:30:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/scr/0176.htm

Dim st As New Date(1970,1,1,8,0,0)
            Select Case xo("MsgType")
                Case "text","image","voice","video","shortvideo" '为了简单,这里只保存文本、图片、语音和视频消息。
                    Dim dr As DataRow = DataTables("Message").AddNew()
                    dr("FromUserName") = xo("FromUserName")
                    dr("CreateTime") = st.AddSeconds(xo("CreateTime"))