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

配置环境

一台笔记本，内网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