高手来vb调用加密的WINRAR,如何把加密WINRAR里面文件调出来
这个问题需要调用名为ShellExecute的API函数。
----------------------------------------------------------
要调用这个函数,首先要在窗体层(或模块)中声明,声名如下:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
----------------------------------------------------------
函数功能说明:
查找与指定文件关联在一起的程序的文件名。关联的方式要么是运行程序,要么是打印文件。可用Windows注册表编辑器将特定的文件类型同应用程序关联起来。例如,扩展名为.TXT的文本文件通常与Windows记事本(NOTEPAD.EXE)关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件,就会自行启动记事本程序,并在其中载入文本文件;或者将指定的文件打印出来。
----------------------------------------------------------
函数返回值说明:
返回值类型为Long,若返回值大于32,则表明成功。
----------------------------------------------------------
函数参数说明:
1、hwnd
类型为Long,指定一个窗口的句柄,有些时候,Windows程序有必要在创建自己的主窗口前显示一个消息框。如果发生这种情况,由这个参数指定的窗口就会作为消息框的父窗口使用。在VB环境中,通常将活动窗体的窗口句柄作为这个参数使用
2、lpOperation
类型为String,指定字串“Open”来打开lpFlie文档;或指定“Print”来打印它。也可设为vbNullString,表示默认“Open”
3、lpFile
类型为String,想用关联的程序打印或打开的一个程序名或文件名
4、lpParameters
类型为String,如lpFile是一个可执行文件,则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件,或者不需要使用参数,则设为vbNullString
5、lpDirectory
类型为String,想使用的默认路径完整路径
6、nShowCmd
类型为Long,定义了如何显示启动程序的常数值。
----------------------------------------------------------
函数调用示例:
设窗体Form1上有两个按钮控件Command1,Command2,其Caption属性分别为“浏览”,“打开”。另外还有一个文本框Text1和一个通用对话框CommonDialog1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW = 5 '显示窗口
'以上代码写在窗体的通用层.
'--------------------------
Private Sub Command1_Click()
'选择文件
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
'执行API函数
ShellExecute Me.hwnd, "open", Text1.Text, "", "", SW_SHOW
End Sub
实现功能:有些数据我们不想让别人看到,通过WinRAR可以让我们在压缩文件的同时,实现对文档的加密处理,一举两得。
第一步:选中欲加密文件
先把硬盘中的重要文件拷贝到一个临时文件夹下,选中它们后,选择WinRAR→“添加到压缩包”命令,打开“压缩包名称和参数”设置对话框。
第二步:设置密码
在打开的“压缩包名称和参数”窗口中单击“高级”标签,然后单击“设置密码”按钮,并在打开的“带口令存档”窗口中输入密码,按下“确定”按钮返回“压缩包名称和参数 ”窗口,再次按下“确定”按钮后即可把所选文件加密起来
第三步:删除原始文件
最后删除掉临时文件夹下的加密文件,只留下加密后的RAR文件即可。以后双击空上RAR文件,并解压其中的文件时,WinRAR会向您询问密码,如果密码不对,任何人都无法看到其中的内容。
例:假设1.rar密码为123,里面含有一个setup.exe.
把rar.exe复制到你的VB程序目录下.
在窗体上新建一个按钮,输入以下代码
rar e -p123 1.rar setup.exe : rar后空格,跟着e,再空格,跟着-p后面没有空格,紧跟密码,然后空格,输入要解压的RAR文件,空格,再输入要解压的具体文件
private sub command1_click()
shell "rar e -p123 1.rar setup.exe",5
end sub
-----------------------
RAR命令行:
RAR 3.80 beta 5 版权 (C) 1993-2008 Alexander Roshal 29 八月 2008
已注册给
用法: rar <命令> -<开关 1> -<开关 N> <压缩文件> <文件...>
<@列表文件...> <解压路径\>
<命令>
a 添加文件到压缩文件
c 添加压缩文件注释
cf 添加文件注释
ch 改变压缩文件参数
cw 写入压缩文件注释到文件
d 删除压缩文件中的文件
e 解压压缩文件到当前目录
f 刷新压缩文件中的文件
i[参数]=<串> 在压缩文件中查找字符串
k 锁定压缩文件
l[t,b] 列出压缩文件[技术信息,简洁]
m[f] 移动到压缩文件[仅对文件]
p 打印文件到标准输出设备
r 修复压缩文件
rc 重建丢失的卷
rn 重命名压缩文件
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[名字|-] 转换压缩文件为自解压格式或转换回压缩文件
t 测试压缩文件
u 更新压缩文件中的文件
v[t,b] 详细列出压缩文件[技术信息,简洁]
x 用绝对路径解压文件
<开关>
- 停止扫描
ac 压缩或解压后清除存档属性
ad 添加压缩文件名到目标路径
ag[格式] 使用当前日期生成压缩文件名
ao 添加具有压缩属性的文件
ap<格式> 添加路径到压缩文件中
as 同步压缩文件内容
av 添加用户身份校验(仅注册版本可用)
av- 禁用用户身份校验
c- 禁用注释显示
cfg- 禁用读取配置
cl 名称转换为小写
cu 名称转换为大写
df 压缩后删除文件
dh 打开共享文件
dr 删除文件到回收站
ds 对固实压缩文件禁用名称排序
dw 压缩后清除文件
e[+]<属性> 设置文件排除和包括属性
ed 不添加空目录
en 不添加"压缩文件结束"标志
ep 从名称中排除路径
ep1 从名称中排除基本目录
ep2 展开为完整路径
ep3 扩展路径为包含盘符的完全路径
f 刷新文件
hp[密码] 同时加密文件数据和文件头
id[c,d,p,q] 禁用消息
ieml[属性] 用 E-mail 发送压缩文件
ierr 发送所有消息到标准错误设备
ilog[名称] 把错误写到日志文件(只有注册版本可用)
inul 禁用所有消息
ioff 完成一个操作后关闭 PC 电源
isnd 启用声音
k 锁定压缩文件
kb 保留损坏的已解压文件
m<0..5> 设置压缩级别(0-存储...3-默认...5-最大)
mc<参数> 设置高级压缩参数
md<大小> 以KB为单位的字典大小(64,128,256,512,1024,2048,4096 or A-G)
ms[ext;ext] 指定存储的文件类型
mt<线程> 设置线程数
n<文件> 仅包含指定的文件
n@ 从标准输入设备读取文件名到包括
n@<列表> 在指定的文件列表包括文件
o[+|-] 设置覆盖模式
oc 设置 NTFS 压缩属性
or 自动重命名文件
os 保存 NTFS 流
ow 保存或恢复文件所有者和组
p[密码] 设置密码
p- 不询问密码
r 递归子目录
r0 仅递归通配符名称的子目录
ri<P>[:<S>] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间
rr[N] 添加数据恢复记录
rv[N] 创建恢复卷
s[<N>,v[-],e] 创建固实压缩文件
s- 禁用固实压缩文件
sc<chr>[obj] 指定字符集
sfx[名称] 创建自解压压缩文件
st[名称] 从标准输入设备读取数据(stdin)
sl<大小> 处理小于指定大小的文件
sm<大小> 处理超过指定大小的文件
t 压缩后测试文件
ta<日期> 添加日期 <日期> 后修改的文件,日期格式 YYYYMMDDHHMMSS
tb<日期> 添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
tk 保留原始压缩文件时间
tl 设置压缩文件时间为最新文件时间
tn<时间> 添加 <时间> 以后的文件
to<时间> 添加 <时间> 以前的文件
ts<m,c,a>[N] 保存或恢复文件时间(修改,创建,访问)
u 更新文件
v 自动检测创建卷的大小或者列出所有的卷
v<大小>[k,b] 创建卷大小=<大小>*1000 [*1024, *1]
vd 创建容量前清除磁盘内容
ver[n] 文件版本控制
vn 使用旧风格的卷命名方案
vp 每卷之前暂停
w<路径> 指定工作目录
x<文件> 排除指定的文件
x@ 从标准输入设备读取要排除的文件名
x@<列表> 排除指定列表文件中的文件
y 假设对全部询问都回答是
z[文件] 从文件读取压缩文件注释
枕善居有个vb调用unrar.dll的源码,你参考下
用 RAR.EXE 命令行
高手来vb调用加密的WINRAR,如何把加密WINRAR里面文件调出来
首先你要知道密码是多少.例:假设1.rar密码为123,里面含有一个setup.exe.把rar.exe复制到你的VB程序目录下.在窗体上新建一个按钮,输入以下代码 rar e -p123 1.rar setup.exe : rar后空格,跟着e,再空格,跟着-p后面没有空格,紧跟密码,然后空格,输入要解压的RAR文件,空格,再输入要解压的具体文...
VB 实现英语字符加密的 不会调用 下面是代码和界面图 求高手教_百度知 ...
Function Encryp(inStrl As String) As StringFor i = 1 To Len(inStrl) t = Asc(Mid(inStrl, i, 1)) Select Case t Case 97 To 122 If t + 6 > 122 Then t = t + 6 - 26 Else t = t + 6 End If Case 65 To 90 If t + 6 > 90 The...
VB 实现字符串加密 解密
'如果是将text1中每个字符的asc码值转化为16进制实现加密解密可以这样:复制粘贴下段代码 '加密数据 Private Sub Command1_Click()Text2.Tag = "" '清空text2.tag用来存储加密后数据 Text2.Text = "" '清空text2用来显示加密后数据 For i = 1 To Len(Text1.Text) '将text1中每个...
我想做一个加密解密文件的VB程序!用des加密解密方法!!! 希望高手解答...
vb.net code注意随机密码按钮在没用,调试时你自己输入密码,一定为8位,我是将文件存在D盘,你自己在修改一下,那个就很简单 Imports System.IO Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S...
vb高手进 急急急急急急急!!!
添加一个command按钮 2个text控件 text1输入要加密的字符 text2输出加密后的字符 Private Sub Command1_Click()Dim s As Integer For i = 1 To Len(Text1.Text)s = Asc(Mid(Text1.Text, i, 1))If s >= 65 And s <= 90 Then If s = 89 Then Text2.Text = Text2.Text & Chr(...
请高手用VB6.0给设计一个能直接打开已知密码的word文档的程序! 要求...
dim ap as new word.application ap.documents.Open(FileName:="文件路径和名称", passworddocument:="密码")注意括号里面的冒号等于 或者写 dim ap as new word.application ap.documents.Open("文件路径和名称",,,"密码")写4个西文半角逗号就可以了 另外工程必须引用word的Object lib ...
急:vb加密\/解密是怎么一会事,请高手介绍一下!
'加密与解密是一样过程 Dim Pass As Byte,f As String,f2 As String Dim Temp As Byte Pass=Val(Inputbox("密码?(0-255)"))f=Inputbox("文件?")f2=inputbox("加密\/解密 后存放在?")Open f For Binary As #1 Open f2 For Binary As #2 For i=1 to FileLen(f)Get #1,i,Temp...
VB高手:设计一个加密解密程序,输入一串字符,使用加密算法对其加密,再设 ...
这个是最简单的字符替换法 Public Function Decrypt(ByVal s_text As String)s_text = Replace(s_text, "1!", "a", , , vbBinaryCompare)s_text = Replace(s_text, "2@", "b", , , vbBinaryCompare)s_text = Replace(s_text, "3#", "c", , , vbBinaryCompare)s_text = ...
VB高手来
结果如下:
编写简易的记事本程序并带有文件加密和解密(运用VB)要求详细过程,求高 ...
强大易用的加密软件,具有文件加密、文件夹加密、数据粉碎、彻底隐藏硬盘分区、禁止或只读使用USB设备等功能。文件夹加密和文件加密时有最快的加密速度,加密的文件和加密的文件夹有最高的加密强度,并且防删除、防复制、防移动。还有方便的加密文件夹和加密文件的打开功能(临时解密),让您每次使用加密文件...
羽祁地巴: Private Sub Command1_Click() Shell ("C:\Program Files\WinRAR\winrar.exe a -hpfGzq5yKw c:\secret.rar c:\1.txt") End Sub 将添加文件 1.txt 到加密的压缩文件secret.rar中,使用密码'fGzq5yKw'-hp是密码开关 a是压缩参数 像你那个,要加text1...
彭州市19725047920: 用VB代码打开带密码的压缩包 - ?
羽祁地巴: 在窗体拉出一个command按钮,然后输入 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盘下.
彭州市19725047920: vb调用winrar创建压缩文件 - ?
羽祁地巴: dim WinRAR = "C:\Program Files\Winrar\" 'winrar安装路径 dim Path1 = "c:\1.xml" '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim Path2 = "c:\2.xml" '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim RarPath = "D:\2.rar" '生成的压缩文件,路径带空格的话字符串最外面要加两对双引号 Private Sub Command1_Click() Shell WinRAR & "rar.exe a " & RarPath & " " & Path1 & " " & Path2 End Sub
彭州市19725047920: vb如何调用winrar静默压缩文件?
羽祁地巴: '自己修改一下 Private Sub Command1_Click() With CreateObject("Wscript.Shell") Shell .RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path") & "\WinRAR.exe a -r d:\d.rar d:\ddd\*.doc", vbHide End With End Sub
彭州市19725047920: 怎么用VB调用winRAR压缩多个文件? - ?
羽祁地巴: Winrar有命令行命令,用VB执行就可以
彭州市19725047920: 如何在vb中打开加密的winrar文件或在vb中直接将其他exe文件整合 - ?
羽祁地巴: 这个问题需要调用名为ShellExecute的API函数. ---------------------------------------------------------- 要调用这个函数,首先要在窗体层(或模块)中声明,声名如下: Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal ...
彭州市19725047920: VB如何调用winrar程序创建自解压缩文件并自动解压 - ?
羽祁地巴: shell “winzip xxx.xxx" 路径、参数自己加上去.
彭州市19725047920: 如何用VB破解WinRAR密码 - ?
羽祁地巴: 一般来说破解密码 无非就是两种1 字典破解2 暴力破解 第三种 破解MD5算法 这种就别想了 目前世界上虽然有一些黑客组织 宣称破解了 但是也是要花费很长的时间 其实说白了 还是暴力破解 字典破解 简单啦 去一般的黑客网站 下载一些字典 然后读取 对比就可以了 暴力破解么 就是程序自己随机生成各种字符串 来一个一个试了........好了话说回来 VB来破解RAR 呃 你就别想了 很多大神都搞不定的事情 我等屌丝就退散吧 实在想学 先搞本密码学的书来看看 了解一下远离先
彭州市19725047920: 用vb解压winrar文件?
羽祁地巴: 将winrar的CMD命令行文件 rar.exe封装到软件里 需要的时候释放rar并且调用rar命令行解压
彭州市19725047920: vb怎么调用rar解压文件名带空格的文件 - ?
羽祁地巴: 把文件名用双引号括起来即可,比如:Shell """C:\Program Files\WinRAR\Rar.exe"" x ""D:\My Documents\xx.rar"" *.* ""D:\My Documents\a""", vbHide 以上代码是把 "D:\My Documents\xx.rar" 这个压缩文件中的所有文件(含路径)全部解压缩到 "D:\My Documents\a" 这个文件夹中.注意,在字符串中要用两个双引号""代表一个双引号