使用Windows 8新的压缩API进行数据压缩

昨天发布消费者预览版，今天安装好WIN8，第一时间就测试了这个看了很久的东西，开发者预览版没装，这玩意从开发者版本就有了，上个月翻MSDN时偶然看到，突然感觉太欢乐了，写出来了有必要分享一下。
由于我没装VS11（下到明年啊），直接下了个VB6精简版就写了，反正也没啥大不了，而且VB代码也能让更多人看懂。枚举类型和API翻译自MSDN给出的C++原形。

Private Enum COMPRESS_ALGORITHM_TYPE
COMPRESS_ALGORITHM_UNKNOWN = 1
COMPRESS_ALGORITHM_MSZIP = 2
COMPRESS_ALGORITHM_XPRESS = 3
COMPRESS_ALGORITHM_XPRESS_HUFF = 4
COMPRESS_ALGORITHM_LZMS = 5
End Enum
Private Enum COMPRESS_INFORMATION_CLASS
COMPRESS_INFORMATION_CLASS_INVALID = 0
COMPRESS_INFORMATION_CLASS_LEVEL 'XPRESS Only
COMPRESS_INFORMATION_CLASS_BLOCK_SIZE 'LZMS Only
End Enum

'压缩类API
Private Declare Function CreateCompressor& Lib "cabinet" (ByVal Algorithm As COMPRESS_ALGORITHM_TYPE, ByVal AllocationRoutines&, ByRef CompressorHandle&)
Private Declare Function QueryCompressorInformation& Lib "cabinet