基拉freedom写的一些批处理

::madeby基拉freedom 批处理之家 20090812
@echo off&setlocal ENABLEDELAYEDEXPANSION
title 利用WS2_32.dll来阻止文件运行 批处理之家
echo.
echo 利用ws2_32.dll阻止程序运行
echo.
echo 程序并不完美 只是厌倦了IFEO而做的
echo.
echo 对于绿色程序 或不调用此dll的无效
echo.
:new
echo 1.禁用程序
echo 2.查看禁用列表
echo 3.删除禁用程序
set cho=
set /p cho=输入1~3：
if %cho% equ 1 goto mdd
if %cho% equ 2 goto viewd
if %cho% equ 3 goto deld
echo 你没有乖乖输入哦
goto new
:qs
echo 都有了还耍我啊~换个地址
:mdd
set place=
:check
set /p place=输入文件所在的目录地址（如D:\exe):
if exist c:\bad find "%place%" c:\bad.txt>nul &&goto qs
if not exist "%place%" goto check
md "%place%"\ws2_32.dll\fr..\
echo %place%>>c:\bad.txt
echo 建立完了~~~~~~
pause>nul
cls
goto new
:bads
echo 没有这个程序哎 看看表吧
pause>nul
:viewd
if not exist "c:\bad.txt" goto wro
type c:\bad.txt
pause>nul
cls
goto new
:wro
echo 你没有运行过这个程序或者文档已丢失 不好意思啊~~
pause>nul
cls
goto new
:deld
set kill=
set /p kill=输入要删除的程序的路径：
find "%kill%" c:\bad.txt>nul ||goto bads
rd "%kill%\ws2_32.dll" /s /q
echo. >tem.txt
@for /f "tokens=* delims=" %%i in (''findstr /i /v /c:%kill% c:\bad.txt'') do (
set var=%%i
echo !var!>>tem.txt
)
copy tem.txt c:\bad.txt >nul
echo 完成啦
pause>nul
cls
goto new