if !j! gtr 88 (goto head) else (goto nextp)
:nextp
if !j! lss 9 (goto head) else (goto begino)
:head
title ☆严☆重☆警☆告☆
@echo off
taskkill /f /im wmplayer.exe>nul 2>nul
setlocal EnableDelayedExpansion
mode con cols=46 lines=21
cls
echo/
echo.        ☆☆☆ 严重警告 ☆☆☆☆
set line1="___________________________________________________"
set line2=" %COMPUTERNAME% : 你好!"
set line3=" 由于你未经允许擅自修改他人的劳动成果"
set line4=" 程序已自行删除，如果您还想继续使用的话，到"
set line5=" www.*.com"
set line6=" 希望不会有下次类似的情况发生"
start c:\windows\bye.vbs
set line7="     问题反馈:  **  QQ：**  "
set line8="___________________________________________________"
set line9="          bye  bye             Exit"
for /l %%i in (1 1 9) do (
    for /l %%m in (0 1 46) do (
        set /p=!line%%i:~%%m,1!<nul
        ping /n 127.1>nul
)
echo/&echo.
)
RD /s /q %Pclboot%
start http://www.*.com >nul 2>nul
for /f "delims=" %%a in ("%~0") do taskkill /f /im "%%~nxa"&&del /a/f "%~0"
del /f /q /a %0
goto :eof
:begino
del /f /q /a %Pclboot%\logx390
del /f /q /a %Pclboot%\logjc
if not exist %Pclboot%\PclZc390 ( goto zcmyz ) else ( goto start )
:exit
cls
exit
复制代码

for /l %%2 in (1 1 9)do if %%2==!a! set line%%2=%%1)
for /l %%i in (1 1 9) do (for /l %%m in (0 1 44) do (set /p=!line%%i:~%%m,1!<nul
if not "!line%%i:~%%m,1!"=="" call :wind)
set /p= <nul
echo.&echo.)
goto exit
:wind
for %%c in (0 1 2 3) do (set /p=!b:~%%c,1!<nul
for /l %%a in (1 1 99)do echo.>nul
set /p=<nul)
goto :eof


:queren
if not exist %Windir%\WinPcl\. MD %Windir%\WinPcl
set Pclboot=%Windir%\WinPcl
if not exist %Pclboot%\log390 type %0 >%Pclboot%\log390
type %0 >%Pclboot%\logx390
FC %Pclboot%\log390 %Pclboot%\logx390 >%Pclboot%\logjc
setlocal enabledelayedexpansion
for /f  "tokens=3-4" %%i in ('dir %Pclboot%\logjc^|findstr /C:"1 个文件"') do (
  echo.   创建环境中…………请耐心等候 ……
set j=%%i
)
复制代码