mdb文件怎么解压

　　mdb文件怎么解压？不知道大家有没有接触过，现在在网上有一种mdb格式的的压缩格式，具体叫什么也不清楚。但是解压这样的文件，用常用的rar解压软件是无法解开的，那么mdb文件怎么解压呢？

　　相信大家都知道，mdb文件是是数据库文件，有网友在百度知道上提问mdb文件怎么解压很多人回复mdb不用解压，用Access打开就可以了。但相信真正提问的用户肯定对这样的答案不会满意的。

　　其实mdb压缩文件多见于木马的打包，通常是用这种形式把网站所有内容包括图片整体打包，有的为HSH.mdb有的可能是Packet.mdb或者其它是mdb后缀的名称。然后下载到本地再解压，有兴趣的朋友可以网上下载几个木马尝试下，通常的木马文件里都有解压程序。

　　mdb文件怎么解压？其实还有一个更为简洁的方法，如下：

　　新建一个文本文档，保存为*.vbs。程序代码

　　Dim rs, ws, fso, conn, stream, connStr, theFolder

　　Set rs = CreateObject(“ADODB.RecordSet”)

　　Set stream = CreateObject(“ADODB.Stream”)

　　Set conn = CreateObject(“ADODB.Connection”)

　　Set fso = CreateObject(“Scripting.FileSystemObject”)

　　connStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Packet.mdb;”

　　conn.Open connStr

　　rs.Open “FileData”, conn, 1, 1

　　stream.Open

　　stream.Type = 1

　　On Error Resume Next

　　Do Until rs.Eof

　　theFolder = Left(rs(“thePath”), InStrRev(rs(“thePath”), “”))

　　If fso.FolderExists(theFolder) = False Then

　　createFolder(theFolder)

　　End If

　　stream.SetEos()

　　stream.Write rs(“fileContent”)

　　stream.SaveToFile str & rs(“thePath”), 2

　　rs.MoveNext

　　Loop

　　rs.Close

　　conn.Close

　　stream.Close

　　Set ws = Nothing

　　Set rs = Nothing

　　Set stream = Nothing

　　Set conn = Nothing

　　Wscript.Echo “所有文件释放完毕!”

　　Sub createFolder(thePath)

　　Dim i

　　i = Instr(thePath, “”)

　　Do While i > 0

　　If fso.FolderExists(Left(thePath, i)) = False Then

　　fso.CreateFolder(Left(thePath, i – 1))

　　End If

　　If InStr(Mid(thePath, i + 1), “”) Then

　　i = i + Instr(Mid(thePath, i + 1), “”)

　　Else

　　i = 0

　　End If

　　Loop

　　End Sub

　　把mdb文件和该文件放同一个目录里双击解压.vbs即可

[Ok3w_NextPage]

　　注：上述中的红色代码Packet.mdb为你的mdb文件名称。

　　(转载请注明转自：http://www.waibiduihuan8.com/，谢谢!珍惜别人的劳动成果，就是在尊重自己!)