- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 企业微信，回调请求地址不通过 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140591)
-- 发布时间：2019/9/9 15:18:00
-- 企业微信，回调请求地址不通过
此主题相关图片如下：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
-- 发布时间：2019/9/9 15:24:00
--
httprequest事件的代码看看。函数的完整代码也发上来
[此贴子已经被作者于2019/9/9 15:24:25编辑过]
-- 发布时间：2019/9/9 15:34:00
--
直接写不行，放到txt文档里了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (6).txt |
-- 发布时间：2019/9/9 15:39:00
--
Functions.AsyncExecute("HttpWxQy",e)
改为
Functions.Execute("HttpWxQy",e)