主题：[求助]微信配置失败

配置环境

一台笔记本，内网IP 192.168.255.59，端口映射到 111.*.*.*:80

项目中写了GetAccessToken、VerifySignature函数，改了APPID和开发者密钥

申请了微信测试号

url   http://111.*.*.*/wefox

token   foxtable

点提交 配置失败

定义菜单能够实现

关注之后，给公众号发送信息，message 表内没有任何显示

公众号主动发消息可以实现

 

可能是什么问题，还有什么需要注意的，请老师们帮着看一下

 

谢谢老师

 

HttpRequest事件代码

Dim fl As String = "d:\web\" & e.path

If filesys.FileExists(fl)

    Dim idx As Integer = fl.LastIndexOf(".")

    Dim ext As String  = fl.SubString(idx)

    Sel ect Case ext

        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

            e.WriteFile(fl)

            Return '这里必须返回

    End Sel ect

End If

 

Sel ect Case e.path

    Case "wefox"

        If e.Request.HttpMethod.ToUpper = "GET"

            If Functions.Execute("VerifySignature",e) Then

                e.WriteString(e.GetValues("echostr"))

            End If

        ElseIf e.Request.HttpMethod.ToUpper = "Post"

            Dim xo As XObject = XObject.Parse(e.PlainText)

            Dim st As New Date(1970,1,1,0,0,0)

            Sel ect Case xo("MsgType")

                Case "text","image","voice","video","shortvideo"

                    '保存和收到的消息

                   Dim dr As DataRow = DataTables("Message").AddNew()

                    dr("FromUserName") = xo("FromUserName")

                    dr("CreateTime") = st.AddSeconds(xo("CreateTime"))

                    dr("MsgType") = xo("MsgType")

                    dr("MsgId") = xo("MsgId")

                    dr("MediaId") = xo("MediaId")

                    dr("ThumbMediaId") = xo("ThumbMediaId")

                    dr("PicUrl") = xo("PicUrl")

                    dr("Content") = xo("Content")

                    dr("Format") = xo("Format")

                    dr("Recognition") = xo("Recognition")

                    dr.Save()

                       ‘MessageBox.Show("消息保存成功")

 

                    'Functions.Execute("SaveMessage",e)

          end sel ect

End sel ect

httprequest事件和VerifySignature函数，分别加入msgbox，看弹出什么。

我在httprequest事件中写了msgbox,只显示 hpptmothod=Get 后的

配置成功了没有？贴出你写的 VerifySignature 事件代码。贴出你接口配置的信息。

 

http://www.foxtable.com/mobilehelp/scr/0175.htm

 

我根据例子，用 ngrok 测试没问题。

 

https://www.ngrok.cc/

 

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

 

验证的时候，必须及时响应，如果回应太慢，就会配置失败的。你尝试在httprequest单独只写下面代码（其余全部删除）

 

Select Case e.path
    Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            e.WriteString(e.GetValues("echostr"))
        End If
End Select

还是显示配置失败

 单独做一个项目，认认真真根据foxtable的例子操作。

 

 我测试代码没问题i，肯定是你哪一步弄错了。

好的