冒险解谜游戏中文网 ChinaAVG
标题:
[VB Code]Trip DataHead
[打印本页]
作者:
firendless
时间:
2009-3-19 08:12
标题:
[VB Code]Trip DataHead
一个提取文件头信息以及索引的Code,VXBG文件可用,即.sl文件,
. _2 e: Y- g3 M _" j
之所以不发全,是因为我手头上没有汉化完的文件,不好确定是采取重写全部数据,还是文件尾贴数据段的方案。
$ t) t- |% G' f, A* \+ ^
& n1 ^* v7 Y8 k: r# X! h
结构体:
Private Type ResHeadInfo
strPackName As String * 4 '文件类型
lngHeadLeng As Long '头部索引长度
bData() As Byte '数据
End Type
Private Type FixFile
strPath As String '路径
intNums As Integer '文件号
End Type
复制代码
作者:
firendless
时间:
2009-3-19 08:13
目前可以直接提取头部索引
5 Z0 J4 i$ ]# n: n6 f
结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,
* Q3 w4 U" H( B+ S
谁把汉化的文件快给我....
4 `: J" ~, |- H6 W6 [# H$ ]
Private Sub MakeNewRes()
Dim strFilePath As String
Dim strFullPath As String
strFilePath = App.path & "\\"
strFullPath = App.path & "\\" & txtOgri.Text
'检测文件是否存在
If CheckFileExist(strFullPath) = False Then
MsgBox "Err Exist.": Exit Sub
End If
Dim OldHead As ResHeadInfo, OldFile As FixFile
With OldFile
.intNums = FreeFile
.strPath = strFullPath
Open .strPath For Binary Access Read As #.intNums
Get #.intNums, 1, OldHead.strPackName
Get #.intNums, 5, OldHead.lngHeadLeng
ReDim OldHead.bData(OldHead.lngHeadLeng)
Get #.intNums, 9, OldHead.bData()
Close #.intNums
End With
'创建新的头文件
Dim NewFileHead As FixFile
With NewFileHead
.intNums = FreeFile
.strPath = strFilePath & "Head.sl"
Open .strPath For Binary Access Write As #.intNums
Put #.intNums, 1, OldHead
Close #.intNums
End With
End Sub
复制代码
作者:
shane007
时间:
2009-3-19 11:24
你又写了一遍啊?
作者:
firendless
时间:
2009-3-19 12:13
嗯,Hook我也写好了接下来是重写C的接口
作者:
shane007
时间:
2009-3-19 20:18
想问一下你重写想修正什么问题?
9 z" D% w2 x7 J* V. M9 G
很乐意学习一下。别忘了发完整代码出来。
欢迎光临 冒险解谜游戏中文网 ChinaAVG (https://chinaavg.com/)
Powered by Discuz! X3.2