接入HTTP服务

企业微信进行HTTP服务接入验证的时候，其echostr参数是加密的，需要先解密后回写才能完成接入验证。

为了方便非专业用户，我们在WXBizCrypt类中提供了一个CheckQYSignature函数，可以 用很简单的代码完成接入验证。

企业微信可以增加多个应用，每一个应用都可以独立设置回调地址(HTTP服务地址)，设置时需要指定Token和EncodingAESKey：



定义WXBizCrypt的语法为：

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

下面是Foxtable端的HttpRequest事件，用于完成企业 微信应用的接入验证：

Select Case e.path
    Case "wefox"
        Dim wbiz As New WXBizCrypt("wxa31aba4cd83af57e","foxtable","ilsmyivvRPNj0qxSiSzWCnqm7cy1w1RcS6w2LBhsh7J")
        If e.Request.HttpMethod = "GET"
            wbiz.CheckQYSignature(e)
        End If
End Select

如果接入验证失败，你可以采用下面的代码获得错误描述：

Select Case e.path
    Case "wefox"
        Dim wbiz As New WXBizCrypt("wxa31aba4cd83af57e","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