小说阅读网,古风小说君子以泽,小说排行榜

關于為什么提供打包程序和打包壓縮文件.MDB的解壓

2006.asp　　　　　　　　　　　　　　　　海陽頂端網asp木馬2006版文件　
unpack.vbs　　　　　　　　　　　　　　　　打包文件"hytop.mdb"的解開器　
2006x.exe　　　　　　　　　　　　　　　　海陽頂端網asp木馬2006　c/s模式轉換器　
2006x2.exe　　　　　　　　　　　　　　　　海陽頂端網asp木馬2006　專用短服務器端　
　　　　　　　　　　　　　　　　　　　　　　　　c/s模式轉換器　
2006z.exe　　　　　　　　　　　　　　　　海陽頂端網asp木馬2006_lite版本組合器　
　　　　　　　　　　　　　　　　　　　　　　　　用來自定義生成相應功能的lite版木馬　
hididi.ini　　　　　　　　　　　　　　　　2006z.exe的配置文件　

問題一：　
就是你們寫的小馬那個文件打包/揭開。我想知道　文件打包后，我下載下來，是.mdb后綴的，那我來怎么恢復呢，比如說是將一個文件夾打包下載后，來怎么恢復呢？　　

回答：　
請用海洋頂端asp木馬2006正式版里的unpack.vbs文件進行解壓！　
mdb的文件名必須為hytop.mdb（也就是默認的名字)　

VB解包工具中有三個VB文件。分別是三種馬的解包工具
一個是海洋打包的解包工具。解HYTOP。MDB
一個是ADMIN（類似于海洋）。解PACKET。MDB
一個是老兵的解包工具。解TOMDB。TDB

注:你把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

上一篇：使用vbscript腳本在表單中進行選擇的代碼

下一篇：tel.xls.vbs xls專殺工具

發表評論

共有條評論