vbs解壓文件

❶ 用批處理（vbs也行）控制winrar，將拖到批處理文件上的壓縮包，進行修改，把壓縮包里ABC文件夾中的文件修

WinRAR 安裝目錄下自帶的中文幫助手冊 WinRAR.chm 里有關於命令行模式的說明。
我下載了個 jar 壓縮包簡單試驗了一下，測試通過。修改其中的jar壓縮包名稱即可。

'═════代═══碼═══開═══始═════
jarpack = "37688.jar" 'jar壓縮包名稱
folder = "ABC" '文件夾名稱
filespec = "txt.gio" '文件名稱
mytext = "omyyyyyyyy" '要在文件中增加的一行內容

Const ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filespec) Then
fso.DeleteFile(filespec) 』首先確保當前文件夾下不存在同名文件，防止解壓出錯
End If

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "WinRAR e -ap" & folder & " " & jarpack & " *.gio"
WScript.Sleep 2000
oShell.run "WinRAR d -ap" & folder & " " & jarpack & " *.gio"
WScript.Sleep 500

If Not fso.FileExists(filespec) Then
wscript.quit
End If
Set oFile = fSO.OpenTextFile(filespec, ForAppending)
oFile.WriteLine vbCRLF & mytext
oFile.Close

WScript.Sleep 2000
oShell.run "WinRAR m -ap" & folder & " " & jarpack & " " & filespec
Set oShell = Nothing
'═════代═══碼═══結═══束═════

相關WinRAR命令及開關：
命令 E - 從壓縮文件解壓壓縮，忽略路徑。
命令 X - 以完整路徑解壓文件和文件夾。保存在壓縮文件中的文件夾架構，將會完整的還原恢復。
命令 D - 從壓縮文件中刪除文件。
命令 M - 移動文件和文件夾到壓縮文件。
命令 U - 更新壓縮文件內文件。

開關 -R - 連同子文件夾。如果是用命令X解壓的（連文件夾解壓），在重新將整個文件夾放回壓縮包去的時候，建議要加上這個開關。
開關 -ap<路徑> - 設置壓縮文件內的路徑。

更多內容，敬請參考幫助 —— WinRAR.chm。
上述代碼按照你的要求只解壓文件，因此命令X與開關-R沒有用到。
還有一種實現方式：解壓後不刪除jar壓縮包中的txt.gio，而是使用命令U直接更新該文件，之後再用DeleteFile方法刪除解壓並修改後的txt.gio（與jar壓縮包同級目錄）。

最後提醒一下，使用腳本前請先慎重備份好你的jar壓縮包以防格式損壞。
當然，如果不小心損壞了，還可以用WinRAR的命令R來嘗試修復。

❷ win10中vbs解壓mdb彈錯 未找到提供程序，源adodb.connection

依次選擇「開始→運行」，在「運行」對話框中輸入「regsvr32 actxprxy.dll」命令，單擊「確定」按鈕，這時會彈出一個信息對話框，提示「actxprxy.dll中的DllRegisterServer成功」，單擊「確定」按鈕，然後再在「運行」對話框中輸入「regsvr32 shdocvw.dll」命令，單擊「確定」按鈕，重新啟動計算機後IE就被修復了。

另外可升級你的殺毒軟體,在安全模式下對你的系統作一次全面的掃描!!!
另外建議你重裝一下系統，有可能是你的電腦軟體太多導致系統有點混亂。

❸ 如何使用exe或bat等文件打開一個VBS文件

兄弟，幫朋友慶祝生日，不錯哦~~我幫你做這個程序吧
首先你要等mp3結束後才打開你要的vbs程序，但是你如果用樓上那個朋友說的用start 的話，音樂一打開就會馬上打開vbs程序，也就是說沒等音樂結束，vbs就打開，如果不用start來啟動程序的話，如用一下代碼，比如歌曲叫愚愛,mp3
@echo off
愚愛.mp3
123.vbs
exit
這樣的話，就要等到mp3播放完畢，並且需要你手動關閉mp3播放程序，才能運行vbs
也就說bat根本不好做，唯一的辦法是確定你音樂播放的時間，等時間到了後再用taskkill把音樂程序的進程殺死，然後就順利運行vbs，兄弟，代碼我就不給你寫了，你在想想吧，我馬上要去面試了（找工作），如果中午我回來還沒人給你寫好，或者你自己還沒想到，我中午給你寫代碼··

❹ 寫段vbs代碼，破解winrar密碼（單一字母密碼）

Setfso=WScript.CreateObject("Scripting.Filesystemobject")
rarpath=InputBox("請輸入rar.exe的完整路徑")
Iffso.FileExists(rarpath)=TrueThen
rarpath=""""&rarpath&""""
ElseMsgBox"找不到rar.exe！",48,"路徑錯誤"
WScript.Quit
EndIf
file=InputBox("請輸入要處理的rar文件完整路徑","字元范圍")
Iffso.FileExists(file)=TrueThen
file=""""&file&""""
ElseMsgBox"找不到rar文件！",48,"路徑錯誤"
WScript.Quit
EndIf
range=InputBox("[a-z]請輸入1,[A-Z]請輸入2，[a-z]+[A-Z]請輸入3")
pwd=pwdarray(range)
flag=-1
Fori=1ToLen(pwd)
flag=crack(rarpath,file,Mid(pwd,i,1))
Ifflag=0Then
MsgBox"密碼為"&Mid(pwd,i,1),64,"恭喜!"
WScript.Quit
EndIf
Next
MsgBox"破解失敗!"
Functioncrack(rarpath,file,pwd)
sets=WScript.CreateObject("WScript.Shell")
crack=s.run(rarpath&"e-inul-o+-p"&pwd&""&file,7,true)
'-0+表示覆蓋同名文件！不需要請自行去掉
EndFunction
Functionpwdarray(combine)
lcl="abcdefghijklmnopqrstuvwxyz"
ucl="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SelectCasecombine
Case1
pwdarray=lcl
Case2
pwdarray=ucl
CaseElse
pwdarray=lcl&ucl
EndSelect
EndFunction

P.S.

1、文件路徑中有空格不會影響到本腳本

2、解壓程序既可以是WinRAR.exe，也可以是命令行下使用的rar.exe，個人推薦rar.exe

❺ 將vbs壓縮，打開壓縮文件後，裡面的vbs文件自動運行，怎樣做到

轉換為自解壓格式！然後設置解壓前執行相應VBS就可以啊 這是我做好的一個效果！裡面有個整人代碼 有首歌！