vb控件中TextBox里的wordwrap属性是干什么用的

如何破解word密码？2008-02-25 13:25word数字密码破解软件下载：http://yxm02.go.nease.net/xz/zzrj/Wordpass.exe 工作繁忙难免产生意外，比如对重要的Word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。

这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。

下面我们就来看看用穷举法暴力破解Word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。

一、引言 大家都知道，Office家族跟VB有千丝万缕的联系，Microsoft Office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作Word 应用程序中的对象，用穷举测试的办法达到找回丢失密码的目的，非常简单吧！ 二、实现过程 下面来看一看程序的具体编制过程。

程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft Office组件。

打开VB，新建一个VB工程，取名Proc_Word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft Word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是Office2000，那么应该选择“Microsoft Word9.0 Object Library”）。

同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。

好了，现在可以动手编制程序了。

在刚才FrmMain窗体的左侧添加一个框架控件，并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。

在FrmMain窗体的右下侧添加两个命令按钮，在右上侧添加三个标签控件、两个文本框控件和一个微调控件，你可以参考附图来设计。

接着，将框架的Caption属性设置成“请选择需要破译的Word文档”；保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不 暴力破解 将文件列表框的Pattern属性设置成“*.DOC”，目的是只显示目录下的 Word文件；将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合Word文档密码”，将第二个标签Caption属性设置成“解密进度”，将第三个标签Caption属性设置成“请选择破译密码位数”；将第二个文本框的Text属性设置成“4”，这是缺省密码位数；将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联，BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”，表示最长密码位数和最短密码位数，将Wrap属性设置成True，将Increment属性设置成“1”，以便每单击一次加1或减1；将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”,Caption属性分别设置成“文件打开”、“系统退出”。

以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。

下面就是全部的源程序，适当的注释有助于大家理解程序。

你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。

Private Sub cmdopendoc_Click() Dim wd As New Word.Application Dim strpath As String Dim pass As String Dim J, K, Pass_long As Integer Dim Max_num, Min_num, I As Long strpath = File1.Path & ＂\＂ & File1.FileName On Error Resume Next '程序开始 Pass_long = Val(Text2.Text) Max_num = 10 ^ Val(Text2.Text) Min_num = 10 ^ (Val(Text2.Text) - 1) Flag = 0 For K = 0 To Pass_long - 1 Max_num = 10 ^ (Pass_long - K) Min_num = 10 ^ (Pass_long - (K + 1)) For J = 0 To Pass_long - 1 cmdopendoc.MousePointer = 11 For I = IIf(Pass_long - K = 1, 0, Min_num) + J To Max_num Step Pass_long Text1.Text = pass Text1.Refresh pass = String(K, ＂0＂) & I Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass) '如果解密成功，打开文档，显示密码，退出过程 If Flag 0 Then Label1.Caption = ＂文档密码＂ Label1.Refresh Text1.Text = pass wd.Visible = True cmdopendoc.MousePointer = 0 Exit Sub End If Next I Next J Next K MsgBox ＂密码位数不对，请重新输入＂ End Sub Private Sub cmdquit_Click() End End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Call cmdopendoc_Click End Sub 三、几点说明 需要说明的是，穷举法解密对系统资源的耗用是十分惊人的，在解密的过程中最好不要运行其他应用程序。

针对其巨大的资源耗用量，我在程序中采用了一个小技巧，那就是用密码位数作为循环的步长进行刺探。

也就是说如果你的密码是3位的话，那么程序将依次尝试100、103、106……997、 101、104……998、102、105……999结束，加快了查找密码的速度（东渐： 其实大家可以动手算一算，到底是快了许多，还是快了一点，还是根本没有提高速度^_^）。

该程序在Win98/NT+VB6.0环境下测试通过，笔者随便试了一个5位数密码，在PⅡ300、128MB内存的机器上，10分钟左右即可解开。

当然，...

如何用VB.net控制word中文字的行间距

