![Board logo](images/default/logo.gif)
标题: [系统增强] 批处理禁止文件执行-ws2_32.dll [打印本页]
作者: 基拉freedom 时间: 2009-8-15 14:30 标题: 批处理禁止文件执行-ws2_32.dll
以前有看过IFEO的~~
然后就自己做了个ws2_32.dll的
用IFEO的缺点就是程序改名就挂了 用WS2_32.dll的缺点就是文件一移动或文件不需调用ws2_32.dll就挂了
以下:- ::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
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |