用VB代码打开带密码的压缩包
在一些批处理任务的应用程序如安装程序中，需要对压缩文件进行解压缩处理。VB来实现对压缩文件格式，如RAR、Zip等文件的解压缩，总的来说，有以下两种方法：
一、 采用winrar命令行
一般来说，安装好winrar后，在安装目录中，有个名为rar.txt的文件。其实该文件就是Winrar的控制台（命令行）中文手册。下面我们一起来学习一下，和解压缩文件有关的命令行。
Winrar命令行的通用格式是：
RAR [ - ] [ ]
[ ] [ ]
举 例来说 ，为a时，表示添加文件到压缩文件中，其中需压缩的文件由列表文件指定。当为e的时候，就表示解压文件到当前目录。如果需要将压缩文件解压缩 到自定义目录，则通常使用x命令，该命令表示带绝对路径进行解压缩。 -为-y，表示对于所有询问全部回答是。如果rar文件包含密码，则需要添加开关为"-p密码字符串"，否则不能正常解压缩。
如果要判断是否winrar命令行是否执行成功，可以通过该命令行的返回值来判断。如果返回值为0，则成功执行。如果不为0，则执行过程中出现错误。错误代码rar.txt中有详细定义。请仔细研读该文件。
在有了上述理论作为基础之后，接下来，我们用VB来实现创建和解压缩一个带密码的压缩文件。
打开VB6，新建一个标准的Exe工程文件，界面设计如下图所示，控件的名称采用默认的名称。
图 解压缩界面
程 序首先要获得Winrar的安装路径，一般来说，安装好了Winrar后，会在注册表的HKEY_LOCAL_MACHINE\Software \Microsoft\Windows\CurrentVersion\AppPaths\创建一个winrar.exe的路径，该路径下有一个名为Path的字符串项，该项的值保存的就是Winrar的安装路径。本例中，引用 Registry Access Functions对象来实现对注册表的操作。
对于Windows操作系统的安全模式，经常使用电脑的朋友肯定不会感到陌生，安全模式是Windows用于修复操作系统错误的专用模式，是一种不加载任何驱动的最小系统环境，用安全模式启动电脑，可以方便用户排除问题，修复错误。
进入安全模式的方法是：启动计算机，在系统进入Windows启动画面前，按下F8键(或者在启动计算机时按住Ctrl键不放)，在出现的启动选项菜单中，选择“Safe Mode”，即可
以安全模式启动计算机。那么安全模式到底有哪些用途呢？下面就让我们具体来看一下。
1.修复系统故障
如果Windows运行起来不太稳定或者无法正常启动，这时候先不要忙着重装系统，试着重新启动计算机并切换到安全模式启动，之后再重新启动计算机，系统是不是已经恢复正常了？如果是由于注册表有问题而引起的系统故障，此方法非常有效，因为Windows在安全模式下启动时可以自动修复注册表问题，在安全模式下启动Windows成功后，一般就可以在正常模式(Normal)下启动了。
2.恢复系统设置
如果用户是在安装了新的软件或者更改了某些设置后，导致系统无法正常启动，也需要进入安全模式下解决，如果是安装了新软件引起的，请在安全模式中卸载该软件，如果是更改了某些设置，比如显示分辨率设置超出显示器显示范围，导致了黑屏，那么进入安全模式后就可以改变回来，还有把带有密码的屏幕保护程序放在“启动”菜单中，忘记密码后，导致无法正常操作该计算机，也可以进入安全模式更改。
3.删除顽固文件
我们在Windows下删除一些文件或者清除回收站内容时，系统有时候会提示“某某某文件正在被使用，无法删除”的字样，有意思的是，通常这些文件并没有正在被使用，那么是不是让这些文件永远霸占我们的硬盘呢？请不要着急，重新启动计算机，并在启动时按下F8键进入安全模式，试着删除那些顽固文件并清空回收站看一看，没了！原来Windows已经放弃了对这些文件的保护，可以把它们删除了。
4.彻底清除病毒
现在病毒一天比一天多，杀毒软件也跟着天天更新。但是，在Windows正常模式下有时候并不能干净彻底地清除病毒，因为它们极有可能会交*感染，而一些杀毒程序又无法在DOS下运行，这时候我们当然也可以把系统启动至安全模式，使Windows只加载最基本的驱动程序，这样杀起病毒来就更彻底、更干净了。
5.磁盘碎片整理
在碎片整理的过程中，是不能运行其它程序的，因为每当其它程序进行磁盘读写操作时，碎片整理程序就会自动重新开始，而一般在正常启动Windows时，系统会加载一些自动启动的程序，有时这些程序又不易手动关闭，常常会对碎片整理程序造成干扰，这种情况下，我们就应该重新启动计算机，进入安全模式，安全模式是不会启动任何自动启动程序的，可以保证磁盘碎片整理的顺利进行
Private Sub Command1_Click()
Dim s As String
s = "C:\Program Files\WinRAR\WinRAR.exe x c:\我的压缩包.rar c:\"
Shell "cmd /c " & s, 0
End Sub
意思是把c盘下"我的压缩包.rar"文件解压到c盘下。
vb如何批量打开有固定相同密码的word文档
myPas = InputBox("请输入打开密码：")With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)Next End If End With Appl...
用VB编个输入密码程序(简单点的)
新建工程---添加一个commandbuton控件~双击窗体进入代码编辑区~复制一下代码 Private Sub Command1_click()Const Pwd = "123456" '改成密码 x = InputBox("内容", "标题", "输入栏内容")If x = Pwd Then MsgBox "密码正确"Else MsgBox "密码错误"End If end sub 按f5运行 点击按钮 看到效...
用VB代码打开带密码的压缩包
Private Sub Command1_Click()Dim s As String s = "C:\\Program Files\\WinRAR\\WinRAR.exe x c:\\我的压缩包.rar c:\\"Shell "cmd \/c " & s, 0 End Sub 意思是把c盘下"我的压缩包.rar"文件解压到c盘下。
...学vb,我突然想做一个程序,就是说要进去这个程序,必须要有密码...
Private Sub Command1_Click()'登录确认If Text1.Text = "" Then MsgBox "没有输入用户帐号,请输入!", 16, "警告" Exit SubEnd IfIf Text2.Text = "" Then MsgBox "没有输入用户密码,请输入!", 16, "警告" Exit SubEnd IfIf Trim(Text1.Text) <> "123456" Then Ms...
vb代码;登录窗口输入用户名和密码
设Command1是登陆按钮，Text1是用户名框，Text2是密码框，代码如下。--- Private Sub Command1_Click()If Not (Text1.Text = 改为用户名 And Text2.Text = 改为密码) Then MsgBox "输入错误"Text1.Text = ""Text2.Text = ""End If End Sub ...
vb 如何 打开一个需要输入 用户密码的 共享文件夹 。 API Shell 都可以...
密码是passwd，则该写为 Shell "cmd.exe \/c net use 192.168.1.1 passwd \/user:admin ", vbHide sleep 2000 '等待两秒 Shell ( "c:\\windows\\explorer.exe \\\\server\\test ")server是对方电脑的名字 用ip代替也可以 test 共享的目录 ...
VB打开有密码的EXCEL时,如何提示用户输入密码
If MsgBox(IIf(isFirstFlag, "该工作簿密码保护，是否输入密码", "密码错误，是否重新输入密码"), vbOKCancel) = vbOK Then szPass = InputBox("请输入密码")isFirstFlag = False GoTo OpenWorkBook Else oExcel.quit Set oExcel = Nothing End If Else MsgBox "打开成功"End If End Sub ---...
我打开VB怎么还要输入密码啊
这不是VB让你输，是你连接了SourceSafe库。这是微软的一种代码版本管理工具，适用于多人维护相同的代码时做版本控制和管理。如果你只看本机的代码，直接按"cancel“就行了。
vb 怎么实现输入密码才允许访问
有个最简单的：在输入密码的窗体写：dim passwd as string passwd = "你需要设定的密码"if textbox1.text = passwd then form2.show else msgbox "密码错误，请重新输入!"end if
VB中,如果登录界面的用户名称是jenny,密码是12345,点确定按钮就进入一个...
登陆界面为form1，加一个Text1，输入用户名，text2，输入密码，一个按钮，用来登陆，进入的主界面为form2，代码如下 Private sub command1_click()if text1.text="jenny" and text2.text="12345" then form2.show else msgbox ("用户名不存在或密码错误！")end if end sub ...
枞徐芬迪： 在一些批处理任务的应用程序如安装程序中,需要对压缩文件进行解压缩处理.VB来实现对压缩文件格式,如RAR、Zip等文件的解压缩,总的来说,有以下两种方法:一、 采用winrar命令行 一般来说,安装好winrar后,在安装目录中,有个名...
凉城县19222413904： 如何用VB设计一个需要密码才能打开的文件的程序？
枞徐芬迪： open是文件操作名令.使用格式:open ＂文件名及路径＂ for input as #1 意思是打开指定文本用来读取数据(input 为读,output 为写),在内存中标记为#1.只有打开的文件才能读或写.在读写后需要用close #1关闭文件.
凉城县19222413904： 如何用VB破解WinRAR密码 - ？
枞徐芬迪： 一般来说破解密码 无非就是两种1 字典破解2 暴力破解 第三种 破解MD5算法 这种就别想了 目前世界上虽然有一些黑客组织 宣称破解了 但是也是要花费很长的时间 其实说白了 还是暴力破解 字典破解 简单啦 去一般的黑客网站 下载一些字典 然后读取 对比就可以了 暴力破解么 就是程序自己随机生成各种字符串 来一个一个试了........好了话说回来 VB来破解RAR 呃 你就别想了 很多大神都搞不定的事情 我等屌丝就退散吧 实在想学 先搞本密码学的书来看看 了解一下远离先
凉城县19222413904： 如何用批处理或VB调用＂IsoCmd.exe＂解压带密码的iso或isz镜像? - ？
枞徐芬迪： isocmd参数如下 Usage: isocmd <-command> <parameter>-mount drive: file_spec <password> (mount file_spec to drive:password is optional for ISZ images)-eject drive: (unmount drive:)-number (set number of devices)-change device_no new_drive_letter: (change drive letter) 所以你使用 isocmd -mount H: C:\abc.iso 123456 就行了
凉城县19222413904： 我想创建一个程序(用VB) 让人家输入我设定的密码后,才能打开打包中的软件.？
枞徐芬迪：假设有TEXT1和COMMAND1控件. pirvate sub command1_click()if text1.text=＂你要的字符＂ thenshell＂文件路径＂else msgbox＂错误提示＂ end ifend sub 纯手打.请去测试下.如果还要限制几次输入.请追问.
凉城县19222413904： 如何在vb中打开加密的winrar文件或在vb中直接将其他exe文件整合 - ？
枞徐芬迪： 这个问题需要调用名为ShellExecute的API函数. ---------------------------------------------------------- 要调用这个函数,首先要在窗体层(或模块)中声明,声名如下: Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByVal ...
凉城县19222413904： VB可用的,有些什么可以解压带密码zip文件的控件 - ？
枞徐芬迪： 要解带密码的压缩文件,首先需要文件密码,否则是做无用功. 至于解压缩VB可使用API函数实现.
凉城县19222413904： 如何用VB打开一个加密文件夹中的程序,知道密码,求高手写出代码. - ？
枞徐芬迪： 其实总会有痕迹的(运行时在任务管理器里能看到多了一个进程),你最多只能1、隐藏此文件2、放在别的目录里,比如system32里
凉城县19222413904： 求用vb编写的文件加密解密程序(悬赏100.. - ？
枞徐芬迪： 在窗体上至少添加文件控件:Drive控件,Dir控件,File控件,以及Command控件,每次用Xor加密解密后,在文件名加上前缀X-,另外保存 其他控件你可以添加,用来装饰,比如Label,用做提示 ■这已经是详细完整的程序了,窗体添加控件你...
凉城县19222413904： 用VB怎样打开网络上共享的文件(此文件所在目录加有共享密码)? - ？
枞徐芬迪： 进入共享文件夹可以用直接路径的,不过如果要进入共享文件夹下子文件夹里,要先进入共享文件夹,然后再过,不然可能会出现文件查找不到(就算没有密码也有可能会出现)例如:进入局域网客户机PC的共享文件夹basic下子文件夹file里的文件text.txt就要先访问//pc/basic,写入密码,然后再进入//pc/basic/file/text.txt
