- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 企业微信http验证问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160333)
-- 发布时间：2021/1/29 12:17:00
-- 企业微信http验证问题
企业微信里 可信域名一直验证不了
此主题相关图片如下：微信截图_20210129121325.png
根据帮助
Case "wefox"
Dim wbiz As New WXBizCrypt("ww8b3702231a333582d3","foxtable","ilsmyivvRPNj0qxSiSzWCnqm7cy1w1RcS6w2LBhsh7J")
If e.Request.HttpMethod = "GET"
Dim ret As Integer = wbiz.CheckQYSignature(e)
If ret <> 0 Then \'如果接入验证失败
Dim err As String = wbiz.GetErorDesc(ret) \'获取错误描述
End If
End If
end select
访问 webfox 时 提示
此主题相关图片如下：微信截图_20210129121445.png
需要验证的txt已经下载放到了 域名根目录下
-- 发布时间：2021/1/29 13:33:00
--
有没有用到事件头？http://www.foxtable.com/mobilehelp/topics/0276.htm
-- 发布时间：2021/1/29 13:41:00
--
有的
代码如下
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)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Dim wb As New weui
Dim Verified As Boolean
Dim UserId As String
Dim UserName As String
Dim i As String
Select Case e.path
Case "wefox"
Dim wbiz As New WXBizCrypt("ww8b370260","foxtable","ilsmyivvRPNj0qxSiSzWCnqm7cy1w1RcS6w2LBhsh7J")
If e.Request.HttpMethod = "GET"
Dim ret As Integer = wbiz.CheckQYSignature(e)
If ret <> 0 Then \'如果接入验证失败
Dim err As String = wbiz.GetErorDesc(ret) \'获取错误描述
End If
End If
MessageBox.Show("1")
[此贴子已经被作者于2021/1/29 13:41:44编辑过]
-- 发布时间：2021/1/29 14:04:00
--
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
-- 发布时间：2021/1/29 14:12:00
--
按企业微信的说明 这个 地址还是不能打开
http://admgz.yogi.com.cn:3333/WW_verify_bGqPDFrgHmfPTnUW.tx
访问wefox 提示如下， 企业微信里 域名还是验证不过去
此主题相关图片如下：微信截图_20210129141109.png
-- 发布时间：2021/1/29 14:22:00
--
文件放到"d:\\web\\"目录里："d:\\web\\WW_verify_bGqPDFrgHmfPTnUW.txt"
wefox这个不能到网页里测试，因为缺少微信提供的参数，要到微信回调里测试