statsit.bas

比WinZip速度快很多的SINE256加密算法模块。支持指定密钥

Attribute VB_Name = "StatsIt"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/03/15
'描    述：SINE256加密可视化以及控制示例
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Public Function GetTimeRemaining(FileL As Double, Chunk As Double, st As Long, i As Double) As Long
    GetTimeRemaining = Round(((Round(((FileL / (i * Chunk)) * (GetTickCount - st)))) - (GetTickCount - st)) / 1000) 'Return a value indicating seconds left
End Function
Public Function GetPercent(i As Double, segment As Double) As Integer
    GetPercent = Round((i * 100) / segment) 'Return a value between 0 and 100
End Function
Public Function GetSpeed(st As Long, Chunk As Double, i As Double) As String
    Dim xMb As Double
    xMb = GetTickCount - st
    xMb = xMb + 0.00001
    xMb = 1000 / xMb
    xMb = (i * Chunk) * xMb
    GetSpeed = GetFileSize(xMb) 'return string like "3.14Mb"
End Function