qq_35613767 2016-07-15 09:35 采纳率: 0%
浏览 1482

VB调用下面XML ,该如何写POST?

POST/2014-06-30/Accounts/e03bc9106c6ed0eaebfce8c368fdcd48/Clients.xml?sig=3C861C9CFA64862A79B906D80EDB79BA
Host:api.ucpaas.com
Accept:application/xml
Content-Type:application/xml;charset=utf-8
Authorization:ZTAzYmM5MTA2YzZlZDBlYWViZmNlOGMzNjhmZGNkNDg6MjAxNDA2MjMxNzE2MzI=

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

e462aba25bc6498fa5ada7eefe1401b7
97854038
1
1
18612345678

  • 写回答

3条回答 默认 最新

  • qq_35613767 2016-07-15 09:39
    关注
        url = "/2014-06-30/Accounts/" & Trim(Me.Text1.Text) & "/Clients.xml?sig=" & url
    
    
             postData = "appId=0531613ee350406f83b36827a666d54c&friendlyName=123456&clientType=0&charge=1&mobile=13714402923"
          Set HttpClient = CreateObject("Microsoft.XMLHTTP")
          HttpClient.Open "POST", url, False
          HttpClient.SetRequestHeader "Host", "api.ucpaas.com"
          HttpClient.SetRequestHeader "Accept", "application/xml"
          HttpClient.SetRequestHeader "Content-Type", "text/xml; charset=UTF-8"
          HttpClient.SetRequestHeader "Authorization", Base64.Base64Encode(Trim(Me.Text1.Text) & ":" & Format(Now, "yyyyMMddHHmmss"))
          HttpClient.Send pvToByteArray(postData)
    
    评论

报告相同问题?

悬赏问题

  • ¥50 汇编语言除法溢出问题
  • ¥65 C++实现删除N个数据列表共有的元素
  • ¥15 Visual Studio问题
  • ¥15 state显示变量是字符串形式,但是仍然红色,无法引用,并显示类型不匹配
  • ¥20 求一个html代码,有偿
  • ¥100 关于使用MATLAB中copularnd函数的问题
  • ¥20 在虚拟机的pycharm上
  • ¥15 jupyterthemes 设置完毕后没有效果
  • ¥15 matlab图像高斯低通滤波
  • ¥15 针对曲面部件的制孔路径规划,大家有什么思路吗