WXBizCrypt类

腾讯官方提供了微信消息加解密算法的通用代码， 我们已经将其编译成DLL，并整合在Foxtable中，命名空间为"Tencent.WXBizMsgCrypt"，如果你熟悉用.net进行微信开发，你可以直接调用。

但是对多数用户来说，直接使用封装在DLL中的函数进行加解密还是比较麻烦的，我个人就曾经因为一个参数顺序问题，浪费了一个多小时。

为此我们另外提供了一个类WXBizCrypt，在腾讯官方代码的基础上进行了简写，更适合非专业人员使用。

定义WXBizCrypt类的语法为：

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

WXBizCrypt包括四个函数：

• DecryptMsg
  
  DecryptMsg函数用于解密消息，语法为：
  
  DecryptMsg(e)
  
  e为HttpRequest事件的e参数。
  
  返回值是对e.PlainText属性进行解密的结果，如果解密失败，则返回一个错误值。
  　
• EncryptMsg
  
  EncryptMsg函数用于加密消息，语法为：
  
  EncryptMsg(e, Message)
  
  e为HttpRequest事件的e参数，Message为要加密的消息。
  
  返回值为对Message加密后的结果，如果加密失败，则返回一个错误值。
  　
• GetErorDesc
  
  GetErorDesc函数用于获取错误值对应的错误描述，语法为：
  
  GetErorDesc(ErrorCode)
  
  ErrorCode是一个整数型的错误值。
  
  函数返回的是ErrorCode对应的错误描述。
  　
• CheckQYSignature
  
  CheckQYSignature专门用于企业号的接入验证，语法为：
  
  CheckQYSignature(e)
  
  如果接入验证成功返回0，否则返回一个错误值。