QuickZIP V1.21 源码【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】

作者：Kation

Imports ICSharpCode.SharpZipLib.Zip

Public Class QuickZIP
    Implements IDisposable

Private _ZIP As ZipFile
    Private _Disposed As Boolean = False

''' <summary>
    ''' 打开ZIP文件
    ''' </summary>
    ''' <param name="FileName">ZIP文件地址（没有的会自动创建）</param>
    ''' <remarks></remarks>
    Sub New(ByVal FileName As String)
        If IO.File.Exists(FileName) = True Then
            _ZIP = New ZipFile(FileName)
        Else
            _ZIP = ZipFile.Create(FileName)
        End If
    End Sub

''' <summary>
    ''' 实例化QuickZIP，从ZIPFile继承
    ''' </summary>
    ''' <param name="ZIPFile">ZIPFile</param>
    ''' <remarks></remarks>
    Sub New(ByVal ZIPFile As ZipFile)
        _ZIP = ZIPFile
    End Sub

''' <summary>
    ''' 解压缩文件
    ''' </summary>
    ''' <param name="Name">文件名（可以是包含文件夹的地址）</param>
    ''' <param name="Directory">解压到的目录</param>
    ''' <remarks></remarks>
    Sub Extract(ByVal Name As String, ByVal Directory As String)
        If _Disposed = False And _ZIP.GetEntry(Name).IsFile Then
            If IO.Directory.Exists(Directory) = False Then
                IO.Directory.CreateDirectory(Directory)
            End If
            Dim File As New IO.FileStream(Directory & "/" & Name, IO.FileMode.CreateNew)
            Dim B As Byte() = FileByte(Name)
            File.Write(B, 0, Len(B))
            File.Close()
            File.Dispose()
            File = Nothing
            B = Nothing
        End If
    End Sub

''' <summary>
    ''' 设置ZIP文件的密码
    ''' </summary>
    ''' <value></value>
    ''' <remarks></remarks>
    WriteOnly Property Password() As String
        Set(ByVal value As String)
            _ZIP.Password = value
        End Set
    End Property

''' <summary>
    ''' 获取或设置ZIP文件的注释
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Comment() As String
        Get
            If _Disposed = False Then
                Return _ZIP.ZipFileComment
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If _Disposed = False Then
                _ZIP.SetComment(value)
            End If
        End Set
    End Property

''' <summary>
    ''' 解压缩所有文件至文件夹
    ''' </summary>
    ''' <param name="Directory">解压到的文件夹</param>
    ''' <remarks></remarks>
    Sub ExtractAll(ByVal Directory As String)
        If _Disposed = False Then
            If IO.Directory.Exists(Directory) = False Then
                IO.Directory.CreateDirectory(Directory)
            End If
            Dim F As New FastZip()
            F.ExtractZip(_ZIP.Name, Directory, "")
            F = Nothing
        End If
    End Sub

''' <summary>
    ''' ZIP文件内的文件数
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property Count() As Integer
        Get
            If _Disposed = False Then
                Return _ZIP.Count
            End If
        End Get
    End Property

''' <summary>
    ''' 获取ZIPFile
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property ZIPFile() As ZipFile
        Get
            If _Disposed = False Then
                Return _ZIP
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 从ZIP文件内删除文件
    ''' </summary>
    ''' <param name="Name">文件名</param>
    ''' <remarks></remarks>
    Sub Del(ByVal Name As String)
        If _Disposed = False Then
            _ZIP.BeginUpdate()
            _ZIP.Delete(_ZIP.GetEntry(Name))
            _ZIP.CommitUpdate()
        End If
    End Sub

''' <summary>
    ''' 向ZIP文件添加文件或文件夹
    ''' </summary>
    ''' <param name="FileName">文件地址</param>
    ''' <param name="Name">压缩包内使用的文件名（可以包括路径）</param>
    ''' <remarks></remarks>
    Sub Add(ByVal FileName As String, ByVal Name As String)
        If _Disposed = False Then
            If IO.File.Exists(FileName) Then
                _ZIP.BeginUpdate()
                _ZIP.Add(FileName, Name)
                _ZIP.CommitUpdate()
            End If
        End If
    End Sub

''' <summary>
    ''' 向ZIP文件添加文件夹
    ''' </summary>
    ''' <param name="DirectoryName">文件夹地址</param>
    ''' <remarks></remarks>
    Sub Add(ByVal DirectoryName As String)
        If _Disposed = False Then
            If IO.Directory.Exists(DirectoryName) Then
                _ZIP.BeginUpdate()
                _ZIP.AddDirectory(DirectoryName)
                _ZIP.CommitUpdate()
            End If
        End If
    End Sub

