|
英雄传说空之轨迹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那个样子一样,割了一些功能
| 下载地址 |
专用下载: 常规下载: |
|||
|
|
||||
| 下载说明 |
1.为达到最快下载速度,本站资源推荐使用迅雷下载。
2.服务器做了最大下载用户限制,如不能连上请稍候测试,尽量避免上网高峰期下载。 声明:本站下载资源均来自互联网搜集,若有侵权之处请及时联系我们以便尽快处理。 |
|||
|
|