怎样破坏游戏文件
发布时间: 2023-08-27 07:54:09
Ⅰ 怎样损坏一个文件
如果懂编程,用Word或者Excel的宏代码来故意损坏一个文件!将如下VBA代码复制到宏代码编辑器中,按F5执行即可。
SubCorruptFiles()
ConstShAsString="rundll32url.dll,FileProtocolHandler""#"""
DimsFileAsString,StartPosAsLong
DimBuff()AsByte
OpenAgain:
sFile=InputBox("请指定待破坏的文件(请勿非法他用):","消息","c:Test待破坏的测试文件.doc")
IfDir(sFile)=""Then
Rc=MsgBox("你指定的文件不存在,请重新指定!",vbCritical+VbRetrCancel,"消息")
IfRc=vbRetryThenGoToOpenAgain
ExitSub
EndIf
#11
Flen=LOF(11)
StartPos=Int(Flen*0.1)'将文件头的10%内容删除掉,只保留文件内容的后面90%的内容,文件头不存在被破坏了,文件也就被破坏了
ReDimBuff(1ToFlen-StartPos)
Seek#11,StartPos+1
Get#11,,Buff
Close#11
Pos=InstrRev(sFile,".")
sFile=Left(sFile,Pos-1)+"_被破坏的文件"+mid(sFile,Pos)
#11'制作被人为破坏的文件
OnErrorResumeNext
Put#11,,Buff
Close#11
Rc=MsgBox("损坏文件已制作完毕!要测试打开被破坏的文件吗?",vbInformation+vbYesNo,"消息")
IfRc=vbYesThenShellReplace(Sh,"#",sFile)
EndSub
Ⅱ 怎样破坏一个文件让其打不开或者打开出错
一楼的不行吧?我觉得可以用txt打开,然后把其中某个位置的字符改掉,具体的,太麻烦了。你自己查吧。
然后别人开不了,你用的时候可以把相对位置上的改回来。
Ⅲ 怎样破坏一个文件夹,让它打不开
隐藏了,自己要看的时候按如下操作:双击我的电脑——
工具(窗口右上方
)——文件夹选项——查看——显示所有的文件夹和文件——确定,然后你就可以看到了
热点内容