调试
Case "wefox"
MessageBox.Show(e.Request.HttpMethod)
If e.Request.HttpMethod = "GET" Then
Dim token = "foxtable" '必须和设置的Token相同
Dim signature As String = e.GetValues("signature")
MessageBox.Show("signature =" & signature )
Dim timestamp As String = e.GetValues("timestamp")
Dim nonce As String = e.GetValues("nonce")
Dim echostr As String = e.GetValues("echostr")
MessageBox.Show("echostr =" & 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")
MessageBox.Show("strTmp =" & strTmp )
If signature = strTmp.ToLower() Then
e.WriteString(echostr)
End If
End If
加好友 
发短信
Post By：2024/11/8 9:59:00 [显示全部帖子]
