防火管厂家
免费服务热线

Free service

hotline

010-00000000
防火管厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

mdb文件怎么解压

发布时间:2020-03-13 16:14:39 阅读: 来源:防火管厂家

您现在的位置:首页>教程>电脑教程>电脑常识 > mdb文件怎么解压 mdb文件怎么解压 感谢 lotery 的投递 时间:2014-02-12 来源:三联教程 子宜 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即可

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

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

上海德沁机械有限公司

上海德沁机械有限公司

上海德沁机械有限公司