1. 如何讓VB運行一個加密的壓縮文件內的exe程序（高手回答）
不使用「加密的壓縮文件」，用VB的資源編輯器，把程序123.exe添加到資源文件，資源編輯器用法 http://..com/question/77194886.html
點擊按鈕時，生成123.exe，再運行，代碼
Dim arr() As Byte
arr = LoadResData(101, "CUSTOM")
FileName = "C:\windows\temp\123.exe"
Open FileName For Binary As #1
Put #1, , arr
Close #1
Shell FileName, vbNormalFocus
2. 如何用代碼把access文件壓縮成帶密碼的winrar文件。最好用vb寫的。因為access文件很容易就被破解了。所...
用 Shell 調用 WinRAR
Private Sub Command1_Click()
Shell "C:\Program Files\WinRAR\WinRAR.exe a -p123456-r c:\456.rar c:\123.mdb"
End Sub
123456 為密碼
把123.mdb 加密壓縮為文件 456.rar
3. vb 壓縮帶密碼的access資料庫
VB6與資料庫的連接方法很多，取決於你的目的，如果你主要是為了把數據按照傳統的表格方式展現出來，那麼你可以用DBGrid之類的控制項，裡面可以設置數據源，然後自動他就會自動獲取數據源裡面的信息並顯示出來，也可以進行一些簡單的數據修改操作。如果你想要對數據進行比較復雜的程序處理，那麼可以使用ADO對象來連接和查詢資料庫，裡面有一個RecordSet對象，可以對查詢的結果進行遍歷，分析等。
對Access資料庫加密一般都是使用Access軟體實現吧？我不清楚代碼怎麼實現，但是用軟體就只需要在菜單操作就可以了。具體來說就是文件菜單選擇打開，在」打開「後面的下拉式萊單中選為獨占模式打開，這樣打開文件後，使用工具菜單裡面的安全，裡面就有設置資料庫密碼
4. 高手來vb調用加密的WINRAR，如何把加密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[文件] 從文件讀取壓縮文件注釋
5. VB讀取rar加密文件
1、裝個UnrarDLL庫，沒有這個庫什麼都做不了
2、基於這個庫粘貼如下代碼，要求有一個窗體一個文本框一個按鈕，同時要有一個模塊
目前我只實現了讀文本，剩下的部分網路HI我我發給你
窗體代碼
Option
Explicit
Private
Declare
Function
RARGetDllVersion
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
()
As
Long
Private
Declare
Function
RAROpenArchive
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
(ByRef
ArchiveData
As
RAROpenArchiveData)
As
Long
Private
Declare
Function
RARCloseArchive
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
(ByVal
Handle
As
Long)
As
Long
Private
Declare
Sub
RARSetCallback
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
(ByVal
hArcData
As
Long,
ByVal
Callback
As
Long,
ByVal
UserData
As
Long)
Private
Declare
Function
RARProcessFile
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
(ByVal
hArcData
As
Long,
ByVal
Operation
As
Long,
ByVal
DestPath
As
String,
ByVal
DestName
As
String)
As
Long
Private
Declare
Function
RARReadHeader
Lib
"C:\\Program
Files\\UnrarDLL\\unrar.dll"
(ByVal
hArcData
As
Long,
ByRef
HeaderData
As
RARHeaderData)
As
Long
Private
Const
RAR_OM_EXTRACT
=
1
Private
Const
RAR_SKIP
=
0
Private
Const
RAR_TEST
=
1
Private
Const
RAR_EXTRACT
=
2
Private
Type
RAROpenArchiveData
ArcName
As
String
OpenMode
As
Long
OpenResult
As
Long
CmtBuf
As
String
CmtBufSize
As
Long
CmtSize
As
Long
CmtState
As
Long
End
Type
Private
Type
RARHeaderData
ArcName(1
To
260)
As
Byte
FileName(1
To
260)
As
Byte
Flags
As
Long
PackSize
As
Long
UnpSize
As
Long
HostOS
As
Long
FileCRC
As
Long
FileTime
As
Long
UnpVer
As
Long
Method
As
Long
FileAttr
As
Long
CmtBuf
As
String
CmtBufSize
As
Long
CmtSize
As
Long
CmtState
As
Long
End
Type
Private
hrar
As
Long
Private
Sub
Command1_Click()
Dim
x
As
RAROpenArchiveData
Dim
Y
As
RARHeaderData
Dim
l
As
Long
x.ArcName
=
"C:\\Program
Files\\UnrarDLL\\1.rar"
&
vbNullChar'目標文件名
x.OpenMode
=
RAR_OM_EXTRACT
x.CmtBuf
=
String(1024,
vbNullChar)
x.CmtBufSize
=
1024
hrar
=
RAROpenArchive(x)
Y.CmtBuf
=
String(1024,
vbNullChar)
Y.CmtBufSize
=
1024
RARReadHeader
hrar,
Y
RARSetCallback
hrar,
AddressOf
RarCallback,
UCM_NEEDPASSWORD
l
=
RARProcessFile(hrar,
RAR_SKIP,
"C:\\Program
Files\\UnrarDLL"
&
vbNullChar,
"C:\\Program
Files\\UnrarDLL\\whatsnew.txt"
&
vbNullChar)
l
=
RARProcessFile(hrar,
RAR_EXTRACT,
"C:\\Program
Files\\UnrarDLL"
&
vbNullChar,
"C:\\Program
Files\\UnrarDLL\\2.txt"
&
vbNullChar)
l
=
RARCloseArchive(hrar)
End
Sub
模塊代碼
Public
Enum
UNRARCALLBACK_MESSAGES
UCM_CHANGEVOLUME
UCM_PROCESSDATA
UCM_NEEDPASSWORD
End
Enum
Public
Const
PASSWD
=
"111"'
這個是密碼
Public
Declare
Sub
CopyMemory
Lib
"kernel32"
Alias
"RtlMoveMemory"
(Destination
As
Byte,
ByVal
Source
As
Long,
ByVal
Length
As
Long)
Public
Declare
Sub
CopyMemoryPass
Lib
"kernel32"
Alias
"RtlMoveMemory"
(ByVal
Destination
As
Long,
ByVal
Source
As
String,
ByVal
Length
As
Long)
Public
Function
RarCallback(ByVal
msg
As
Long,
ByVal
UserData
As
Long,
ByVal
P1
As
Long,
ByVal
P2
As
Long)
As
Long
Select
Case
msg
Case
UCM_PROCESSDATA
Dim
db()
As
Byte
ReDim
db(0
To
P2)
As
Byte
Dim
s
As
String
CopyMemory
db(0),
P1,
P2
s
=
StrConv(db,
vbUnicode)
Form1.Text1.Text
=
s
RarCallback
=
-1
Case
UCM_NEEDPASSWORD
Dim
t
As
String
t
=
PASSWD
&
vbNullChar
CopyMemoryPass
P1,
t,
Len(t)
End
Select
End
Functio
6. VB可用的，有些什麼可以解壓帶密碼zip文件的控制項
要解帶密碼的壓縮文件，首先需要文件密碼，否則是做無用功。
至於解壓縮VB可使用API函數實現。
7. 用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盤下。
8. vb如何調用Windows自帶的壓縮工具給zip文件加密
你把簡單的問題弄復雜了，去隨便找個zip組件吧，就算是winrar自帶的rar.exe都支持密碼操作的。
如果一定要通過系統自帶的那個功能來實現的話，可以考慮模擬按鍵操作，也就是用findwindow之類找到打開的那個窗口，然後對那個窗口發送按鍵信息來添加密碼。
系統自帶那個zipfldr.dll沒有公開介面，用命令行運行rundll32 zipfldr.dll,RouteTheCall zipfile可以打開那個界面。至於vb或者其它語言中一般都是內置壓縮模塊或者其它壓縮解壓縮控制項來完成的，比如http://www.vbaccelerator.com/home/VB/Code/Libraries/Compression/Zipping_Files/article.asp
9. VB可用的，有些什麼可以解壓帶密碼zip文件的控制項
調用shell、已安裝的winrar解壓文件。shell
"c:\program
files\winrar\winrar.exe
"
&
"命令行參數"命令行語法
從命令行也可以運行
winrar
命令，常規的命令行語法描述如下:winrar
<命令>
-<開關1>
-<開關n>
<壓縮文件
>
<文件...>
<@列表文件...>
<解壓路徑\>命令要
winrar
運行的字元組合代表功能開關切換操作指定類型，壓縮強度，壓縮文件類型，等等的定義。
壓縮文件要處理的壓縮文件名。文件要處理的文件名。列表文件列表文件是包含要處理文件名稱的純文本。文件名應該在第一卷啟動。可以在列表文件中使用
//字元後添加註釋。例如，你可以包含兩列字元串創建
backup.lst:
c:\work\doc\*.txt
//備份文本文檔
c:\work\image\*.bmp
//備份圖片c:\work\misc並接著運行:
winrar
a
backup
@backup.lst你可以在命令行中同時指定普通的文件名和列表文件名。
解壓路徑只與命令
e
和
x
，搭配使用。指出解壓文件添加的位置。如果文件夾不存在時，會自動創建。
注意事項a)
如果未指定
文件
或是
列表文件
時，winrar
將會以預設的
*.*
運行全部的文件;b)
如果未指定壓縮文件擴展名時，winrar
將會使用在
壓縮配置
中選定的默認壓縮文件格式。但你可以指定
.rar
或
.zip
擴展名來替換它們
;c)
在命令行所輸入的開關會替換相同的配置設置值
;d)
在命令
c
、e、s、t、rr、k
和
x
可在壓縮文件名中使用通配符。如此可以用單個的命令來進行超過一個以上的壓縮文件，除此之外，如果你指定
-r
開關於這些命令時，它們將會搜索在子文件夾中的壓縮文件
;e)
某些命令和開關只應用在
rar
壓縮文件，有些則在
rar
和
zip
都可使用，而某些則可應用在全部的壓縮文件格式。這一些都得看壓縮文件格式所提供的特性而定
;f)
命令和開關的大小寫是相同意思的，你可以用大寫或者小寫來下命令均可。
10. 如何用VB編程破解WinRAR壓縮文件的密碼 用窮舉法
1、用Shell調用Winrar，網上有winrar參數說明
2、生成窮舉字典，網上有VB窮舉法函數
3、循環執行解壓命令，直到返回正確信息，或窮舉完成。
4、不用什麼控制項，只要有裝winrar就行