znelove 2018-01-25 01:52 采纳率: 50%
浏览 1221
已采纳

vb.net API数据访问。

所有的数据格式为JSON
所有的数据传输编码为UTF-8
目前,API访问的地址来源为http://api.jsform.com/api/v1/
除了数据推送API外,所有的API都需要恰当的API访问权限。目前我们仅支持HTTP Basic验证的方式。

在表单大师做了些数据收集,BOSS让把新数据实时更新到电脑。
知道API Key/Secret,怎么样在vb.net编写个软件,在电脑上获取新提交的数据信息。

  • 写回答

1条回答

  • threenewbee 2018-01-25 03:44
    关注
     Dim url As String = "http://api.jsform.com/api/v1/"
    Dim request As HttpWebRequest = CType(HttpWebRequest.Create(url), HttpWebRequest)
    request.Method = "POST"
    request.ContentType = "application/x-www-form-urlencoded";
    request.Credentials = CredentialCache.DefaultCredentials;
    Dim code As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(string.Format("{0}:{1}", userName, password)))
    request.Headers.Add("Authorization", "Basic " + code)
    Dim encoding As New UTF8Encoding()  
    Dim bys As Byte() = encoding.GetBytes(你的参数)  
    request.ContentLength = bys.Length  
    Dim newStream As Stream = request.GetRequestStream()  
    newStream.Write(bys, 0, bys.Length)  
    newStream.Close()  
    Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)  
    Dim 结果 = sr.ReadToEnd()
    
    手工写的,你参考下。
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥20 有关区间dp的问题求解
  • ¥15 多电路系统共用电源的串扰问题
  • ¥15 slam rangenet++配置
  • ¥15 有没有研究水声通信方面的帮我改俩matlab代码
  • ¥15 对于相关问题的求解与代码
  • ¥15 ubuntu子系统密码忘记
  • ¥15 信号傅里叶变换在matlab上遇到的小问题请求帮助
  • ¥15 保护模式-系统加载-段寄存器
  • ¥15 电脑桌面设定一个区域禁止鼠标操作
  • ¥15 求NPF226060磁芯的详细资料