英雄传说空之轨迹the 3rd存档修改器

存档图片部分代码：
   Dim s As String
    Dim m As Integer, n As Integer, j As Integer, R As Long, G As Long, B As Long, Alpha As Long
    Dim k As Single
    Dim i As Long
    s = strFolderSpec & List1.List(List1.ListIndex)
    Label6.Caption = ReturnFiletime(s)
    Open s For Binary As #3
    Get #3, &H2D, j
    For m = 1 To 120
        For n = 1 To 160
            Get #3, , j
            i = j
            If j < 0 Then i = 65536 + j
            Alpha = i \ 4096
            i = i - 4096 * Alpha
            Alpha = 15 + Alpha * 16
            k = Alpha / 255
            R = i \ 256
            i = i - R * 256
            R = R * 17 * k
            G = i \ 16
            i = i - G * 16
            G = G * 17 * k
            B = i * 17 * k
            SetPixel Picture2.hdc, n - 1, m - 1, RGB(R, G, B)
        Next n
    Next m
   
    Close #3

这个修改器和SC那个样子一样，割了一些功能

>>英雄传说6下载专区