@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
复制代码