我正在设计送货确认的页面,页面中有个确认的按钮,用户确认后跳转到另外一个页面,在这个页面中想要获取当前用户的位置。是企业号的应用。今天怎么不能成功,请帮忙看看是什么原因。代码如下:Dim e As RequestEventArgs = args(0)
Dim wbiz As New WXBizCrypt("wxa0545235324",Functions.Execute("GetQYAccessToken"),"6ueATjEId-mVYliF0HxdnwdA5BPPsdgsadgdgasdsadasdfad")
If e.Request.HttpMethod = "GET"
Dim ret As Integer = wbiz.CheckQYSignature(e)
If ret <> 0 Then '如果接入验证失败
Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
End If
ElseIf e.Request.HttpMethod = "Post" '
Dim st As New Date(1970,1,1,8,0,0)
Dim msg As String = wbiz.DecryptMsg(e) '解密
If IsNumeric(msg) Then '如果解密
MessageBox.show(msg)
Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
MessageBox.show(err)
Return ""
End If
End If
用这个代码,会解密出错。msg 的值 为:-4004, 错误为:AESKEY非法。 我都是按帮助的说明做的,不知道哪里出错了!