'上传考勤数据到指定接口'
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim noncestr As String = Rand.NextString(16) '随机字符
Dim secret As String = "tmfvtbp8My6Fbezqh9Pe29uy"
Dim psecret As String = "TuEMaXb7FuRVoTFxJFTS0sZe"
Dim pretreatmentStr = noncestr & "_" & timestamp & "_" & secret & "_" & psecret
Dim signStr As String = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(pretreatmentStr, "SHA1").ToLower()
Dim hc As New HttpClient("http://186.67.170.78:81/api/open/rn/v3/attendance")
hc.Headers.Add("keyId","d82ef3d0-514e-4864-bcf1_83f77028-216a-477f-a28f")
hc.Headers.Add("ts",timestamp)
hc.Headers.Add("rCode",noncestr)
hc.Headers.Add("signature",signStr)
Dim jo As new JObject
jo("workerId") = "833AD077-6943-4F4E-90F3-AD642C1C41C2"
jo("entry") = "Entry"
jo("mode") = "IDCard"
jo("photo") = ""
jo("attendanceTime") = "2019-09-16 08:03:00"
jo("sn") = "ZK-T1236548N"
jo("lat") = 0
jo("lng") = 0
Dim ja As New JArray
ja.Add(jo)
hc.Content = ja.ToString
Dim ret As String = hc.GetData
output.show(ret)
[此贴子已经被作者于2019/9/16 14:38:01编辑过]
加好友 
发短信
Post By：2019/9/16 11:54:00 [只看该作者]
此主题相关图片如下：2.png
