NOTE: it is possible that Position or Total values become negative - it is because unsigned values are used, but VB (and other environments) expect to see signed values. If this happens, we suggest you use following code (VB example):
Private Const MAX_UNSIGNED = 4294967296# ' HEX 1,0000,0000
Private Sub Crypto_Progress(ByVal Position As Long, ByVal Total As Long)
Crypto_Progress64 Position, 0, Total, 0
End Sub
Private Sub Crypto_Progress64(ByVal PositionHi As Long, ByVal Position As Long, ByVal TotalHi As Long, ByVal Total As Long)
If Total <> 0 And TotalHi <> 0 Then
Dim pos As Double
Dim tot As Double
pos = Position
If (pos < 0) Then pos = pos + MAX_UNSIGNED
tot = Total
If tot < 0 Then tot = tot + MAX_UNSIGNED
If TotalHi <> 0 Then
pos = pos + PositionHi * MAX_UNSIGNED
tot = tot + TotalHi * MAX_UNSIGNED
End If
Debug.Print "Progress " & pos & "/" & tot
Else
Debug.Print "Progress " & Position & "/" & Total
End If
End Sub
