服务号内开发基本配置，接入显示验证token失败，见下图
httprequest代码：
Select Case e.Path
Case "wefox"
If Functions.Execute("VerifySignature",e) = False Then
Return
End If
end select
VerifySignature代码：
Dim e As RequestEventArgs = Args(0)
Dim token = "123456" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
Dim timestamp As String = e.GetValues("timestamp")
Dim nonce As String = e.GetValues("nonce")
Dim echostr As String = e.GetValues("echostr")
Dim aryTmp() As String = {token,timestamp,nonce}
Array.Sort(aryTmp)
Dim strTmp As String = String.Join("", aryTmp)
strTmp = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strTmp, "SHA1")
Return signature = strTmp.ToLower
[此贴子已经被作者于2020/5/19 12:57:57编辑过]
加好友 
发短信
Post By：2020/5/19 11:01:00 [显示全部帖子]
