Foxtable(狐表)用户栏目专家坐堂 → 请教一下httpclient的一个token获取问题


  共有151人关注过本帖树形打印复制链接

主题:请教一下httpclient的一个token获取问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/21 8:51:00 [显示全部帖子]

hc.FormData.Add("GetUserToken", jstr)
改为
hc.Content = jstr

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/21 16:34:00 [显示全部帖子]

加上
hc.ContentType = "application/json"

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/21 20:36:00 [显示全部帖子]

接口开发文档发上来看看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/22 11:26:00 [显示全部帖子]

文档好像使用的是/SSO/GetUserToken,不是"/api/GetUserToken",另外要注意大小写

直接使用它的代码有没有问题?

Dim baseUrl = "http://localhost:449/testweb"
Dim userName = "administrator"
Dim password = "123456"
Dim rq As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(baseUrl & "/SSO/GetUserToken"), System.Net.HttpWebRequest)
rq.Method = System.Net.WebRequestMethods.Http.Post
rq.Accept = "application/json"
rq.ContentType = "application/json"
Dim loginStr = "{userName:""" & userName & """, password:""" & password & """}"
Dim data = Encoding.UTF8.GetBytes(loginStr)

Using stream As system.IO.Stream = rq.GetRequestStream()
    stream.Write(data, 0, data.Length)
End Using

Dim response = rq.GetResponse()
Dim token = New system.IO.StreamReader(response.GetResponseStream()).ReadToEnd()

MessageBox.Show(token)

[此贴子已经被作者于2024/11/22 11:25:59编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/22 15:16:00 [显示全部帖子]

Dim token As String = New system.IO.StreamReader(response.GetResponseStream()).ReadToEnd()
改为
Dim resStream As System.IO.Stream = response.GetResponseStream()
Dim reader As New System.IO.StreamReader(resStream)
Dim token As String = reader.ReadToEnd()


 回到顶部