- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- token验证失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116092)
-- 发布时间：2018/3/19 21:30:00
-- token验证失败
按着微信案例要求严格进行设置，并使用了NGROk软件。
但是微信基本设置始终出现token验证失败。
经过查询FoxWechat,log文件，发现每测试一次，该日志都会有记录。
将该日志的记录复制进浏览器打开，会出现
《授权登陆》提示
授权登录
即将登录XXX系统,请确认是本人操作.
-- 发布时间：2018/3/19 21:31:00
--
如果点击了 系统登陆 则出现下列提示
确认登陆
缺少必要的授权信息, 请关闭此页面重新扫描!
[此贴子已经被作者于2018/3/19 21:31:21编辑过]
-- 发布时间：2018/3/19 21:55:00
--
服务端HttpRequest写了什么代码？贴出完整代码
微信是如何设置的？客户端微信编辑设置以及微信台的设置截图看看
日志记录了什么？贴出看看
-- 发布时间：2018/3/20 6:30:00
--
一、服务端HTTP代码：
try
Select Case e.host
Case "192.168.3.6","127.0.0.1","glsafe1.free.ngrok.cc"
Dim dr As DataRow
Dim url As String
Dim wechatserv As WeChat.WeChatPublicNo
If e.Path > "" Then
url = "http://" & e.host & "/" & e.Path.replace("\\","/").replace("\'","\'\'").replace("""","""""") & "/"
wechatserv = Functions.Execute("WeChat_GetServerByUrl",url) \'查询是否有此地址的微信公众号
End If
If wechatserv IsNot Nothing Then \'说明是微信接口回调消息
wechatserv.ProcessMessage(e,"WeChat_ProcessRequestMsg") \'处理消息并获取返回值
\'Functions.Execute("LogText","回复=" & weRet)
Else
\'通用事件头
\'如果网页路径定义了中间目录,如"ordertest/logon.htm" ,则下面的fl实际就是"d:\\web\\ordertest\\weui\\weui.me.js"
\'因此你需要把WeUI框架三个文件复制到"d:\\web\\ordertest\\weui"目录下
Dim fl As String = "C:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "gettoken" \'做为AccessToken中控服务
Dim atoken As WeChat.AccessToken = WeChat.WeChatAccessTokenController.GetServiceAccessToken(e.PlainText)
e.WriteString(atoken.ToJson()) \'返回access_token的JSON数据
Case "scanlogon" \'做为AccessToken中控服务
Functions.Execute("Http_ScanLogon" ,e)
Case Else
If e.Path.StartsWith("ordertest\\") Then \'公众号订单测试地址前缀都统一使用这个
Functions.Execute("Order_HttpRequest",e)
ElseIf e.Path.StartsWith("review\\") Then \'企业号订单审核地址前缀都统一使用这个
Functions.Execute("Order_HttpReview",e)
End If
End Select
End If
End Select
\'记录接收的消息,方便分析
Dim str As new StringBuilder
\'str.AppendLine("host=" & e.host)
str.AppendLine("path=" & e.Path)
str.AppendLine("HttpMethod=" & e.Request.HttpMethod)
\'str.AppendLine("poststring=" & e.PlainText)
\'str.AppendLine("ip=" & e.Request.RemoteEndPoint().Address.ToString())
For Each key As String In e.Values.Keys
str.AppendLine(key & "=" & e.Values(key))
Next
Functions.Execute("logText",str.ToString)
catch ex As Exception
Functions.Execute("LogText",ex)
e.WriteString("")
End Try
-- 发布时间：2018/3/20 6:34:00
--
这是微信服务端监听设置的截图
此主题相关图片如下：qq截图20180320063314.jpg
-- 发布时间：2018/3/20 6:37:00
--
微信客户端的微信设置页面截图
此主题相关图片如下：qq截图20180320063626.jpg
-- 发布时间：2018/3/20 6:40:00
--
微信设置页面截图
此主题相关图片如下：qq截图20180320063926.jpg
-- 发布时间：2018/3/20 6:43:00
--
此主题相关图片如下：qq截图20180320064201.jpg
ngrok的设置和启动后点击了微信平台设置后情况
此主题相关图片如下：qq截图20180320064235.jpg
-- 发布时间：2018/3/20 6:45:00
--
一、微信客户端的日志记录
2018-03-20 06:34:31.3898
http://127.0.0.1/scanlogon?nonce=-2074421591&token=Iv74fCWBzUypwgnB69ckKq9WSOgN0rDlTP6PX0ivZWevWoZtA4aUHNGrVP3hpaE1FUGAEDwb1TcbRWW%2fVoAVXz%2bpAGlEGs%2bfeWXvGeBU2Yk%3d
2018-03-20 06:38:51.2374
http://127.0.0.1/scanlogon?nonce=1310561217&token=zDnUJvwrCLR3pIsBOnyo3msOSk6lBdXInogwp6UBEHcC7z6WEYoOWVPFg0wKNMSj%2foNBa%2b%2bJlTGB0qR4%2b4IGoD2xTCi4LlipMl6cqEIXvrA%3d
二、微信服务端的日志记录
2018-03-20 06:42:18.5513
path=
HttpMethod=GET
signature=51e0957868e55e63cedf1e42cade9714edc17fd1
echostr=806661874169822951
timestamp=1521499335
nonce=1328173664
-- 发布时间：2018/3/20 8:17:00
--
这2个地方都加上一个子目录
此主题相关图片如下：2.jpg
此主题相关图片如下：1.jpg