vb.net实现解压操作的简单介绍

求大神指点vb.net 怎么释放资源里面的压缩包 rar呢

1、你先搞懂 winrar.exe 的解压参数格式，然后把winrar.exe和相关文件加入到资源文件中，然后调用资源文件中的winrar.exe

创新互联是一家专业提供巴彦淖尔企业网站建设,专注与网站建设、网站制作、H5响应式网站、小程序制作等业务。10年已为巴彦淖尔众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

2、弄明白rar/zip文件解压/压缩方法和格式，自己写程序 (可能会比较麻烦)

vb.net中是如何操作htm格式的文件的？

IE的收藏夹导入可以导入，IE浏览器，文件——导入和导出，选择导入收藏夹，然后选择遨游的导出的htm文件，即可。

在C:\\Documents and Settings\\Administrator（用户名）\\Favorites 文件夹下，就是以文件夹格式了。

在VB.NET中实现文件的拖放

本文介绍了在VB NET中如何实现接受拖放的文件即从资源管理器中拖放到应用程序中的时候自动获取拖放的文件文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序引言

对于文本格式的文件我们可以直接拖到记事本中就可以看到内容各种类型的图片拖到Photoshop中就可以直接对其编辑我们如何在VB NET开发的程序也实现上述效果呢？

思路

我们知道每一个Windows的应用程序都有一个消息队列程序的主体接受系统的消息然后分发出去（给一个form 或者一个控件）接受者有相应的程序来处理消息在 NET的Form中默认情况下程序是不翻译这些消息的也就是说默认我们的Class是不加入应用程序的消息泵能不能把我们的Form Class加入应用程序的消息泵呢？可以！

在 NET中任何一个实现IMessageFilter 接口的类可以添加到应用程序的消息泵中以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作使用 Application 类中的 AddMessageFilter 方法可以将消息筛选器添加到应用程序的消息泵中

于是我们在程序加载的时候调用Application AddMessageFilter（Me）然而默认情况下一个Form或者控件是不能接受拖放的文件的我们调用一个WIN API DragAcceptFiles源码天空这个API可以设置对应的控件是否能接受拖放的文件然后可以用DragQueryFile查询拖放到的文件列表也就是拖放文件地具体路径和文件名

代码

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H 拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

设置拖放的动作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（）

Dim sFirstFileName As String 记录第一个文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

DragFinish（m WParam ToInt ）拖放完成

显示文件内容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

VB.NET如何生成绿色版的exe可执行文件？

1、简单的程序,只要在"文件"菜单下的"生成",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了。

2、复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.

打包方法-→打开菜单栏“外接程序”→“外接程序管理器”→“打包和展开向导”→“加载/卸载”→确定，在“外接程序管理器”里找到“打包和展开向导”，打开“打包和展开向导”，再一步步进行打包就可以生成一个安装程序。

高手来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 命令 -开关 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 保留损坏的已解压文件

m0..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 仅递归通配符名称的子目录

riP[:S] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间

rr[N] 添加数据恢复记录

rv[N] 创建恢复卷

s[N,v[-],e] 创建固实压缩文件

s- 禁用固实压缩文件

scchr[obj] 指定字符集

sfx[名称] 创建自解压压缩文件

st[名称] 从标准输入设备读取数据(stdin)

sl大小处理小于指定大小的文件

sm大小处理超过指定大小的文件

t 压缩后测试文件

ta日期添加日期日期后修改的文件,日期格式 YYYYMMDDHHMMSS

tb日期添加日期日期前修改的文件,日期格式 YYYYMMDDHHMMSS

tk 保留原始压缩文件时间

tl 设置压缩文件时间为最新文件时间

tn时间添加时间以后的文件

to时间添加时间以前的文件

tsm,c,a[N] 保存或恢复文件时间(修改,创建,访问)

u 更新文件

v 自动检测创建卷的大小或者列出所有的卷

v大小[k,b] 创建卷大小=大小*1000 [*1024, *1]

vd 创建容量前清除磁盘内容

ver[n] 文件版本控制

vn 使用旧风格的卷命名方案

vp 每卷之前暂停

w路径指定工作目录

x文件排除指定的文件

x@ 从标准输入设备读取要排除的文件名

x@列表排除指定列表文件中的文件

y 假设对全部询问都回答是

z[文件] 从文件读取压缩文件注释

分享题目：vb.net实现解压操作的简单介绍
URL标题：http://ybzwz.com/article/hgheid.html

vb.net实现解压操作的简单介绍

求大神指点vb.net 怎么释放资源里面的压缩包 rar呢

vb.net中是如何操作htm格式的文件的？

在VB.NET中实现文件的拖放

VB.NET如何生成绿色版的exe可执行文件？

高手来vb调用加密的WINRAR，如何把加密WINRAR里面文件调出来

其他资讯