企业微信http验证问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 企业微信http验证问题

共有2104人关注过本帖树形打印复制链接主题：企业微信http验证问题

aidimeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：742 积分：7255 威望：0 精华：0 注册：2015/9/14 14:26:00

企业微信http验证问题 发帖心情

Post By：2021/1/29 12:17:00 [显示全部帖子]

企业微信里可信域名一直验证不了

此主题相关图片如下：微信截图_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 select

访问 webfox 时提示

此主题相关图片如下：微信截图_20210129121445.png

需要验证的txt已经下载放到了域名根目录下

aidimeng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：742 积分：7255 威望：0 精华：0 注册：2015/9/14 14:26:00

Post By：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

MessageBox.Show("1")

[此贴子已经被作者于2021/1/29 13:41:44编辑过]

aidimeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：742 积分：7255 威望：0 精华：0 注册：2015/9/14 14:26:00

Post By：2021/1/29 14:12:00 [显示全部帖子]

按企业微信的说明这个地址还是不能打开

http://admgz.yogi.com.cn:3333/WW_verify_bGqPDFrgHmfPTnUW.tx

访问wefox 提示如下，企业微信里域名还是验证不过去

此主题相关图片如下：微信截图_20210129141109.png

下一主题 >> << 上一主题

主题：企业微信http验证问题