本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2009年04月21日
统计字数: 1843字
阅读时间: 4分钟阅读
本文链接: https://soulteary.com/2009/04/21/howto-analyse-and-make-easy-tool-for-res.html

-----


# [教程]简单解包的分析和工具的制作

问题和改进在此更新。

补充模块。

## 教程下载：

CHINAAVG FTP资源内...

水品有限...所以东西自然也有限，高手自觉略过吧.....

## 教程补充：

这个只是一个demo而已..还有太多地方该去改进，这个活交给聪明的你了。
本来还有一个小工具的，可是呢，受限于信用问题，已经投稿便不能发了。。。
操作文件C是王道，但是使用其他工具也没有问题的，甚至是轻量脚本php
如果你也用VB6或者VBNET可以考虑FSO,[其实和GET PUT一样的]
例子中没有告诉大家要注意资源的使用，比如初始化[虽然我有做]和
注销使用了的变量,我放到程序结束的时候了。
程序中没有检验传入数据，请注意，那个提取我检验过了，所以就删除掉了，
那个indexB，的范围改成图片的数量就可以了，估计是手误吧...
前面几个字符的处理其实也简单，不停的更换前面的那个头部结构声明，然后读取
看看能和什么匹配就好，或者你就跟踪程序操作文件吧，在读取文件的API处下断
我去学习了，所以去踩博客吧~呵呵~

```vb

Option Explicit

Private Declare Function OpenFile _
Lib "kernel32" (ByVal lpFileName As String, _
lpReOpenBuff As OFSTRUCT, _
ByVal wStyle As Long) As Long

Private Type OFSTRUCT

cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(128) As Byte

End Type

Public Function FileExist(strFilePath As String) As Boolean

Dim lngResult  As Long

Dim strucFname As OFSTRUCT

lngResult = OpenFile(strFilePath, strucFname, &H4000)

If lngResult = -1 Then
FileExist = False
Else
FileExist = True
End If

End Function
```

```vb

Option Explicit

Private Declare Function CreateDirectory _
Lib "kernel32" _
Alias "CreateDirectoryA" (ByVal lpPathName As String, _
lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Type SECURITY_ATTRIBUTES

nLength   As Long
lpSecurityDescriptor   As Long
bInheritHandle   As Long

End Type

Public Sub CreateNewDirectory(NewDirectory As String)

Dim sDirTest  As String

Dim SecAttrib As SECURITY_ATTRIBUTES

Dim bSuccess  As Boolean

Dim sPath     As String

Dim iCounter  As Integer

Dim sTempDir  As String

Dim iFlag     As Integer

iFlag = 0
sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "" Then
sPath = sPath & ""
End If

iCounter = 1

Do Until InStr(iCounter, sPath, "") = 0
iCounter = InStr(iCounter, sPath, "")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop

End Sub
```