Imports System.Runtime.InteropServices
Module 解压缩
Public Enum enumzLibResult
Z_NEED_DICT = 2
Z_STREAM_END = 1
Z_OK = 0
Z_ERRNO = -1
Z_STREAM_ERROR = -2
Z_DATA_ERROR = -3
Z_MEM_ERROR = -4
Z_BUF_ERROR = -5
Z_VERSION_ERROR = -6
Exception_Raised = -9
End Enum
Public Structure struczLibResult
Public intResult As enumzLibResult
Public byteResult As Byte()
Public excResult As Exception
End Structure
Public Function ZIP(ByVal bySource As Byte()) As struczLibResult
Dim strucReturn As New struczLibResult
Dim intOrigSize As Integer
Dim intCompSize As Integer
Try
intOrigSize = bySource.Length
Dim BLen() As Byte = BitConverter.GetBytes(intOrigSize)
Dim n As Integer
ReDim strucReturn.byteResult(Convert.ToInt32(intOrigSize + (intOrigSize * 0.01) + 12))
ReDim Preserve strucReturn.byteResult(intCompSize + 4)
For n = 1 To 4
strucReturn.byteResult(intCompSize + n) = BLen(n - 1)
Next
Return strucReturn
Catch ex As Exception
strucReturn.intResult = enumzLibResult.Exception_Raised
strucReturn.excResult = ex
Return strucReturn
Finally
Erase strucReturn.byteResult
strucReturn = Nothing
End Try
End Function
Public Function unZIP(ByVal bySource As Byte()) As struczLibResult
Dim intOrigSize As Integer = bySource.Length - 4
Dim n As Integer
Dim BLen(3) As Byte
For n = 0 To 3
BLen(n) = bySource(intOrigSize + n)
Next
intOrigSize = BitConverter.ToInt32(BLen, 0)
MsgBox(intOrigSize)
Dim strucReturn As New struczLibResult
Try
ReDim strucReturn.byteResult(intOrigSize - 1)
Return strucReturn
Catch ex As Exception
strucReturn.intResult = enumzLibResult.Exception_Raised
strucReturn.excResult = ex
Return strucReturn
Finally
Erase strucReturn.byteResult
strucReturn = Nothing
End Try
End Function
End Module

求大神指点@次碳酸钴 @夜闻香 @Nukepayload2

使用自带的System.IO.Compression 或Nuget包SevenZipSharp或者是SharpCompress完成压缩操作。我不建议继续使用这种不友好的库。
---贴吧极速版 For UWP

值得注意的是，SevenZipSharp 被很多Unity3D游戏使用，比如仙剑奇侠传6
---贴吧极速版 For UWP

sharpziplib加解压ZIP文档
http://www.cnblogs.com/clso/archive/2011/04/04/2005010.html

这是当前编写进度@夜闻香