老师: 按照帮助文件在httpRequest事件中设置如下代码
Select Case e.path
Case "wefox.htm" '登录页面
'e.WriteString("你好")
If e.Request.HttpMethod.ToUpper = "GET"
If Functions.Execute("VerifySignature",e) Then
e.WriteString(e.GetValues("echostr"))
End If
End If
End Select
设置名为"VerifySignature"的函数
Dim e As RequestEventArgs = Args(0)
Dim token = "***" '必须和设置的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
通过网页访问,msgbox显示能正常访问
但提交显示"配置失败"
此主题相关图片如下：配置失败.png
这是怎么回事呢?
加好友 
发短信
Post By：2019/3/6 17:03:00 [只看该作者]
