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就可以啊 这是我做好的一个效果！里面有个整人代码 有首歌！