[VB Code]Trip DataHead

firendless

一个提取文件头信息以及索引的Code,VXBG文件可用,即.sl文件,
' O5 a  J! g7 K7 ?之所以不发全,是因为我手头上没有汉化完的文件,不好确定是采取重写全部数据,还是文件尾贴数据段的方案。
. m" A% t* }# C5 C8 d7 `; C
' ]. ], n+ T9 D1 f* F结构体：

3. Private Type ResHeadInfo
5.     strPackName     As String * 4   '文件类型
6.     lngHeadLeng     As Long         '头部索引长度
7.     bData()         As Byte         '数据
9. End Type
11. Private Type FixFile
13.     strPath         As String       '路径
14.     intNums         As Integer      '文件号
15.    
16. End Type

复制代码

firendless

目前可以直接提取头部索引
结构体很明确，所以仿造该结构体再写一个结构体，trip具体data也很easy，
( q8 p* Q! E/ ]- }) ?谁把汉化的文件快给我....

2. Private Sub MakeNewRes()
4.     Dim strFilePath As String
5.     Dim strFullPath As String
7.     strFilePath = App.path & "\\"
8.     strFullPath = App.path & "\\" & txtOgri.Text
9. '检测文件是否存在
11.     If CheckFileExist(strFullPath) = False Then
13.         MsgBox "Err Exist.": Exit Sub
15.     End If
17.     Dim OldHead As ResHeadInfo, OldFile As FixFile
19.     With OldFile
21.         .intNums = FreeFile
22.         .strPath = strFullPath
24.         Open .strPath For Binary Access Read As #.intNums
26.         Get #.intNums, 1, OldHead.strPackName
27.         Get #.intNums, 5, OldHead.lngHeadLeng
28.         
29.         ReDim OldHead.bData(OldHead.lngHeadLeng)
30.         Get #.intNums, 9, OldHead.bData()
32.         
33.         Close #.intNums
34.         
35.     End With
38. '创建新的头文件
40.     Dim NewFileHead As FixFile
41.    
42.     With NewFileHead
43.     .intNums = FreeFile
44.     .strPath = strFilePath & "Head.sl"
45.         Open .strPath For Binary Access Write As #.intNums
46.    
47.         Put #.intNums, 1, OldHead
49.         Close #.intNums
50.         
51.     End With
52.    
54. End Sub

复制代码

shane007

你又写了一遍啊？

firendless

嗯，Hook我也写好了接下来是重写C的接口

shane007

想问一下你重写想修正什么问题？
$ t% E  m% H2 m" V很乐意学习一下。别忘了发完整代码出来。