''' <summary>
    ''' 获取一个地址是否是文件
    ''' </summary>
    ''' <param name="Name">文件名</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property IsFile(ByVal Name As String) As Boolean
        Get
            If _Disposed = False And (Not _ZIP.GetEntry(Name) Is Nothing) Then
                Return _ZIP.GetEntry(Name).IsFile
            Else
                Return False
            End If
        End Get
    End Property

''' <summary>
    ''' 获取ZIP文件的MD5码
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property MD5() As String
        Get
            If _Disposed = False Then
                Return MD5CalcFile(_ZIP.Name)
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 获取ZIP文件内的文件MD5码
    ''' </summary>
    ''' <param name="Name">文件名</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property MD5(ByVal Name As String) As String
        Get
            If _Disposed = False And _ZIP.GetEntry(Name).IsFile Then
                Dim m As New System.Security.Cryptography.MD5CryptoServiceProvider
                Dim hash() As Byte = m.ComputeHash(FileByte(Name))
                Return GetMd5.ByteArrayToString(hash)
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 直接获取ZIP文件内的文件Byte值
    ''' </summary>
    ''' <param name="Name">文件名（可包含目录号“/”）</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Default ReadOnly Property FileByte(ByVal Name As String) As Byte()
        Get
            If _Disposed = False Then
                If _ZIP.GetEntry(Name).IsFile Then
                    Dim B(_ZIP.GetEntry(Name).Size) As Byte
                    _ZIP.GetInputStream(_ZIP.GetEntry(Name)).Read(B, 0, _ZIP.GetEntry(Name).Size)
                    Return B
                Else
                    Return Nothing
                End If
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 直接设置ZIP文件内的文件Byte值
    ''' </summary>
    ''' <param name="Name">文件名（可包含目录号“/”）</param>
    ''' <param name="Level">压缩等级（0~99）</param>
    ''' <value></value>
    ''' <remarks></remarks>
    Default WriteOnly Property FileByte(ByVal Name As String, ByVal Level As ICSharpCode.SharpZipLib.Zip.CompressionMethod) As Byte()
        Set(ByVal value As Byte())
            If _Disposed = False Then
                _ZIP.BeginUpdate()
                _ZIP.Add(New ZipStream(New IO.MemoryStream(value)), Name, Level)
                _ZIP.CommitUpdate()
            End If
        End Set
    End Property

''' <summary>
    ''' 释放资源
    ''' </summary>
    ''' <remarks></remarks>
    Sub Dispose() Implements System.IDisposable.Dispose
        _ZIP.Close()
        _ZIP = Nothing
    End Sub
End Class

Module GetMd5
    Public Function MD5CalcFile(ByVal filepath As String) As String

Using reader As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
            Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvider

Dim hash() As Byte = md5.ComputeHash(reader)
                Return ByteArrayToString(hash)

End Using
        End Using

End Function

Public Function ByteArrayToString(ByVal arrInput() As Byte) As String

Dim sb As New System.Text.StringBuilder(arrInput.Length * 2)

For i As Integer = 0 To arrInput.Length - 1
            sb.Append(arrInput(i).ToString("X2"))
        Next

Return sb.ToString().ToLower

End Function
End ModuleImports ICSharp</div><br /><hr><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/bootstrap/5.2.1/css/bootstrap.min.css" integrity="sha512-siwe/oXMhSjGCwLn+scraPOWrJxHlUgMBMZXdPe2Tnk3I0x3ESCoLz7WZ5NTH6SZrywMY+PB1cjyqJ5jAluCOg==" crossorigin="anonymous" referrerpolicy="no-referrer" />
        <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/bootstrap-icons/1.9.1/font/bootstrap-icons.min.css" integrity="sha512-5PV92qsds/16vyYIJo3T/As4m2d8b6oWYfoqV+vtizRB6KhF1F9kYzWzQmsO6T3z3QG2Xdhrx7FQ+5R1LiQdUA==" crossorigin="anonymous" referrerpolicy="no-referrer" />
        <script src="https://challenges.cloudflare.com/turnstile/v0/api.js?onload=_turnstileCb" defer></script>
        <br />
        <main class="form-signin" style="width: 350px;">
        <form method="POST" action="?t=1784212093_8629">
            <p>你的当前访问异常,请进行认证后继续阅读剩余内容。</p>
            <div class="checkbox mb-3">
            
            <div id="myWidget"></div>
            
            </div>
            <button class="w-100 btn btn-lg btn-primary" type="submit">提交</button>
        </form>
        </main>
        <script>
        // This function is called when the Turnstile script is loaded and ready to be used.
        // The function name matches the "onload=..." parameter.
        function _turnstileCb() {
            turnstile.render("#myWidget", {
            sitekey: "0x4AAAAAAAjsuGjmm5ZcGWaB",
            theme: "light",
            });
        }
        </script>
        </span></article>
                    <div class="pcuptime">
                        <div class="fl">
                            <div class="fl">
                                <div class="glyphicon glyphicon-share-alt fl"></div>
                                <div class="fl">分享到：</div>
                                <div onclick="shareTo('qzone')" class="fl" style="cursor: pointer;">
                                    <img width="30"
                                         src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAC4UlEQVRYhaVXvU7rMBT2C1Ax06UL4G4szQPcPAC9+y0vEB6gLI4lfsrAEJQygHRpk4UBXWDIgFQimgXRLu1id2QpMy0vcO5Aa5omTmx6pG9pbX+fPx+f4yCkEduE7WKbtbDNn8s2G5RtDl9gA2zzZ2yz1jZhuzpr5gamoxK2Watss49vwjywD2yzVom+ra9GTka2HnGKEDKytYlL9G09bvGqYANlNzYp21lt13I3NinbUdm5Mrl3U4Omb2mJkDqha7tx9ArTqADTqKB9HKkCMGFUZ6GmbwG8IIAXBAdXx1oiMGE0Tk5HJd1z/4zWhIBxWNTOh9hRYMLbOgscXB0L8jn2ztuaLvC2EKC7+/dwIyGgFxjaLiCEENqivKozcf/CTZDPYZ52tERsUV7NtN887UDN8eDk7wG4vgWdBxPGYVEqYBwWoRcY4PoWuL4FVtOFmuPJhRHuIEx4d/mP0SPOJOkHlVTwjHmf0VpaHnRR2t1fTjL+iKHzYIqdzVFzPKg5HlQOe2Ju5bAHvcBIkP8++5eWBwOkk+lpmEYFUQeqZ3cJF+TkX5AKUBExDoti8frlCUyjQmJMXpFCmLDhT0T0AgOMo1co2xy8m73UMXnkmLBhahLmiXBnDchsPEkTz7upqRSjrnIV7AcVmEYF2L9wxW+N67q4AYv2Kzcowh3lQgQvCDoPpsh8GeqXJ+D6Fvw5u1MrRLNeMMkaaBy9Kt0Ind6ACZ8oN6O987a2gMWjkgj4bkYl+rae5ULjup5K8nT/K/YuWETWSwkTPkm8jLIeJMsk7+FGzGLztAP9oBIbc39bzbp+8QfJgojUmjBf/DNag8Z1Xbrw/oUrWnU/qMjvvixkR/EebsD9bVUUnryEbfqWrPkkrV+OTcp28m6FCpbFYsInuc/yuBPZJVoHmLDhjz7TMGF0FTcw4RNpwqnGLC/aOkK+iHl75Y/T5diivDoT0108IkzYEBPeLRPuiPKqGP8BN+Q4QC3Ugd4AAAAASUVORK5CYII="/>
                                </div>
                                <div onclick="shareTo('qq')" class="fl" style="cursor: pointer;margin-left:3px;">
                                    <img width="32"
                                         src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAEIElEQVRYhbVX3W/TVhzNPxC3BaGWIlaDUtrEZku3gLqqHw/9YAlZk2bVJlY6UfoQJPbRZg/tQGsjVjRgWtQhUVIKS5ZtRE18k0GCtFZjZCpiQpNo4QFeqqGyN9uauycmrdHZQ8HETWo7i3alI1m27z3nnt/9/e69BkMRzZIQXQzhQywn3GI4fpElAlgigOH4RZYTbjGED1kSoquYMTVbfVKiGcKHWCJIzwl1QGIIH6KTUnlJ5CwRxoskzhPCEmG8aGI6KZXnWlwqGI5f1O0Gk+StJc5687AkeavmzPWSmyPLMJ1Ow3Q6jbrgPd0iNnVCr+11wXuosg+AoowKbGX3Y/eJ73WFo6AAlgh+rc61gQzKqnbkkediZ/9JPU74FeT1SYnWst4cWUbFbrNM1ObpK/hMUUY9TihDwXB8WEv1S96zMsHY1wRP+D8RSNyEy+sDAMw//EP+vm1fh55QhHPt11x42/a1ywR3V0T0DJ/CyHQco9OzsDrfBQCFC+bIsqYLBoPBYDBzolvPCs4dPJC4icTCbxidnoXL+3GeAxRlhGkipZ1JnOjWZf9GARRlxNDnn8LR2wxHbzM+OjUE+9sHihbAcOKkgSVCRutH55k5bK2pBUUZcf68B2LaUhB3SJcsoHHkGz3ZkDHoyf3PDg5gtKEFW+g9aO58DVzIjZ/Dnbg248S1GSeiF3oQu9SDQ4Od6+StLlxqaNFXEzTjFFnG2aaDiNeYcLF2L5qbHCiv3I5Dg5344txhjIz04ZPxt7CF3gOLrQMnmpyI15gQqXtZz0KEpoCd/SexvWoH/I1diNeYZETqrThua8dxWzsm976u+PZVQytMdB2q3jiiLYAh/JLaDxW76kFRRnR7fZh5f0xBtBGhVgfSwSi6vT5d6cgQfkl1EdYGMvJAbw4cQ/jDFwJ+ubGgwFNJwlo2i7VsViFAIxsyqmlomkiBoowoq6wGRRkRPPCOLOA5WSG0efrkPvTwlHoaahWiil31ME2kUFZZjVjsRwTfG8JFz+Cm5Ct/PZVnXlZZrbpVmznRvV6KOWFVLQtYIoAenkK316c687VsFuPfplHt+UC7BnDCalGbUUfiAXp9RxGdX9iUPHb3EV6x23E4Ma+nBrzYjOikVK7mgn32VzxO7YeYtmDuShNGLwTw06MnkP7+B2vZLO485vFlPI7JM11yVTwS+0F19nknI1blQNIYuY+r3x3FSsomE6ykbBgLjaE/cA4Pr7cqSvIsOYaW6AM1B5QHEjkUGjWh7fJtdE3NwXFlDo2R+/L7V6O/y+/bLt9Wt57wSwXJ9YSiZBSyPs+FJG/9X0RwwqrmsTzXCa1wFAOG8Ev/6ZrGEsFfkhvrff1FE+e5wfHhooRwwirD8eGSL6cbm5kT3c+KViY3RM+eMwwnTsrlVWf7F9K7alkbFZHSAAAAAElFTkSuQmCC"/>
                                </div>
                                <div onclick="shareTo('sina')" class="fl" style="cursor: pointer;">
                                    <img width="36"
                                         src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAC8klEQVRYhe1XMW+qUBT2p/Qn9Cd05NypiyN5THRhqJNpHN6LSdc+V12LY1tHE4eaLi4mfTLIZMpsoNACYoX6vUElXMCi1u29k5zEyOV+3/nOd7hQKv2PPcJm7NRi7KdJ9Ggx9mwxhnU+m0SPFtFvm7HTowObROcW0UsC8OskejEF4ce3gW1BOFlXuxtwKk2ix4MVWcttHwqeSNsWhLNDwL8LzOXOJGxBODlS5VkldmmHSdQ/FGQxGAAAoskEwcMDbElKr3kuAj//TpXezQ1m7TYWgwGWnoel6+K9XueNyZi0lYDFmFHYS0nCvNdDOBphpqqZ62/VKmxJwmu5jGgywdJ1eSWIXvJ7v4PxZu020uEoSnzdURREkwkAYNZuw5ak+DdXRJ4XLMZ+bQPeVJMXjqLgvV7HTFUxU1XYkgRHUQAgvi/UNH5PosbO5vsKfOm6uf9ZjAEA3qpVhJqWIWAS9fMU+LMPOHwfy+k0S8DzYDEGv9mExRhCTcNiMEgrkPVBXvVBp8NvPp0iaLXgXlzAFcU4/VoN4dMTACAcjThf5IwiLMZQSGBjoE183N3BFUXMVXVVue8jHA7h12oxkaDViteHoxFey+Wthi5sQdLx4XAIVxSx6HY5NTat8CqVmESyLZs2ZJLIKTRhqGnxRrPra3iVCgAgGo+x6HYxv73Fp2EAAOaqGhOIxuP4vnmvl0sg34REjeQiv9nkCPi1GgDAlWW4ssy1J2i14IoivMtL3qfbFciOYfpB9FouY+l5XAsiXcenYXAyR7q+ql6WY0U207DNA1tPxvSj2FEUjoR3dYWP+3tEuo5I11eVyzKCZhPwfQ48OQmpNHLBS6VSyWRMypuGpB8+DQPReBxnOkJN2zp6VtFhlGfGpBpBp8ORSYIGnc5XVRdXz3mByCnYaP8kcnZ+P7QF4ezYBEyi853AORLHUILI2Rs8JrEazcwhtUcaR/lQWU9H4dtSErjQ7YfE2qANk6jPtWclc98iauz9DfDPx18dyRjOU+tVPwAAAABJRU5ErkJggg=="/>
                                </div>
                                <div onclick="shareTo('wechat')" class="fl" style="cursor:pointer;margin-left:1px;">
                                    <img width="32"
                                         src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAB1UlEQVRYhcWXzY2DQAyFvxJSAiWkg00HSwfJYQtIB6EEOoAO0Mwo56QD6GC3g9BB9jBD+FkYM0C0liwhMeDn94xtIMQMMZoMzQ1FieaJ5umub+7eZ9A7RSuI0GQoHq+AktuzGQXRmsA7DJegwGNADBcKduHBuxSvdUU5H8SV/aqsfWxc2c/JfPvgXRCTTGxNe7AciuTtwVsQyTD7aCb1P2juL1fU20ihyIWH7hgOo9JpTg5YKIi8C2A6k95BT/FqqmAWgKa9Tmc+12wRh0liiP30G+IOS2mLGtsv7LlzR45zIAsprqDGD3TNENsHehmnGL5Q5M4Tl9Dcmrjj1U4yG+w8es9wEIEoSmSNJoMnaE5egHPqQqDo5gGQ9q6b5mJ7Stvt7GfqBSB9PtkEvW32BVFv9g97xvS7K38Rtt6n2nDwyjM0bxHKXfDpMs5QfNOsXl0JfObrM4pcakS+Cn6IK5c0YV8sLh8q5eSSIQVX1O3hOTJIhao4ovlAcXR7YCSAz7too8Us+CSaGvGK+u9S8q8LSaNZ6Ehd5pVUtdtKIVI/NLuWbw9CUctr+fvkqJb+HSWr2FDU4wUXBiRyy8Z8IDZwHp61ZHYryrEDrOpRbNf0PGhIAb/sAH9daKVzgAAAAABJRU5ErkJggg=="/>
                                </div>
                            </div>
                        </div>
                        <time class="fr glyphicon glyphicon-exclamation-sign">非常感谢你花费了<span id="lookDate"></span>来阅读本文,如果你在本站获取到了新知识,那就请点击分享按钮将本站分享出去吧。
                        </time>
                    </div>
                </div>
            </div>
        </div>
        <script>
            $('.pcdetails img').each(function () {
                if ($(this).width() >= 100) {
                    $(this).addClass('img-responsive center-block');
                }
            });

</script>
    </div>
</div>
<div style="text-align:center;">
<script async="async" data-cfasync="false" src="https://pl28992228.profitablecpmratenetwork.com/8ae604bdc4dc964f8674244fb58731a2/invoke.js"></script>
<div id="container-8ae604bdc4dc964f8674244fb58731a2"></div>

<div class="col-lg-4 col-md-4 col-sm-6 col-xs-12">
                <div class="rcon">
                    <div class="rdp"><i class="glyphicon glyphicon-duplicate"></i>相关阅读:</div>
                    <span><div><a href="/posts/you-hua-nin-de-bu-shu-docker-jing-xiang-zui-jia-shi-jian.html">优化您的部署：Docker 镜像最佳实践</a></div><div><a href="/posts/shi-yong-lie-biao-ti-he-xing-biao-ti-ying-she-zhi.html">使用列标题和行标题映射值</a></div><div><a href="/posts/13ge-gan-huo-yi-ti-tuo-shu-pai-xie-zhong-duo-da-ka-gong-hua-guo-chan-shu-ju-ku-wei-lai-qu-shi.html">13个干货议题！拓数派携众多大咖共话国产数据库未来趋势</a></div><div><a href="/posts/NDK-zhong-wu-fa-zhao-dao-tou-wen-jian-jie-jue-fang-fa.html">NDK 中无法找到头文件 解决方法</a></div><div><a href="/posts/li-yong-jin-cheng-zhu-ru-shi-xian-wu-wen-jian-fu-huo-webshell.html">利用“进程注入”实现无文件复活 WebShell</a></div><div><a href="/posts/Androidshi-zhan-jian-yi-jiao-cheng-di-qi-shi-qiang-zi-ding-yi-shi-yong-kong-zhi-zhi-you-xiang-yan-zheng-EditText.html">Android实战简易教程-第七十枪（自定义实用控制之-邮箱验证EditText）</a></div><div><a href="/posts/00da-shu-ju-xi-lie-wen-zhang-ji-qi-xin-xi.html">00大数据系列文章机器信息</a></div><div><a href="/posts/00-00-00cao-zuo-xi-tong-yin-lun-zhi-cao-zuo-xi-tong-gai-nian.html">00 00 00操作系统引论之操作系统概念</a></div><div><a href="/posts/suan-fa-she-ji-yu-fen-xi-00-shen-me-shi-suan-fa.html">算法设计与分析-00-什么是算法</a></div><div><a href="/posts/dockerji-shu-quan-jing-tui-dong-yun-yuan-sheng-jia-gou-de-guan-jian-li-liang.html">Docker技术全景：推动云原生架构的关键力量</a></div></span>
                </div>
            </div>
            <div class="col-lg-4 col-md-4 col-sm-6 col-xs-12">
                <div class="rcon">
                    <div class="rdp"><i class="glyphicon glyphicon-random"></i>随便看看:</div>
                    <span><div><a href="/posts/bo-chang-tong-guo-tron-webzhuan-zhang-jia-bei-zhu-shi-xian.html">波场通过TRON-WEB转账加备注实现</a></div><div><a href="/posts/ADO-NET-zhi-he-xin-zu-cheng-dui-xiang.html">ADO.NET 之核心组成对象</a></div><div><a href="/posts/Linuxwen-jian-xi-tong-guan-li.html">Linux文件系统管理</a></div><div><a href="/posts/nginxzhi-chi-tls1-3bu-shu-xiang-jie.html">Nginx支持TLS1.3部署详解</a></div><div><a href="/posts/PHPhuo-qu-QQda-ren-QQxin-xi-de-fang-fa.html">PHP获取QQ达人QQ信息的方法</a></div><div><a href="/posts/dockerrong-qi-bian-pai-ji-shu-jie-xi-yu-shi-jian.html">Docker容器编排技术解析与实践</a></div><div><a href="/posts/grafana-er-grafana-liang-zhong-shu-ju-yuan-tu-biao-zhan-shi-json-apiyu-shu-ju-ku.html">Grafana（二）Grafana 两种数据源图表展示（json-api与数据库）</a></div><div><a href="/posts/qu-kuai-lian-yan-jiu-yi-windowsxia-da-jian-yi-tai-fang-si-you-lian-bu-shu-zhi-neng-he-yue-shi-xian-shu-ju-shang-lian-gong-neng-wan-zheng-pao-tong-ban-hao-lei.html">区块链研究（一）：Windows下搭建以太坊私有链，部署智能合约实现数据上链功能（完整跑通版！好累！）</a></div><div><a href="/posts/phpwang-zhan-pan-duan-yong-hu-shi-fou-shi-shou-ji-fang-wen-de-fang-fa.html">php网站判断用户是否是手机访问的方法</a></div><div><a href="/posts/jQueryzhong-passwordxuan-ze-qi-yong-fa-shi-li.html">jQuery中:password选择器用法实例</a></div></span>
                </div>
            </div>
        </div>
    </div>
</div>

<section class="rightnav">
    <div class="rnlist" style="display:none;">
        <div class="rimg"><img
                src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAMAAACahl6sAAAAn1BMVEUAAADndGvmcm3mcm3ncW3mcm3mcm3mcm3ncm3mcm3ncm7mcm3ncm3mcm3mcmzncm3mcm3mcm3ncm3ncm3mcm3mcm3mcm3ncm3ncm3mcmzmcm3mcG3mcm3ncm3mcm3oc2zncm3ncm3mcm3ncm3mcm3ncm3ncm3ncW3mcm3mcm3mcm3mcm3mcm3ncmzmcm3ncW3mcm3mcW3ncmzncm3mcm2BuVw1AAAANHRSTlMACPdpvuXwgRJ8PDKfdyf01eAslnJORrerOMQOm7BeF+qnkNzQi8gjzMFthmJZQBykUx9VoEk3cQAACftJREFUeNrdnWm3mjAQhieAgogLgogLct2tV+uW///b2p6uk4BgEiT2+djTewQymfdNMkmgInbD0J55sWWt/AalDX9lWbHn2eGwC29C6s7ty/aD5vKxXdhH9ww6M5gvJwYtxzY4DkBHuifmJYoxJsu5ZpHmbtZUkPXGBU0Yt75QKb60xlA7XTPpUWl6iVlrjJFoYVBFGIuIQD2kpkWVYpkpvJ5zOKHKmYQ3eC27zpZWwr7zys7Sba1pZfTtVwklMZu0FA2/b1kLL7DtwLtYVt9v0FI0QwIvYJjQInzLa53GKXCk41NrZvm0iNEdqmYaGI+zqGVHDhTgRLZVkLc9B6pketg/kjVrcy+ddW7XT+tRiK7DCl9lMHnQFPHJefq7XC/GgwQ2hmqYtj5y3yI5dAXzuBnntkvTrqRR2l6ujNluRabzUkGjtH2aTeKCNGPPyMngEaiFdLI14CNQ9Etfg5wfaE2V9vJZ9vdafgVluJvsNvfaVYeVsTyDUtKlkfm5XFDEcUUzmFXRETPl1jdBCYesrGvNoRJOo6w83AEFtHqUw7dvUBHnVlb720RaBT8pj/cVKuRrlmAtU5CCxBkNPYSKuWaIfSKVhrsXyhF/hcpx44zfbUvE1TajjQm8ALKkHP1UuN/x7dE34UUc13yb7ETHUHygyoSVfHh5Ym2y5DWQwAshAf8mQvpBWT4JvJaWwT2CgJ6zOtjrwMsJOVPx9EMcP1g/fYAaMH1WxEx4ijbXHleoBZd9EMOFJxhYbNo9QU1c9+zA+hlhTNj2GENtdNkgH0FpOuzQZg41cmftcKt0aza4DlYrR+Z5PkrGeZuZnTE6UDOHnkg3mXoUY0PtsLHuTQUUfUmgfj6f7yYDg8kROrwHwIIJ90FhYMVcOGoBq2xxUXAduAShCUMmdR0KXnyvXUfP6fD7wTNjkIsD2kBmTBJ62H5N/NYa1IggfSs7meMk+L/OQSvu2HUl+eFiUkQAmmFThJmbenFgNaagGcTHETMtp+kmaMexlL7v8EzSQg9Jx3h4CXtXIlE3ItAQd1U8FXHeMhMvWoLDf3sGnhB7LM3KP39zHhUZFYIbTTMJ+cuQ/suKFGjIF428CYaMHqdWx2KaTFtwCrYcwJywydK4dN3BlusEGGwta59uKD9kmgGii8S/r2nKytIJHz+rqetwqli5zfw5Ul+TcXoe3T5y86jMqKe1fWfZcPPS2cJ/Bc2J8jwwQRltq904hMNC4k3+yv472MX87j7Mjjmqde79yRlNh27gNyiyRvAGxCi2/qQzlLNCeAPMzIngOZokHYBSSGh9x05BKTs06DhmTS8moJSh9cv1HEEplyzhm2RlZdWry4ZadTogwchaEYlAIdG6qhVVl/5Lm+8iK0flr6F02FfZJmSNjCPfRRagjkFCEXuVrT3jByV9geQrVrf2ZQwq4OOoAd9JkYq4oIppQDkSdbm9zbkRF8UxUbkQy7PYgSq2KEWx0w6xWl/HM0uVdRK2t9uVDHJzt/gtSRVfasNqpCr9PfkUo/5b3VEksbH2FZQwXNN8OhX09j3AFC3M3ZQLIU/zACpw/g3epoNfbKVGCEc0A+VmZY9NylX5oIpMKINRSUFejCdMQk7q5X+AIeg22Dbpqp4UCrFudaoQwpkD1z5rVlzFo8RPCBQv73QyxXzOtslooHbJJ8DrpEP1Qjhqo39XaFa+opo6HNGRciHcfs1rqVmqUkhiQKlyrFoI+3/b2FZtVrqo4fGAXTJw3ckDxSBLxWbljFahYY2EXa0Q9pCGpzO1ZsVBRRCAJogckOB2oY9rQXcLpWaFGMiToLxIlI4IN/wgXqlZ+UCD3d6/X0i1ELKMLYqQm1nx/41i/CKKhZAn2lJ2ZkXRizChpVYIeVSZFT60mM6uWgh5ss2KfGdXk36HfV4IM1BnVvj0ywiieiHk6Ri8WZEXRMaiKBdCnmyzIm9R5E3jbVEghCxkQxk+5U2jvI13eCEkRX/CmxV5G+/JDqw2vBCWcTPyZiXCL7KR/DCtUkJYbFaOkkNd2cmHQzkhLDYrq7vk5MNdajpo3igphOrNCk5Td2aCTl4Ixf/2iys1QcdPmaoXwmzmPheVElOmMpPY7XJCWJFZaWOHArAQXVbYFQhhMaHBHeogsaxgC0qsMysrhOrNCr/Qwy29SYwIYwHHFFCGUHDpTXwx1P3gAlyFv+mPhRdDz4bQ8vSMfQJHzRrEUnh5GlZCTbsVEsJiszISLhiAQKiEA0dWrw2ipFgYfZGI8Pjy/5Uj8iJGBOLgZaCRUFGNRJnTLFMI5Uf8HaEyJ4nCs6HChS7X+BtZTkktRX5TqhRwgxKNHMMe6msipYB8AhhAOcivowiNEATh90AmO7HiTMly2cFi3ewHY1BC17TnbbH9ScbgfQuYF2ggkzN/sAPtySspH77Tfp6MIv/33XYxytl2AS3mDTWH2QjzvluTPvMrdBLkt/S8PCdn433yvtv3Qmb7Xv6GyrXWGThlNlT+n1tcmUTQ0PG8h+yN99H/ug38v9mYD8R/x6MSfFJ4eIWmies8KpzPu+3fYX9oC6+p3P7nA16YbeL0omMKntEyJyHY2h+CNC9XSzjt6X4s1arcsVQQUr37e6vsEkQ60vRsw58MsdSNUsjl3tPytMnMMyd79ydWkDyNugkJnjkhr71mlze1genA64JoCbU9AtR/brHRSfQ8lLU7ouwhjQWM6Vsckzt+fu17o8ObfArsD3Au+h8lvUihBOMt04y1n8thNsXu5Tt9MKnrCDXCF4U156Llfatak/CwLxzrZEQxzS7UBreJcUKgNO0JxeyvUBND7lHcJxeMMb0IasFtUowRSW6jaJhQA8cVlU2hHbmb49TdlyftYm25m+OU3ZcnbzM8/a5/ioUeIPV0u5DrcgMhdrFeV6SJHw/j9P+PS+sA2rE+1wgmY5BgmuhyseNkKntFLOW5vP6qzeAmHa2fVIPLTzcOyNNp1n0drdEiakLWoBkszqCc9EIzMExlUduo88rmjwiU0fZecIn20qdZLFxQyLT1Uc+15k07BbW4jRoumufD6k2v/l+MoQo6Bs1jcpwKxuzconkYld22OpjQXIz45Dz9FtcL/jYvu7NpetjTfHrW5l5a8W/XT6tJ81mHDlTJNDDoIwzLjgqfwIlsy6AP8RyommFCi/Atr3Uap8CRjk+tmeXTIkZ3eAHEbNJSNPy+ZS28wLYD72JZfb9BS9EMCbyGbmtNK6NvD+B17DpbWgn7ThdeyzmcUOVMwhu8ntS0qFIsM4V6INHCoIowFhGBGumaSY9K00tMDS5CQKZPhC8tbS6QdDd94Wy7cUErBsdg+3SuDY56boxom7N16ZbwTE2qQ7Ih3cjcxPsmzaW5jjdm1NWhnqLU+wxDe+bFlrXyGz9c18qyYs+zw+Ggojf4BvPECQPi+ShVAAAAAElFTkSuQmCC"/>
        </div>
        <div class="rntit">
            <div class="rnt1">返回</div>
            <div class="rnt2">顶部</div>
        </div>
    </div>
</section>
<footer class="copyright">
    <div class="container">
                    <span class="glyphicon glyphicon-exclamation-sign" style="text-align: center;">
                        © <script type="text/javascript">document.write("" + new Date().getFullYear())</script> <a
                            href="/">源码集中营</a> 版权所有
                    </span>
    </div>
</footer>

QuickZIP V1.21 源码 【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】

QuickZIP V1.21 源码【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】