Dim st As New Date(1970,1,1,8,0,0)
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.tls12
Dim deviceimei As String="176f7a9fb1cd9d39" '企业号的CorpID
Dim authCode As String = "1A03F25B15CD4AEEA95172567BB8847D" '管理组的Secret
Dim timestamp As Long = (Date.Now - st).TotalSeconds()
Dim url As String = "https://gateway.cncdc.net:7001/api_v1/auth/union/device/login"
Dim jo As new JObject
jo("deviceIMEI") = deviceimei
jo("authCode") = authCode
jo("timestamp") = timestamp
Dim hc As New HttpClient(url)
hc.ContentType = "application/json"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Output.Show(ret)
显示登录失败，把结果的requestID值发给对方，查是什么原因
[此贴子已经被作者于2021/8/5 13:59:01编辑过]
加好友 
发短信
Post By：2021/8/4 9:39:00 [显示全部帖子]
