Fix:语言标头问题
This commit is contained in:
@@ -683,7 +683,7 @@ LoginFinish:
|
|||||||
Url:=Data.Input.BaseUrl & "/validate",
|
Url:=Data.Input.BaseUrl & "/validate",
|
||||||
Method:="POST",
|
Method:="POST",
|
||||||
Data:=RequestData.ToString(0),
|
Data:=RequestData.ToString(0),
|
||||||
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh_CN"}},
|
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh-CN"}},
|
||||||
ContentType:="application/json; charset=utf-8") '没有返回值的
|
ContentType:="application/json; charset=utf-8") '没有返回值的
|
||||||
'将登录结果输出
|
'将登录结果输出
|
||||||
Data.Output.AccessToken = AccessToken
|
Data.Output.AccessToken = AccessToken
|
||||||
@@ -707,7 +707,7 @@ LoginFinish:
|
|||||||
""name"":""" & Setup.Get("Cache" & Data.Input.Token & "Name") & """},", "") & "
|
""name"":""" & Setup.Get("Cache" & Data.Input.Token & "Name") & """},", "") & "
|
||||||
""accessToken"":""" & Setup.Get("Cache" & Data.Input.Token & "Access") & """,
|
""accessToken"":""" & Setup.Get("Cache" & Data.Input.Token & "Access") & """,
|
||||||
""clientToken"":""" & Setup.Get("Cache" & Data.Input.Token & "Client") & """}",
|
""clientToken"":""" & Setup.Get("Cache" & Data.Input.Token & "Client") & """}",
|
||||||
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh_CN"}},
|
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh-CN"}},
|
||||||
ContentType:="application/json; charset=utf-8"))
|
ContentType:="application/json; charset=utf-8"))
|
||||||
'将登录结果输出
|
'将登录结果输出
|
||||||
If LoginJson("selectedProfile") Is Nothing Then Throw New Exception("选择的角色 " & Setup.Get("Cache" & Data.Input.Token & "Name") & " 无效!")
|
If LoginJson("selectedProfile") Is Nothing Then Throw New Exception("选择的角色 " & Setup.Get("Cache" & Data.Input.Token & "Name") & " 无效!")
|
||||||
@@ -738,7 +738,7 @@ LoginFinish:
|
|||||||
Url:=Data.Input.BaseUrl & "/authenticate",
|
Url:=Data.Input.BaseUrl & "/authenticate",
|
||||||
Method:="POST",
|
Method:="POST",
|
||||||
Data:=RequestData.ToString(0),
|
Data:=RequestData.ToString(0),
|
||||||
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh_CN"}},
|
Headers:=New Dictionary(Of String, String) From {{"Accept-Language", "zh-CN"}},
|
||||||
ContentType:="application/json; charset=utf-8"))
|
ContentType:="application/json; charset=utf-8"))
|
||||||
'检查登录结果
|
'检查登录结果
|
||||||
If LoginJson("availableProfiles").Count = 0 Then
|
If LoginJson("availableProfiles").Count = 0 Then
|
||||||
|
|||||||
Reference in New Issue
Block a user