MDB格式网站文件如何解压

来源:试验箱 时间:2008-07-02 12:48:00 

昨天打包下载了一个服务器整站,拿到这个*.mdb的文件后,却不知道怎么用,百度了一下,才知道是一种木马打包的形式文件,不能用WINrar来解压缩,可以用海洋打包工具进行解压缩,但是这个工具很难找。后来在网上找到一种更简单的方法,跟大家一起分享下。

将*.MDB的文件放在本地的某个文件夹,把下面代码写进记事本,保存为unpack.vbs文件,把待解压文件改名为HYTop.mdb后执行解压。把VB脚本文件和MDB文件放在一个目录里,执行VB脚本就行了(双击这个脚本)。稍等几分钟时间,完成之后会提示的。(没有完成强行退出解的是不完整的包)

unpack.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=HYTop.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,解压,服务器
0
投稿

猜你喜欢

  • Python3读取zip文件信息的方法

    2022-08-15 01:54:20
  • python数据挖掘Apriori算法实现关联分析

    2022-06-02 12:29:15
  • python 画函数曲线示例

    2022-09-05 03:29:24
  • python selenium自动化测试框架搭建的方法步骤

    2023-05-24 21:38:49
  • matplotlib图例legend语法及设置的方法

    2023-01-07 04:23:37
  • caffe binaryproto 与 npy相互转换的实例讲解

    2021-10-22 15:38:48
  • 78行Python代码实现现微信撤回消息功能

    2021-12-17 17:41:19
  • Golang实现的聊天程序服务端和客户端代码分享

    2024-05-09 14:54:58
  • Python读写zip压缩文件的方法

    2021-10-08 02:28:11
  • 细化解析:转换 SQL数据库时的疑难问题

    2009-02-05 15:38:00
  • numpy 数组拷贝地址所引起的同步替换问题

    2023-11-07 18:00:06
  • Python对XML文件实现增删改查操作

    2023-11-19 20:42:03
  • JDBC下Idea添加mysql-jar包的详细过程

    2024-01-20 10:58:18
  • tensorflow pb to tflite 精度下降详解

    2023-05-25 19:05:41
  • python中Pexpect的工作流程实例讲解

    2021-05-04 15:51:28
  • 自定义Django_rest_framework_jwt登陆错误返回的解决

    2021-02-27 22:07:32
  • MySQL创建全文索引分享

    2024-01-21 10:16:06
  • Python3获取cookie常用三种方案

    2022-10-20 02:56:19
  • 教你如何使Python爬取酷我在线音乐

    2021-02-18 14:13:01
  • Python3+PyInstall+Sciter解决报错缺少dll、html等文件问题

    2021-05-15 23:31:46
  • asp之家 网络编程 m.aspxhome.com