Foxtable(狐表)用户栏目专家坐堂 → [求助]微信接口配置失败


  共有2867人关注过本帖树形打印复制链接

主题:[求助]微信接口配置失败

帅哥哟,离线,有人找我吗?
无限5180
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
[求助]微信接口配置失败  发帖心情 Post By:2019/3/6 17:03:00 [只看该作者]

老师: 按照帮助文件在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
图片点击可在新窗口打开查看

这是怎么回事呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/6 17:07:00 [只看该作者]

测试号是不加密的,直接返回

Select Case e.path
        Case "wefox"   '登录页面
e.WriteString(e.GetValues("echostr"))
    End Select

 回到顶部
帅哥哟,离线,有人找我吗?
无限5180
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
回复:(有点蓝)测试号是不加密的,直接返回Select C...  发帖心情 Post By:2019/3/6 17:20:00 [只看该作者]

测试号是不加密的,直接返回

Select Case e.path
        Case "wefox"   '登录页面
e.WriteString(e.GetValues("echostr"))
    End Select


按照这个代码,"Token"写在哪儿呢? 微信提交,Token不能为空


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/6 17:22:00 [只看该作者]

    Select Case e.path
        Case "wefox"   '登录页面
            If e.Request.HttpMethod.ToUpper = "GET"
                If Functions.Execute("VerifySignature",e) Then
                    e.WriteString(e.GetValues("echostr"))
                End If
            End If
    End Select

 回到顶部
帅哥哟,离线,有人找我吗?
无限5180
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
  发帖心情 Post By:2019/3/6 17:35:00 [只看该作者]

老师,这个代码好像我发的问题提交的代码一样呀,还是配置失败
    Select Case e.path
        Case "wefox"   '登录页面
            If e.Request.HttpMethod.ToUpper = "GET"
                If Functions.Execute("VerifySignature",e) Then
                    e.WriteString(e.GetValues("echostr"))
                End If
            End If
    End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/6 17:39:00 [只看该作者]

在你的httprequest那里加入msgbox(e.path)

 

当你点击提交的时候,能否弹出对应窗口?


 回到顶部
帅哥哟,离线,有人找我吗?
无限5180
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
  发帖心情 Post By:2019/3/6 17:40:00 [只看该作者]

不好意思,老师,应该是我这边的问题,已经成功了,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/6 17:40:00 [只看该作者]

如果还有问题,请这样配置测试环境

 

http://www.sunnyos.com/article-show-67.html

 

https://www.ngrok.cc/

 


 回到顶部
帅哥哟,离线,有人找我吗?
无限5180
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2793 威望:0 精华:0 注册:2012/10/26 0:45:00
回复:(有点甜)如果还有问题,请这样配置测试环境...  发帖心情 Post By:2019/3/6 19:47:00 [只看该作者]

谢谢老师,正是需要的.

 回到顶部