此主题相关图片如下：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
加好友 
发短信
Post By：2019/9/9 15:18:00 [只看该作者]
