设为首页收藏本站官方微博

[VB Code]Trip DataHead

[复制链接]
查看: 1374|回复: 4
打印 上一主题 下一主题

[VB Code]Trip DataHead

跳转到指定楼层
楼主
发表于 2009-3-19 08:12 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

[VB Code]Trip DataHead

一个提取文件头信息以及索引的Code,VXBG文件可用,即.sl文件,, ^' r. Z  h8 b; h, k
之所以不发全,是因为我手头上没有汉化完的文件,不好确定是采取重写全部数据,还是文件尾贴数据段的方案。
! Q2 a" g/ Q! o8 u) L0 B1 E' ]. Y  v* y8 Z$ S$ O
结构体:
  1. Private Type ResHeadInfo
  2.     strPackName     As String * 4   '文件类型
  3.     lngHeadLeng     As Long         '头部索引长度
  4.     bData()         As Byte         '数据
  5. End Type
  6. Private Type FixFile
  7.     strPath         As String       '路径
  8.     intNums         As Integer      '文件号
  9.    
  10. End Type
复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 很美好很美好 很差劲很差劲
回复

使用道具 举报

5#
发表于 2009-3-19 20:18 | 只看该作者
想问一下你重写想修正什么问题?; {& n- Z+ k8 b8 E: }/ w- K
很乐意学习一下。别忘了发完整代码出来。
回复 支持 反对

使用道具 举报

地板
 楼主| 发表于 2009-3-19 12:13 | 只看该作者
嗯,Hook我也写好了接下来是重写C的接口
回复 支持 反对

使用道具 举报

板凳
发表于 2009-3-19 11:24 | 只看该作者
你又写了一遍啊?
回复 支持 反对

使用道具 举报

沙发
 楼主| 发表于 2009-3-19 08:13 | 只看该作者
目前可以直接提取头部索引
: `6 X: ~5 z5 a+ i8 b% u! R结构体很明确,所以仿造该结构体再写一个结构体,trip具体data也很easy,
& `" ~. `# i! J8 f! R3 f谁把汉化的文件快给我....4 {  M, E2 ]- A
  1. Private Sub MakeNewRes()
  2.     Dim strFilePath As String
  3.     Dim strFullPath As String
  4.     strFilePath = App.path & "\\"
  5.     strFullPath = App.path & "\\" & txtOgri.Text
  6. '检测文件是否存在
  7.     If CheckFileExist(strFullPath) = False Then
  8.         MsgBox "Err Exist.": Exit Sub
  9.     End If
  10.     Dim OldHead As ResHeadInfo, OldFile As FixFile
  11.     With OldFile
  12.         .intNums = FreeFile
  13.         .strPath = strFullPath
  14.         Open .strPath For Binary Access Read As #.intNums
  15.         Get #.intNums, 1, OldHead.strPackName
  16.         Get #.intNums, 5, OldHead.lngHeadLeng
  17.         
  18.         ReDim OldHead.bData(OldHead.lngHeadLeng)
  19.         Get #.intNums, 9, OldHead.bData()
  20.         
  21.         Close #.intNums
  22.         
  23.     End With
  24. '创建新的头文件
  25.     Dim NewFileHead As FixFile
  26.    
  27.     With NewFileHead
  28.     .intNums = FreeFile
  29.     .strPath = strFilePath & "Head.sl"
  30.         Open .strPath For Binary Access Write As #.intNums
  31.    
  32.         Put #.intNums, 1, OldHead
  33.         Close #.intNums
  34.         
  35.     End With
  36.    
  37. End Sub
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

冒险解谜游戏中文网 ChinaAVG

官方微博官方微信号小黑屋 微信玩家群  

(C) ChinaAVG 2004 - 2019 All Right Reserved. Powered by Discuz! X3.2
辽ICP备11008827号 | 桂公网安备 45010702000051号

冒险,与你同在。 冒险解谜游戏中文网ChinaAVG诞生于2004年9月9日,是全球华人共同的冒险解谜类游戏家园。我们致力于提供各类冒险游戏资讯供大家学习交流。本站所有资源均不用于商业用途。

快速回复 返回顶部 返回列表