冒险解谜游戏中文网 ChinaAVG

标题: [VB Code]Trip DataHead [打印本页]
作者: firendless    时间: 2009-3-19 08:12
标题: [VB Code]Trip DataHead
一个提取文件头信息以及索引的Code,VXBG文件可用,即.sl文件,3 ^, I2 [$ e9 h6 k
之所以不发全,是因为我手头上没有汉化完的文件,不好确定是采取重写全部数据,还是文件尾贴数据段的方案。
6 ?6 C- v1 i! N. T9 q5 T; L1 X  \' [) t- P! _6 N# j
结构体：
  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    时间: 2009-3-19 08:13
目前可以直接提取头部索引
( d: G9 F$ d: m2 e结构体很明确，所以仿造该结构体再写一个结构体，trip具体data也很easy，( ]4 {8 }" ~7 s. L. i9 D% Q
谁把汉化的文件快给我....' K2 L9 [% @# ]6 ?  x
  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    时间: 2009-3-19 11:24
你又写了一遍啊？
作者: firendless    时间: 2009-3-19 12:13
嗯，Hook我也写好了接下来是重写C的接口
作者: shane007    时间: 2009-3-19 20:18
想问一下你重写想修正什么问题？6 L* R% h- C9 L# t1 E4 e) e! K
很乐意学习一下。别忘了发完整代码出来。



欢迎光临 冒险解谜游戏中文网 ChinaAVG (https://chinaavg.com/) Powered by Discuz! X3.2