展开全部 表格里面可能包含文本或者图片，读取的话可分情况来定，下面提供的代码你可以参考一下： 读取表格中的文本Imports Spire.DocImports Spire.Doc.DocumentsImports System.IOImports System.TextNamespace ReadTable_Doc Class Program Private Shared Sub Main(ByVal args As String（)） //加载测试文档 Dim doc As Document = New Document() doc.LoadFromFile(＂test.docx＂) //获取表格 Dim section As Section = doc.Sections(0) Dim table As Table = TryCast(section.Tables(0), Table) Dim sb As StringBuilder = New StringBuilder（) //读取文本内容 For Each row As TableRow In table.Rows For Each cell As TableCell In row.Cells For Each paragraph As Paragraph In cell.Paragraphs sb.AppendLine(paragraph.Text) Next Next Next File.WriteAllText(＂text.txt＂, sb.ToString()) End Sub End ClassEnd Namespace2. 读取表格中的图片 Imports SystemImports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsNamespace Extract_Images_From_Tables_in_Word Class Program Private Shared Sub Main(ByVal args As String（)） //加载文档 Dim doc As Document = New Document() doc.LoadFromFile(＂sample.docx＂) //获取section Dim section As Section = doc.Sections(0) //提取图片 ExtractImagesFromTables(section) doc.Close() End Sub //自定义方法提取图片 Private Shared Sub ExtractImagesFromTables(ByVal section As Section) Dim index As Integer = 0 Dim imageName As String = Nothing For Each table As Table In section.Tables For i As Integer = 0 To table.Rows.Count - 1 For j As Integer = 0 To table.Rows(i).Cells.Count - 1 For Each para As Paragraph In table(i, j).Paragraphs For Each obj As DocumentObject In para.ChildObjects If TypeOf obj Is DocPicture Then imageName = String.Format(＂images\TableImage-{0}.png＂, index) (TryCast(obj, DocPicture)).Image.Save(imageName, System.Drawing.Imaging.ImageFormat.Png) index += 1 End If Next Next Next Next Next End Sub End ClassEnd Namespace注，这里的代码是引用了Sprie.Doc.dll，另外对于读取表格延伸，你也可以参考下这篇C# 读取Word文本框中的表格，vb的话就需要稍作修改转换，不难

急！15分30分！急！vb 中调用部件：Microsoft Internet controls 出问题...

这个是由于ie7.0的bug引起的。

把以下内容做成一个注册表文件fixieframe.reg，导入注册表即可：Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}][HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1]@=＂Microsoft Internet Controls＂[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0][HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0\win32]@=＂C:\\WINDOWS\\system32\\ieframe.dll＂

vb里的sstab控件怎么用？

多功能密码破解软件 V4.5http://www.skycn.com/soft/16016.html目前本版本可以破解Access97/2000/xp密码，Word/Excel97/2000/xp、SQLSERVER（本地和远程）、windows98登陆密码、ZIP/RAR文件密码，星号密码察看，可以察看任何显示为*的密码内容（网页除外）。

请勿用于非法用途，对用户使用本软件所产生的后果，作者不负任何法律责任，请谨慎使用本软件。

vb.net2015,Win7 64位系统,com组件中找不到 Microsoft Excel 16.0 ...

卸了重新安装看看。

如果还是不行的话。

建议用绿色版的试试看。

看到底是软件问题。

还是系统的问题。

慢慢来排除1、将压缩包内文件夹o16_x86和o16_x64都解压出来；PS：两个文件夹都为必要文件，若是缺少一个文件夹会导致无法安装。

2、打开其中的o16_x86文件夹点击setup.cmd;3、自动弹出cmd弹窗后，进入下载安装；PS：请耐心等待，不要关闭计算机，直至安装完成。

4、安装完成后打开“开始”菜单中找到Microsoft Office 2016 Previe;5、选中需要的软件打开即可使用，无需其他操作。

Office 2016:http://www.3322.cc/soft/201508211622.html

转载请注明出处51数据库 » vb wordwrap在vb.net中怎