mdb文件怎么解壓?不知道大家有沒有接觸過,現(xiàn)在在網(wǎng)上有一種mdb格式的的壓縮格式,具體叫什么也不清楚。但是解壓這樣的文件,用常用的rar解壓軟件是無法解開的,那么mdb文件怎么解壓呢?相信大家都知道,mdb文件是是數(shù)據(jù)庫文件,有網(wǎng)友在百度知道上提問mdb文件怎么解壓很多人回復(fù)mdb不用解壓,用Access打開就可以了。但相信真正提問的用戶肯定對(duì)這樣的答案不會(huì)滿意的。其實(shí)mdb壓縮文件多見于木馬的打包,通常是用這種形式把網(wǎng)站所有內(nèi)容包括圖片整體打包,有的為HSH.mdb有的可能是Packet.mdb或者其它是mdb后綴的名稱。然后下載到本地再解壓,有興趣的朋友可以網(wǎng)上下載幾個(gè)木馬嘗試下,通常的木馬文件里都有解壓程序。mdb文件怎么解壓?其實(shí)還有一個(gè)更為簡(jiǎn)潔的方法,如下:新建一個(gè)文本文檔,保存為*.vbs。程序代碼Dim rs, ws, fso, conn, stream, connStr, theFolderSet 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 connStrrs.Open “FileData”, conn, 1, 1stream.Openstream.Type = 1On Error Resume NextDo Until rs.EoftheFolder = Left(rs(“thePath”), InStrRev(rs(“thePath”), “”))If fso.FolderExists(theFolder) = False ThencreateFolder(theFolder)End Ifstream.SetEos()stream.Write rs(“fileContent”)stream.SaveToFile str & rs(“thePath”), 2rs.MoveNextLooprs.Closeconn.Closestream.CloseSet ws = NothingSet rs = NothingSet stream = NothingSet conn = NothingWscript.Echo “所有文件釋放完畢!”Sub createFolder(thePath)Dim ii = Instr(thePath, “”)Do While i > 0If fso.FolderExists(Left(thePath, i)) = False Thenfso.CreateFolder(Left(thePath, i – 1))End IfIf InStr(Mid(thePath, i + 1), “”) Theni = i + Instr(Mid(thePath, i + 1), “”)Elsei = 0End IfLoopEnd Sub把mdb文件和該文件放同一個(gè)目錄里雙擊解壓.vbs即可注:上述中的紅色代碼Packet.mdb為你的mdb文件名稱。(轉(zhuǎn)載請(qǐng)注明轉(zhuǎn)自:http://www.waibiduihuan8.com/,謝謝!珍惜別人的勞動(dòng)成果,就是在尊重自己!)
新聞熱點(diǎn)
疑難解答
圖片精選
網(wǎng)友關(guān)注