文档好像使用的是/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编辑过]