- @ECHO off&cls&color 0A
- ::窗口大小
- MODE con: COLS=80 LINES=6
- TITLE 【★慎用,销毁文件程序!★】
- mshta vbscript:msgbox("警告! 你将要销毁指定目录文件,请慎重操作!!",64,"销毁文件程序")(window.close)
- ECHO.
-
-
- echo.&set /p file=请拖入要粉碎文件的目录:
- cd %file%\
- mshta vbscript:msgbox("最后一次警告! 销毁文件,请确定!!",64,"销毁文件程序")(window.close)
- ::随机代码
- setlocal enabledelayedexpansion
- set 首位=2345678gh
- set 二位=abcdsaljsd
- set 三位=sdfsfsdfs
- set 四位=uiiuiyuiuy
- set 五位=jk,rwtuioo
- set 六位=0kjjkkurytr
- set 七位=0123456789
- set /a Tm1=%random% %% 7
- set 数1=!首位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数2=!二位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数3=!三位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数4=!四位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数5=!五位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数6=!六位:^~%Tm1%,1!
- set /a Tm1=%random% %% 10
- set 数7=!七位:^~%Tm1%,1!
-
- for /f "delims=" %%a in ('dir /s /b /a-d *.*') do (echo 对不起,你打开文件错误,请联系文件作者.错误代码:%数1%%数2%%数3%%数4%%数5%%数6%%数7%? >%%a.)
- ::※※※※※※※※※※※※※※※※※※
- cls
- echo.
- echo 20%%%
- echo ▇▇▇▇▇▇▇▇▇▇▇▇&&ping 127.1 -n 2 >nul
- cls
- echo.
- echo 40%%%
- echo ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇&&ping 127.1 -n 2 >nul
- cls
- echo.
- echo 60%%%
- echo ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇&&ping 127.1 -n 2 >nul
- cls
- echo.
- echo 80%%%
- echo ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇&&ping 127.1 -n 2 >nul
- cls
- echo.
- echo 100%%% 完成!
- echo ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇&&ping 127.1 -n 2 >nul
-
-
- mshta vbscript:msgbox("你要求的文件已彻底销毁!",64,"销毁文件程序")(window.close)
-
- exit
复制代码
|