正常的WORD文件，怎样可以把他损坏，

分类: 电脑/网络 >>软件

问题描述:

在我自己电脑里面，怎样 *** 作才能把正常使用的WORD文件损坏，使他打不开，或者乱码

解析:

教你一招很损的.

如果这个文件你自己还需要,可以把他移到别的地方,并且重命名.如果不需要了,直接删除就可以了.

然后双击“我的电脑”，选择“工具”菜单下的“文件夹选项”，选择“查看”，在“高级设置”中把“隐藏已知文件类型的扩展名”复选框中的勾去掉，然后确定。

然后随便在电脑上找一个文件,其大小和那个文件差不多大,但其格式要是world打不开的格式,如图片文件.然后将这个文件拷到原来那个文件的目录下,选中后按右键，选择“重命名”，输入原来那个文件的名称，如你那个不想让别人看到的world文档名称叫“日记”，则将这个文件重命名为“日记.doc”.

重新将前一步的“隐藏已知文件类型的扩展名”前面去掉的勾加回去。

这样的话，你就制作了一个假的文档，当他想看这个文档时，电脑会提示无法打开，其现象就和该文档已损坏一样！

破坏文件的方法比较多，我教你一个最简单的方法：首先你可以把文件的后缀名改掉（比如.txt

你改成.exe或者.doc

.xls等等，挑你自己认识后缀名），然后再打开控制面板-文件夹选项-查看-隐藏已知文件的扩展名，如果已经是隐藏的后缀名是看不到也改不了的，这样你的先把“隐藏已知文件的扩展名”这一样不选

，然后改后缀再点隐藏就可以了

如果懂编程，用Word或者Excel的宏代码来故意损坏一个文件！将如下VBA代码复制到宏代码编辑器中，按F5执行即可。

 Sub CorruptFiles( )

Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""

   Dim sFile As String, StartPos As Long

   Dim Buff() As Byte

OpenAgain:

   sFile = InputBox("请指定待破坏的文件(请勿非法他用)：", "消息", "c:\Test\待破坏的测试文件.doc")

   If Dir(sFile) = "" Then

    Rc = MsgBox("你指定的文件不存在，请重新指定！", vbCritical + VbRetrCancel, "消息")

    If Rc = vbRetry Then GoTo OpenAgain

    Exit Sub

   End If

    Open sFile For Binary Access Read As #11

      Flen = LOF(11)

      StartPos = Int(Flen * 0.1) '将文件头的10%内容删除掉，只保留文件内容的后面90%的内容，文件头不存在被破坏了，文件也就被破坏了

      ReDim Buff(1 To Flen - StartPos)

      Seek #11, StartPos + 1

      Get #11, , Buff

    Close #11

    Pos=InstrRev(sFile,".")

    sFile=Left(sFile,Pos-1)+"_被破坏的文件" +mid(sFile,Pos)

   Open sFile For Binary Access Write As #11  '制作被人为破坏的文件

     On Error Resume Next

     Put #11, , Buff

    Close #11

  Rc = MsgBox("损坏文件已制作完毕！要测试打开被破坏的文件吗？", vbInformation + vbYesNo, "消息")

  If Rc = vbYes Then Shell Replace(Sh, "#", sFile)

End Sub

---