企业微信，回调请求地址不通过 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq图片20190909151711.png

此主题相关图片如下：qq图片20190909151657.png

Dim e As RequestEventArgs = args(0)

Dim LDtNames() As String = {"QyWx"}

Functions.Execute("LoadDt",LDtNames,False) '加载表

Dim drqywx As DataRow= DataTables("QyWx").SQLFind("AppName='丰园销售售后'")

Dim CorpId As String = drqywx("CorpID") '企业号的CorpID.

Dim Token As String = drqywx("Token") '指定的Token

Dim EncodingAESKey As String = drqywx("EncodingAESKey") '指定的EncodingAESKey

Dim wbiz As New WXBizCrypt(CorpId ,Token,EncodingAESKey)

If e.Request.HttpMethod = "GET"

Dim ret As Integer = wbiz.CheckQYSignature(e)

MessageBox.Show(ret)

If ret <> 0 Then '如果接入验证失败

Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述

Return "#wxqy#" & err

End If

ElseIf e.Request.HttpMethod = "Post"

代码如上。

messagebox,，返回 0

说明域名指响也对，服务器也响应了

此主题相关图片如下：qq图片20190909151514.png

主题：企业微信，回调请求地址不通过