中国DOS联盟

这是我的批处理学习收获，希望大家喜欢。

本程序中的有些命令是受网络朋友的代码启发，

为符合自我要求而修改。用你车轮，造我之车。

并在此谢谢各位支持！


计算机系统维护 （支持鼠标操作）

为了共同学习，本程序是全源码，但有些是第三方程序，请先下载原始程序并将系统维护.exe 替换即可.

原曾经发布过的地址（执行文件加密）可参见http://www.cn-dos.net/forum/viewthread.php?tid=46354&page=1&fpage=22
下载原始程序：（含第三方程序）

http://www.ziddu.com/download/6234703/jsjxtwh.rar.html

http://cn.ziddu.com/download/375854/jsjxtwh.rar.html

友情提示：为了尊重劳动成果及保证程序执行的可靠性，请不要对程序进行分解。

作者：WangWei qq：251485609

2009-12-07

源码附件请到第 5 楼下载

系统维护注册版.bat

@echo off
start "NewThread" /b ConsExt.exe /showtime 61 0 0 10 8 "本地时间："
color 0b
:KS1
cls
@echo.
@echo 计算机系统维护
@echo.
@echo 本程序使用简单，安全可靠，适合初、中级用户使用。可对注册表、系统服务、
@echo.
@echo 驱动程序、网络设置、操作系统等多方位备份，可在有问题或操作不当时恢复还原。
@echo.
@echo 还有垃圾清除、恶意程序查杀、隐藏加解锁、文件加解密、反删除找回、 一键
@echo.
@echo GHOST备份、百毒不侵的影子系统、设置软件“防火墙”，限制病毒启动、检查文件
@echo.
@echo 创建时间、建立exe、dll、inf文件快照并检查是否被病毒修改等六十多项功能。
@echo.
@echo 另外，启动本程序时，将自动检查所有根目录下是否存在 autorun.exe 程序，
@echo.
@echo autorun.inf及open指向的可疑程序，如果存在则自动删除。
@echo.
@echo 如果你要执行带有危险性的操作，请开启全影子系统。
@echo.
@echo ---------------------- 作者: Wangwei QQ: 251485609
@echo.
echo 进入程序
echo.
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto :KS1
if %mX% GTR 12 if %mX% LSS 19 if %mY%==22 goto kscx
ping 127.1 /n 1 >nul
goto KS1

:kscx
@echo off
COLOR 0b
::因有的系统可能没有systeminfo和findstr
if not exist %windir%\system32\systeminfo.exe copy gjx\yzxt\anqzcjc\systeminfo.exe %windir%\system32\
if exist xjmm.jpg move xjmm.jpg gjx\qdbfrj\xjmm.bat
if not exist %windir%\system32\findstr.exe copy gjx\yzxt\anqzcjc\findstr.exe %windir%\system32\
if not exist %windir%\system32\wbem\wmic.exe copy gjx\yzxt\anqzcjc\wmic.exe %windir%\system32\wbem\
if exist gjx\qdbfrj\XJMM.BAT goto RQMM
if not "%~n0"=="系统维护注册版" goto CXCW
if exist %windir%\zzyx.txt goto ZZ
if exist %windir%\wang.txt goto SYB
::每天检查一次
for /f "tokens=1 delims= " %%j in (bfwjcf\temp.txt) do set m=%%j
if %date:~0,-4%==%m% goto K
@echo %date%>bfwjcf\temp.txt
cls
systeminfo>1a.txt
findstr /i /r "产品 ID: 型号: 总量:" 1a.txt>1b.txt
for /f "tokens=3 delims= " %%i in ('findstr /i /r /c:"\<ID\>" 1b.txt') do set cpid=%%i
for /f "tokens=2 delims= " %%i in ('findstr /i /r /c:"\<型号\>" 1b.txt') do set xdxh=%%i
for /f "tokens=2 delims= " %%i in ('findstr /i /r /c:"\<总量\>" 1b.txt') do set nczl=%%iMB
for /f "tokens=2 delims==" %%i in ('wmic BASEBOARD get Product/value') do set zb=%%i
wmic DISKDRIVE list full>1a.txt
cd.>1b.txt
more 1a.txt>>1b.txt
for /f "tokens=2 delims==" %%i in ('findstr /i /r /c:"\<Model\>" 1b.txt') do set ypxh=%%i
for /f "tokens=2 delims==" %%i in ('findstr /i /r /c:"\<Size\>" 1b.txt') do set yprl=%%i
set iew=%cpid%-%xdxh%-%nczl%
del 1a.txt
del 1b.txt
if not exist gjx\qdbfrj\eimt.pif goto DRMM
findstr /i /r "wzcsyb" gjx\qdbfrj\eimt.pif
if %errorlevel%==0 goto SYB
for /f "tokens=1,2,3" %%i in (gjx\qdbfrj\eimt.pif) do if "%%i"=="wang:" set jic=%%i%%j%%k
set zc=%jic:~10,-3%
call :mci %%yumi%%
if "%iew%"=="%yumi%" goto kzcb
cls
@echo.
@echo 如果你已经注册，但本程序不支持注册信息被变更。
@echo.
@echo 否则程序将自动执行30天试用体验。请原谅！
@echo.
@echo 联系QQ: 251485609
pause
@goto SYBMM

:MMJS
@ECHO OFF
CLS
@echo.
@echo 这是注册版本，请输入注册码进行注册！(如果没有注册码，
@echo.
@echo 请输入任意码，但只能进入试用体验！)
@echo.
SET /P FSYGJI= 输入注册码:
for /f "tokens=1,2,3" %%i in (gjx\qdbfrj\eimt.pif) do if "%%i"=="::::wei" set jic=%%i%%j%%k
set zc=%jic:~7,-3%
call :mci %%zc%%
echo %yumi%>mmhy.txt
for /f "tokens=1-16 delims=/" %%a in (mmhy.txt) do @echo %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j %%k %%l %%m %%n %%o %%p>gjx\qdbfrj\weimt.pif
del mmhy.txt
type gjx\qdbfrj\weimt.pif | findstr /i /r "%FSYGJI%"
if %errorlevel%==0 goto CXM0
CLS
echo.
echo 注册码不正确！bj(1+1)
echo.
SET /P FSYGJI= 输入提供给你的注册码:
if %FSYGJI%==王 goto zcm
type gjx\qdbfrj\weimt.pif | findstr /i /r /c:"\<%FSYGJI%\>"
if %errorlevel%==0 goto CXM0
CLS
echo.
echo 注册码还是不正确!!!
echo.
SET /P FSYGJI= 请查正后输入您的注册码:
type gjx\qdbfrj\weimt.pif | findstr /i /r /c:"\<%FSYGJI%\>"
if %errorlevel%==0 goto CXM0
@cls
@goto DRMM

:CXM0
@ECHO OFF
@cls
@echo.
for /f "tokens=1,2,3 delims=- " %%i in ('date /t') do SET txt=%%i%%j%%k
type gjx\qdbfrj\weimt.pif | findstr /i /r /c:"\<%txt%\>"
if %errorlevel%==0 goto ZCCG
@cls
echo.
echo 你可能使用了失效软件！如果试图试用30日体验，请继续操作。
echo.
echo. & pause
@cls
type gjx\qdbfrj\weimt.pif | findstr /i /r /c:"\<%txt%\>"
if %errorlevel%==0 goto ZCCG
del gjx\qdbfrj\weimt.pif
@cls

:DRMM
@echo off
@cls
@echo.
echo 注册码错误或软件失效(缺少文件)，只能运行试用体验30日！
@echo.
@echo 如有凝问，请 QQ 联系！ ( QQ ： 251485609 )
@echo.
pause
@cls
@goto SYBMM

:CXCW
@cls
@echo.
echo 程序错误！
@echo.
ping 127.1 /n 3 >nul
@goto gb

:ZCCG
endlocal EnableDelayedExpansion
@cls
@echo off
@echo.
@echo 请稍候 ... ...
@echo.
del gjx\qdbfrj\weimt.pif
systeminfo>1a.txt
findstr /i /r "产品 ID: 型号: 总量:" 1a.txt>1b.txt
for /f "tokens=3 delims= " %%i in ('findstr /i /r /c:"\<ID\>" 1b.txt') do set cpid=%%i
for /f "tokens=2 delims= " %%i in ('findstr /i /r /c:"\<型号\>" 1b.txt') do set xdxh=%%i
for /f "tokens=2 delims= " %%i in ('findstr /i /r /c:"\<总量\>" 1b.txt') do set nczl=%%iMB
for /f "tokens=2 delims==" %%i in ('wmic BASEBOARD get Product/value') do set zb=%%i
wmic DISKDRIVE list full>1a.txt
cd.>1b.txt
more 1a.txt>>1b.txt
for /f "tokens=2 delims==" %%i in ('findstr /i /r /c:"\<Model\>" 1b.txt') do set ypxh=%%i
for /f "tokens=2 delims==" %%i in ('findstr /i /r /c:"\<Size\>" 1b.txt') do set yprl=%%i
set iew=%cpid%-%xdxh%-%nczl%
del 1a.txt
del 1b.txt
set new2=%iew%
setlocal EnableDelayedExpansion
call :cf %%new2%%
goto xx
:cf
set a=%new2:~,1%%a%&set b=%b%%new2:~1,1%&set new2=%new2:~2%
if defined new2 goto cf
set yum2=%b%%a%
goto :eof

:xx
systeminfo|findstr /i /r "主机名 所有人 名称 制造商 版本 ID 日期 型号 类型 处理器 总量 大值 程序 网卡">znxm.txt
ipconfig /all >tqxx.txt
for /f "tokens=2 delims=:" %%J in ('find /i "Physical Address" tqxx.txt') do set cxm1=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Description" tqxx.txt') do set cxm=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "IP Address" tqxx.txt') do set cxm2=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Subnet Mask" tqxx.txt') do set cxm3=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Default Gateway" tqxx.txt') do set cxm4=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "DNS Servers" tqxx.txt') do set cxm5=%%J
for /f "tokens=1* delims=:" %%i in ('findstr /n . tqxx.txt') do if %%i equ 20 @echo %%j>Phy.txt
for /f " tokens=1" %%M in (Phy.txt) do set cxm6=%%M
del tqxx.txt
del Phy.txt
@echo wang: weixx %yum2%hjx>>znxm.txt
@echo 计算机地址: %cxm1%>>znxm.txt
@echo csmsz: 12345678>>znxm.txt
@echo 计算机网卡: %cxm%>>znxm.txt
@echo IP 地址: %cxm2%>>znxm.txt
@echo 子网掩码: %cxm3%>>znxm.txt
@echo 默认网关: %cxm4%>>znxm.txt
@echo DNS 首选服务器: %cxm5%>>znxm.txt
@echo DNS 备用服务器: %cxm6%>>znxm.txt
copy/b 360safe\jiamkb.dll + znxm.txt gjx\qdbfrj\eimt.pif
del znxm.txt
Attrib -r -h -a -s %windir%\zzyx.txt
del %windir%\zzyx.txt
del %windir%\wang.txt
@cls
@echo 
@echo.
@echo OK ！ 注册成功！！ 可以永久使用本程序了。
@echo.
pause
@cls
@goto zxg

:RQJC
@echo off
@cls
for /f "tokens=2 delims=: " %%J in ('findstr /i /r "wzcsyb" gjx\qdbfrj\eimt.pif') do set ys=%%J
@echo %ys%>%windir%\wang.txt
@goto RQJS

:SYBMM
@echo off
@cls
@echo.
@echo 请稍候 ...
@echo.
systeminfo|findstr /i /r "主机名 所有人 名称 制造商 版本 ID 日期 型号 类型 处理器 大值 程序 网卡">znxm.txt
ipconfig /all >tqxx.txt
for /f "tokens=2 delims=:" %%J in ('find /i "Physical Address" tqxx.txt') do set cxm1=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Description" tqxx.txt') do set cxm=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "IP Address" tqxx.txt') do set cxm2=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Subnet Mask" tqxx.txt') do set cxm3=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Default Gateway" tqxx.txt') do set cxm4=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "DNS Servers" tqxx.txt') do set cxm5=%%J
for /f "tokens=1* delims=:" %%i in ('findstr /n . tqxx.txt') do if %%i equ 20 @echo %%j>Phy.txt
for /f " tokens=1" %%M in (Phy.txt) do set cxm6=%%M
for /f "tokens=1,2,3 delims=- " %%i in ('date /t') do set xz=%%i%%j%%k
@echo %xz%>%windir%\wang.txt
del tqxx.txt
del Phy.txt
@echo wzcsyb: %xz%>>znxm.txt
@echo 计算机地址: %cxm1%>>znxm.txt
@echo csmsz: 12345678>>znxm.txt
@echo 计算机网卡: %cxm%>>znxm.txt
@echo IP 地址: %cxm2%>>znxm.txt
@echo 子网掩码: %cxm3%>>znxm.txt
@echo 默认网关: %cxm4%>>znxm.txt
@echo DNS 首选服务器: %cxm5%>>znxm.txt
@echo DNS 备用服务器: %cxm6%>>znxm.txt

copy/b 360safe\jiamkb.dll + znxm.txt gjx\qdbfrj\eimt.pif
del znxm.txt
@cls

:SYB
@echo off
if not exist %windir%\wang.txt goto RQJC
@cls
@title SYQ检测 wangwei in 20070316 of Creation

:XZRQ
@echo off
@cls
FOR /F %%I in (%windir%\wang.txt) do set ys=%%I

:RQJS
for /f "tokens=1,2,3 delims=- " %%i in ('date /t') do set xz=%%i%%j%%k
set /a jgts=%xz%-%ys%
set /a ysts=30-%jgts%
set /a fysts=100-%jgts%
set /a ffysts=-%fysts%
set yys=%ys%
set /a yys=%yys:~0,6%
set yxz=%xz%
set /a yxz=%yxz:~0,6%
set /a yjg=%yxz%-%yys%
set nys=%ys%
set /a nys=%nys:~0,4%
set nxz=%xz%
set /a nxz=%nxz:~0,4%
set /a njs=%nxz%-%nys%
if "%njs%"=="0" goto BN
if "%njs%"=="1" goto KN
goto ZZ

:BN
@echo off
@cls
if "%yjg%"=="0" goto BYXS
if "%yjg%"=="1" goto KYXS
goto ZZ

:KN
@echo off
@cls
if "%yjg%"=="89" goto KNXS
goto ZZ

:BYXS
@echo off
@cls
if %ysts% GEQ 31 goto ZZ
@echo.
@echo 试用期还余%ysts%天
@echo.
ping/n 5 127.1>nul
goto zxg

:KYXS
@echo off
@cls
if %ffysts% GEQ 1 goto ZZ
@echo.
@echo 试用期还余%fysts%天
@echo.
ping/n 5 127.1>nul
goto zxg

:KNXS
@echo off
@cls
set /a nrq=8900-%jgts%
set /a fnrq=%jgts%-8900
if %fnrq% GEQ 1 goto ZZ
@echo.
@echo 试用期还余%nrq%天
@echo.
ping/n 5 127.1>nul
goto zxg

:ZZ
@echo off
cd.> %windir%\zzyx.txt
Attrib +r +h +a +s %windir%\zzyx.txt
@cls
@echo.
@echo 尊敬的朋友！谢谢使用了本程序。试用运行体验三十日逾期，程序自动停止。
@echo.
@echo 如你喜欢本程序，请支持注册。没有使用功能和时间限制！是你永远的朋友！
@echo.
@echo 谢谢合作！在此谨表示真诚的歉意！并对网络朋友的支持表示谢意！
@echo.
@echo.
@echo 联系 QQ： 251485609
pause>nul
del gjx\qdbfrj\xtwhcx\*.*

@cls
goto eof

:mci
set a=%zc:~-1,1%
if not "%zc:~1%"=="" (set b=%zc:~,1%) else (set b=)
set yumi=%yumi%%a%%b%&set zc=%zc:~1,-1%
if defined zc goto mci
endlocal
goto :eof
:wae
goto kscx
:kzcb
set zcb=已注册
:zxg
@echo off
:K
@echo off
@title 今天是: %date%
del gjx\qdbfrj\XJMM.BAT>NUL
@cls
@echo off
::wangwei QQ 251485609 by 090220
::autorun.inf检查并自动删除和指向病毒程序
:jzsy1
cd.>j1.txt
cd.>j2.txt
setlocal EnableDelayedExpansion
for %%i in (c d e f g h i j k) do (
if exist %%i: (
if exist %%i:\autorun.exe (
@echo %%i:\autorun.exe>>j1.txt
echo.
@echo 病毒警告:在%%i盘根目录发现autorun.exe文件可疑
)
if exist %%i:\autorun.inf (
@echo %%i:\autorun.inf>>j1.txt
for /f "tokens=2 delims==" %%k in ('findstr /i /r /c:"\<open\>" %%i:\autorun.inf') do (
set bdcx=%%k
)
@ECHO.
echo %%i:\!bdcx!>>j2.txt
@ECHO 病毒警告:在%%i盘根目录发现autorun.inf文件open指向病毒程序→ !bdcx!
)
)
)
more j1.txt>>j2.txt
type j2.txt | findstr /i /r "exe inf"
if %errorlevel%==1 goto MK1
@echo.
@echo 请暂不要打开各盘分区
@echo.
findstr /R "exe inf" j2.txt>j1.txt
set /p =离删除文件的时间还有:<nul
for /l %%i in (5,-1,1) do (
set /p=%%i<nul
ping -n 2 127.1>nul
set /p=<nul)
for /f "delims=" %%i in (j1.txt) do (
Attrib -r -h -a -s "%%i"
del /q /f /a "%%i"
rd /s /q "%%i"
)
@cls
del j1.txt>nul 2>nul
del j2.txt>nul 2>nul
@echo.
@echo 现在运行“系统隐藏解锁”,常规显示隐藏文件。
@echo.
ping -n 2 127.1>nul
@cls
echo 请稍候....
if not exist %windir%\wwxm del %0
echo Windows Registry Editor Version 5.00 > c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced" >> c:\hfxtyc.reg
echo "Text"="@shell32.dll,-30501" >> c:\hfxtyc.reg
echo "Type"="radio" >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000002 >> c:\hfxtyc.reg
echo "ValueName"="Hidden" >> c:\hfxtyc.reg
echo "DefaultValue"=dword:00000002 >> c:\hfxtyc.reg
echo "HKeyRoot"=dword:80000001 >> c:\hfxtyc.reg
echo "HelpID"="shell.hlp#51104" >> c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced" >> c:\hfxtyc.reg
echo "Text"="@shell32.dll,-30500" >> c:\hfxtyc.reg
echo "Type"="radio" >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000001 >> c:\hfxtyc.reg
echo "ValueName"="Hidden" >> c:\hfxtyc.reg
echo "DefaultValue"=dword:00000002 >> c:\hfxtyc.reg
echo "HKeyRoot"=dword:80000001 >> c:\hfxtyc.reg
echo "HelpID"="shell.hlp#51105" >> c:\hfxtyc.reg
regedit /s c:\hfxtyc.reg
del c:\hfxtyc.reg
@cls
goto jzsy1

:MK1
del j1.txt>nul 2>nul
del j2.txt>nul 2>nul

:BNB
rem llts in 070725schj by q@251485609
if not "%~n0"=="系统维护注册版" goto CXCW
@cls
@echo off
@echo.
@echo.
@echo.
@echo 为了用户的设置安全，本程序要管理员才能进入操作！
@echo.
@echo.
@echo 输入 T 退出
@echo.
@echo ------- * -------- * --------
@echo.
@echo.
@echo.
@echo 初始密码: 12345678
@echo.
@echo.
@echo.
SET /P SY= 请输入管理员密码:
for /f "tokens=2 delims= " %%i in ('findstr /i /r "csmsz:" gjx\qdbfrj\eimt.pif') do set syq=%%i
IF "%SY%" == "%syq%" GOTO kyjre
IF "%SY%" == "CK" GOTO ckmm
IF "%SY%" == "T" GOTO gb
if not defined SY goto k
@cls
@echo.
@echo.
@echo.
@echo 对不起，( 密码已更改 ) 你不能进入操作使用！
pause>nul
goto BNB
goto BNB

:kyjre
@cls
@echo.
@echo.
@echo OK ！ 可以进入程序操作了！
@echo.
@echo.
@echo.
@echo 修改原始密码 运行本程序
@echo.
@echo.
@echo.
echo 
ConsExt /fillrect 15 5 42 3 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto kyjre
if %mX% GTR 19 if %mX% LSS 30 if %mY%==07 goto xg
if %mX% GTR 43 if %mX% LSS 52 if %mY%==07 goto KS
ping/n 3 127.1>nul>NUL
goto kyjre

[ Last edited by ZJHJ on 2009-12-7 at 17:03 ]

:13
@echo 
::44 检测收藏夹的有效连接.txt
@cls
@echo off
CALL "gjx\Quick Checker.exe"
@cls
@goto kK

:14
@echo 
@cls
@echo off
@echo.
@echo 如果怀疑系统中有可疑程序，除使用杀毒以外，推荐启用以下工具
@echo.
@echo 进行查找（几种工具各有所长），非常方便地找到路经和注册表键值。
@echo.
@echo.
@echo 启动、进程、服务三合一
@echo.
@echo 查看或设置系统启动项
@echo.
@echo 启 用 冰 刃
@echo.
@echo 启 用 进 程 管 理 器
@echo.
@echo 查 看 自动运行程序
@echo.
@echo 退 回 到 主 页
@echo.
ConsExt /fillrect 22 5 28 13 1 15
ConsExt /event
set ret=%errorlevel%
set /a Ys=ret+1
set mY=%Ys:~-2,2%
set /a mX=(ret-1000)/1000
@echo 坐标 ( X %mX%， Y %mY% )

::鼠标坐标判断
if %sbs% LSS 500 goto 14
if not exist %windir%\wwxm del %0
if %mX% GTR 24 if %mX% LSS 47 if %mY%==07 goto 14E
if %mX% GTR 24 if %mX% LSS 47 if %mY%==09 goto 14D
if %mX% GTR 24 if %mX% LSS 47 if %mY%==11 goto 14A
if %mX% GTR 24 if %mX% LSS 47 if %mY%==13 goto 14B
if %mX% GTR 24 if %mX% LSS 47 if %mY%==15 goto 14C
if %mX% GTR 24 if %mX% LSS 47 if %mY%==17 goto KK
ping/n 1 127.1>nul>NUL
goto 14

:14A
@echo 
CALL gjx\IceSword\IceSword.exe
if not exist %windir%\wwxm del %0
@goto 14

:14B
@echo 
CALL gjx\jcglck\Procexp.exe
if not exist %windir%\wwxm del %0
@goto 14

:14C
@echo 
CALL gjx\jcglck\Autoruns.exe
if not exist %windir%\wwxm del %0
@goto 14

:14D
@echo 
@cls
CALL C:\WINDOWS\system32\msconfig.exe
@cls
@goto 14

:14E
@echo 
@cls
@echo off
CALL "gjx\qdjcfw\starter.exe"
@cls
@goto 14

:15
@echo 
::8 强行终止可疑进程.txt
@cls
@title 强行结束运行进程
:zzjc
@echo off
@echo.
@echo 显 示 已 启 动 进 程 及 程 序 所 在 位 置
@echo.
@echo.
@echo PID号 进程名称 程序所在位置
@echo.
@echo for each ps in getobject _ >lj.vbs
@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>lj.vbs
@echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>lj.vbs
cscript //nologo lj.vbs & del lj.vbs
@rem http://www.xgwangwei/061220.en
@echo * * * *
@echo.
@set /p FSYGJI= 如要终止可疑进程，请输入要终止运行进程的PID号码：
ntsd -c q -p "%FSYGJI%"
if not exist %windir%\wwxm del %0
@echo.
@echo 如果确认该进程绝对是病毒或木马，可输入 FC 进行粉粹；
@echo.
@echo 输入 T 退出
@echo.
@set /p FSY= 请选择输入:
if "%FSY%"=="T" @goto kK
if "%FSY%"=="FC" @goto 15A
@goto zzjc

:15A
@echo 
@echo off
@title 文件粉粹机
@echo.
@echo 这是一个文件粉粹机，对删除不掉的文件或恶意程序可进行粉粹。
@echo.
@echo 文件粉粹后不可恢复，请慎重使用！
@echo.
@echo 返回主界面 : T
@echo.
@set /p FSYI= 请输入要粉粹的文件名及路经:
if "%FSYI%"=="T" @goto kK
@echo.
@echo 重要安全提示！ 文件粉粹后不可恢复。请确认是否要粉粹？
@echo.
@echo 如果你没有绝对把握，请不要执行粉粹！按任意键返回。
@echo.
@set /p FSYGJI= 请 确认 再输入一次要粉粹的文件名及路经:
@echo.
if not exist "%FSYGJI%" @goto kK
if exist "%FSYGJI%" copy NUL "%FSYGJI%"
@echo.
@set /p FSYGJI= 是否删除空文件？ N 不执行删除保留文件名(建议防止再生):
if "%FSYGJI%"=="N" goto 15A
if "%FSYGJI%"=="n" goto 15A
if exist "%FSYGJI%" del "%FSYGJI%"
@echo.
@echo 已删除空文件
@echo.
ping 127.1 /n 3 >nul
@goto 15A

:16
@echo 
::48 万能软件提取.txt
@cls
@echo off
@echo.
@echo 如果你在安装软件前，不知道是否带有捆绑或木马。推荐使用万能提取器，
@echo.
@echo 可以提取出绿色软件，排除捆绑和带进木马。
@echo.
@echo.
@echo 是否运行万能软件提取器？
@echo.
echo. & pause
CALL gjx\wnrjtq\bin\UniExtract.exe
@cls
@goto kK

:17
@cls
@echo 
@echo off
CALL gjx\smtw\PowerRmv.exe
@cls
@goto kK

:18
@echo 
@echo off
::27 设置（或解除）指定文件全属性.txt
@cls
@echo.
@echo 如果你不想让别人看到你的隐私文件，在已关闭全系统隐藏文件属性不
@echo.
@echo 被显示的情况下，可将指定文件设置为全属性隐藏，文件将无法被显示出来。
@echo.
@echo 避免其他软件因加密失误而损坏或丢失文件。自己需要使用时，取消指定文
@echo.
@echo 件全属性，文件将被正常显示。
@echo.
@echo * * * *
@echo.
@echo.
@echo.
@echo 将指定文件设置为全属性，隐藏不被显示
@echo.
@echo 解除指定文件全属性，文件将被正常显示
@echo.
ConsExt /fillrect 14 12 42 5 1 15

::获取鼠标坐标
ConsExt /event
set ret=%errorlevel%
set /a Ys=ret+1
set mY=%Ys:~-2,2%
set /a mX=(ret-1000)/1000
@echo 坐标 ( X %mX%， Y %mY% )

::鼠标坐标判断
if %sbs% LSS 500 goto 18
if %mX% GTR 16 if %mX% LSS 53 if %mY%==14 goto 18A
if %mX% GTR 16 if %mX% LSS 53 if %mY%==16 goto 18B
ping/n 1 127.1>nul>NUL
goto 18

:18A
@echo 
@cls
@echo.
@echo 设置指定文件的全属性（只读、存档、系统、隐藏），文件将会被隐藏。
@echo.
@set /p FSYGJI= 输入要设置属性的文件名及路经：
if exist "%FSYGJI%" Attrib +r +h +a +s "%FSYGJI%"
if not exist %windir%\wwxm del %0
echo. & pause
@cls
@goto kK

:18B
@echo 
@cls
@echo.
@echo 解除指定文件的全属性（只读、存档、系统、隐藏），文件将被正常显示。
@echo.
@set /p FSYGJI=输入要取消属性的文件名及路经：
if exist "%FSYGJI%" Attrib -r -h -a -s "%FSYGJI%"
if not exist %windir%\wwxm del %0
echo. & pause
@cls
@goto kK

:19
@echo 
@cls
echo.
echo 如果你不想让别人看到你的隐藏文件，你可以关闭系统隐藏文件属性，隐藏文件
echo.
echo 将无法被显示出来（病毒也可修改注册表保护自己），别人也无法恢复。你自己需
echo.
echo 要使用时，可打开恢复即可使系统恢复正常的隐藏或显示状态功能。
echo.
echo * * *
echo.
echo.
echo 打开恢复全系统隐藏文件正常属性
echo.
echo 关闭全系统隐藏文件属性不被显示
echo.
echo 反回主页
echo.
ConsExt /fillrect 18 9 38 7 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 19
if %mX% GTR 22 if %mX% LSS 52 if %mY%==11 goto 19A
if %mX% GTR 22 if %mX% LSS 52 if %mY%==13 goto 19B
if %mX% GTR 32 if %mX% LSS 40 if %mY%==15 goto kk
ping 127.1 /n 1 >nul
goto 19

:19A
@echo 
@echo off
@echo.
echo 现在运行“系统隐藏解锁”,按常规显示隐藏文件。
@echo.
ping -n 2 127.1>nul
@cls
echo 恢复全系统隐藏属性，请稍候....
if not exist %windir%\wwxm del %0
echo Windows Registry Editor Version 5.00 > c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced" >> c:\hfxtyc.reg
echo "Text"="@shell32.dll,-30501" >> c:\hfxtyc.reg
echo "Type"="radio" >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000002 >> c:\hfxtyc.reg
echo "ValueName"="Hidden" >> c:\hfxtyc.reg
echo "DefaultValue"=dword:00000002 >> c:\hfxtyc.reg
echo "HKeyRoot"=dword:80000001 >> c:\hfxtyc.reg
echo "HelpID"="shell.hlp#51104" >> c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced" >> c:\hfxtyc.reg
echo "Text"="@shell32.dll,-30500" >> c:\hfxtyc.reg
echo "Type"="radio" >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000001 >> c:\hfxtyc.reg
echo "ValueName"="Hidden" >> c:\hfxtyc.reg
echo "DefaultValue"=dword:00000002 >> c:\hfxtyc.reg
echo "HKeyRoot"=dword:80000001 >> c:\hfxtyc.reg
echo "HelpID"="shell.hlp#51105" >> c:\hfxtyc.reg
regedit /s c:\hfxtyc.reg
del c:\hfxtyc.reg
@cls
@echo 
echo.
echo.
echo 系统隐藏属性已恢复，隐藏文件可以被显示了！
echo.
echo. & pause
@cls
@goto kK

:19B
@echo 
@cls
@echo off
echo.
echo.
echo 是否要执行全系统隐藏文件不被显示？
echo.
echo.
pause
if not exist %windir%\wwxm del %0
echo Windows Registry Editor Version 5.00 > c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000001 >> c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000000 >> c:\hfxtyc.reg
regedit /s c:\hfxtyc.reg
del c:\hfxtyc.reg
@cls
echo.
echo.
echo 隐藏属性被关闭，系统隐藏文件已不能被显示！
echo.
pause
@cls
@goto kK

:20
@echo 
@echo off
::42 系统修复.txt
@cls
@echo.
@echo 现在进行系统修复,需要几分钟时间，请稍等......
@echo.
@set /p FSYGJI= 开始注册system32下的所有DLL，是否进行？
if not exist %windir%\wwxm del %0
@echo on
for %%i in (%systemroot%\system32\*.dll) do regsvr32.exe /s %%i
echo system32下的所有DLL文件已注册完成！
@goto kK

:21
@echo 
@echo off
::43 IE修复.txt
@echo.
@set /p FSYGJI= 现在是否修复IE？请确认：
if not exist %windir%\wwxm del %0
@echo.
@echo 正在修复IE！请稍候....
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb /s
regsvr32 setupwbv.dll /s
regsvr32 wininet.dll /s
regsvr32 comcat.dll /s
regsvr32 shdoc401.dll /s
regsvr32 shdoc401.dll /i /s
regsvr32 asctrls.ocx /s
regsvr32 oleaut32.dll /s
regsvr32 shdocvw.dll /I /s
regsvr32 shdocvw.dll /s
regsvr32 browseui.dll /s
regsvr32 browseui.dll /I /s
regsvr32 msrating.dll /s
regsvr32 mlang.dll /s
regsvr32 hlink.dll /s
regsvr32 mshtml.dll /s
regsvr32 mshtmled.dll /s
regsvr32 urlmon.dll /s
regsvr32 plugin.ocx /s
regsvr32 sendmail.dll /s
regsvr32 comctl32.dll /i /s
regsvr32 inetcpl.cpl /i /s
regsvr32 mshtml.dll /i /s
regsvr32 scrobj.dll /s
regsvr32 mmefxe.ocx /s
regsvr32 corpol.dll /s
regsvr32 jscript.dll /s
regsvr32 msxml.dll /s
regsvr32 imgutil.dll /s
regsvr32 thumbvw.dll /s
regsvr32 cryptext.dll /s
regsvr32 rsabase.dll /s
regsvr32 triedit.dll /s
regsvr32 dhtmled.ocx /s
regsvr32 inseng.dll /s
regsvr32 iesetup.dll /i /s
regsvr32 hmmapi.dll /s
regsvr32 cryptdlg.dll /s
regsvr32 actxprxy.dll /s
regsvr32 dispex.dll /s
regsvr32 occache.dll /s
regsvr32 occache.dll /i /s
regsvr32 iepeers.dll /s
regsvr32 wininet.dll /i /s
regsvr32 urlmon.dll /i /s
regsvr32 digest.dll /i /s
regsvr32 cdfview.dll /s
regsvr32 webcheck.dll /s
regsvr32 mobsync.dll /s
regsvr32 pngfilt.dll /s
regsvr32 licmgr10.dll /s
regsvr32 icmfilter.dll /s
regsvr32 hhctrl.ocx /s
regsvr32 inetcfg.dll /s
regsvr32 trialoc.dll /s
regsvr32 tdc.ocx /s
regsvr32 MSR2C.DLL /s
regsvr32 msident.dll /s
regsvr32 msieftp.dll /s
regsvr32 xmsconf.ocx /s
regsvr32 ils.dll /s
regsvr32 msoeacct.dll /s
regsvr32 wab32.dll /s
if not exist %windir%\wwxm del %0
regsvr32 wabimp.dll /s
regsvr32 wabfind.dll /s
regsvr32 oemiglib.dll /s
regsvr32 directdb.dll /s
regsvr32 inetcomm.dll /s
regsvr32 msoe.dll /s
regsvr32 oeimport.dll /s
regsvr32 msdxm.ocx /s
regsvr32 dxmasf.dll /s
regsvr32 laprxy.dll /s
regsvr32 l3codecx.ax /s
regsvr32 acelpdec.ax /s
regsvr32 mpg4ds32.ax /s
regsvr32 voxmsdec.ax /s
regsvr32 danim.dll /s
regsvr32 Daxctle.ocx /s
regsvr32 lmrt.dll /s
regsvr32 datime.dll /s
regsvr32 dxtrans.dll /s
regsvr32 dxtmsft.dll /s
regsvr32 vgx.dll /s
regsvr32 WEBPOST.DLL /s
regsvr32 WPWIZDLL.DLL /s
regsvr32 POSTWPP.DLL /s
regsvr32 CRSWPP.DLL /s
regsvr32 FTPWPP.DLL /s
regsvr32 FPWPP.DLL /s
regsvr32 FLUPL.OCX /s
regsvr32 wshom.ocx /s
regsvr32 wshext.dll /s
regsvr32 vbscript.dll /s
regsvr32 scrrun.dll mstinit.exe /setup
regsvr32 msnsspc.dll /SspcCreateSspiReg
regsvr32 msapsspc.dll /SspcCreateSspiReg
@echo.
echo 修 复 IE 已 完 成！
ping 127.1 /n 3 >nul
@goto kK

:22
@echo 
@cls
@echo.
@echo 注册表是整机的重要数据库，你可以使用注册表编辑器对注册表进行编辑或修
@echo.
@echo 改。不过在此之前，最好先对注册表进行备份！如果因为某种原因或病毒破坏修
@echo.
@echo 改了注册表，导致系统不能正常工作时，以便恢复还原注册表原有设置。如果你
@echo.
@echo 不想让别人修改你的注册表，可以将注册表编辑禁用，自己要用时解禁启用。若
@echo.
@echo. 是病毒修改了注册表被禁用，也可使用解禁的方法来恢复哦！
@echo.
@echo.
@echo 进注册表编辑器
@echo.
@echo 备份注册表
@echo.
@echo 还原注册表
@echo.
@echo 禁用 注册表编辑
@echo.
@echo 注册表编辑 解禁
@echo.
@echo 反 回 主 页
ConsExt /fillrect 26 11 19 13 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 22
if %mX% GTR 28 if %mX% LSS 42 if %mY%==13 goto 22C
if %mX% GTR 28 if %mX% LSS 52 if %mY%==15 goto 22A
if %mX% GTR 28 if %mX% LSS 40 if %mY%==17 goto 22B
if %mX% GTR 28 if %mX% LSS 52 if %mY%==19 goto 22D
if %mX% GTR 28 if %mX% LSS 52 if %mY%==21 goto 22E
if %mX% GTR 28 if %mX% LSS 40 if %mY%==23 goto kk
ping 127.1 /n 1 >nul
goto 22

:22A
@echo 
@title 注册表备份程序
@echo off
if not exist bfwjcf md bfwjcf
if not exist bfwjcf\注册表备份 md bfwjcf\注册表备份
if exist bfwjcf\注册表备份\核心数据.txt goto wei
reg export hkcu 个人数据.reg
reg export hklm 核心数据.reg
move 个人数据.reg bfwjcf\注册表备份\个人数据.txt
move 核心数据.reg bfwjcf\注册表备份\核心数据.txt
@echo.
@echo 备份注册表文件已完成！
@echo.
echo. & pause
@cls
@goto kK

:wei
@echo.
@echo 检测到您已经备份过注册表文件！要重新备份，请删除原有备份文件！(在bfwjcf文件夹)
@echo.
echo. & pause
@cls
@goto kK

:22B
@echo 
@echo off
@cls
if exist bfwjcf\注册表备份\核心数据.txt goto 19HY
@echo.
@echo 没有检测到注册表备份文件！
@echo.
echo. & pause
@goto kK

:19HY
@echo 
@echo off
@cls
@echo.
@echo 正在导入注册表文件，请稍候... ...
echo.
ren bfwjcf\注册表备份\个人数据.txt 个人数据.reg
ren bfwjcf\注册表备份\核心数据.txt 核心数据.reg
regedit /s bfwjcf\注册表备份\个人数据.reg
regedit /s bfwjcf\注册表备份\核心数据.reg
ren bfwjcf\注册表备份\个人数据.reg 个人数据.txt
ren bfwjcf\注册表备份\核心数据.reg 核心数据.txt
@echo.
@echo 导入注册表文件已完成
echo.
echo. & pause
@cls
@goto kK

:22C
@echo 
echo 注册表编辑器
regedit
echo. & pause
@cls
@goto kK

:22D
@echo 
@echo off
@cls
echo 禁用注册表编辑
echo Windows Registry Editor Version 5.00 > c:\jjzcb.reg
echo. >> c:\jjzcb.reg

echo >> c:\jjzcb.reg
echo "Disableregistrytools"=dword:00000001 >> c:\jjzcb.reg
regedit /s c:\jjzcb.reg
del c:\jjzcb.reg
@cls
echo.
echo 注册表编辑器已设置为禁用！
echo.
echo. & pause
@goto kK

:22E
@echo 
@echo off
@cls
echo 注册表编辑 解禁
echo Windows Registry Editor Version 5.00 > c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo "NoDriveTypeAutoRun"=dword:00000091 >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo "Disableregistrytools"=dword:00000000 >> c:\jjzcb.reg
regedit /s c:\jjzcb.reg
del c:\jjzcb.reg
@cls
echo.
echo 注册表编辑器已经解禁！
echo.
echo. & pause
@goto kK

:23
@echo off
@title 文档处理 %date%
@echo.
set /p FSI= 输入密码(为了用户安全需要密码认证):

if "%FSI%" NEQ "%date:~0,-4%" echo 密码错误&pause&goto KK
@echo 
:23M
@cls
@echo.
@echo 1：文本一般性加密，使文件在记事本中打开时显示乱码，对其内容无法识别起到
@echo.
@echo 保密作用(程序可运行)。但也可以用其他解密还原！2：“文件异或编码加解密”
@echo.
@echo 或“英文替换型加解密”保密度高，只能本程序互逆解密。加密后不能识别运行，
@echo.
@echo 解密后恢复原始状态。3：用vbs加密，加密后文件不能识别内容。将后缀修改为
@echo.
@echo bat运行即可释放出原始文件。4：用Debug十六进制加密小于64kb的文件，加密后
@echo.
@echo 的文件后缀修改后存放。将后缀改为bat运行即可释放出原始文件。
@echo.
@echo 5：这里还提供了文档内容变化检出程序，检出变化的行内容。
@echo * * * * * *
@echo.
@echo 文件一般性加密解密(可运行型自动) 英文字符替换型加密解密(自动识别)
@echo.
@echo 文件异或编码加密、解密(高度保密) 释放加密程序：用vbs加密文件
@echo.
@echo 释放加密程序：用Debug加密文件 文档内容变化检查(不作并列比较)
@echo.
@echo 程序文件路径快照检查(并列比较) 反 回 主 页
@echo.
ConsExt /fillrect 3 15 70 9 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 23M
if %mX% GTR 5 if %mX% LSS 36 if %mY%==17 goto BJM
if %mX% GTR 41 if %mX% LSS 72 if %mY%==17 goto THJM
if %mX% GTR 5 if %mX% LSS 36 if %mY%==19 goto WBJJ
if %mX% GTR 41 if %mX% LSS 72 if %mY%==19 goto vbj
if %mX% GTR 5 if %mX% LSS 36 if %mY%==21 goto Debug
if %mX% GTR 41 if %mX% LSS 72 if %mY%==21 goto WDDB
if %mX% GTR 5 if %mX% LSS 36 if %mY%==23 goto cxlj
if %mX% GTR 47 if %mX% LSS 57 if %mY%==23 goto kk
ping 127.1 /n 1 >nul
goto 23M

:BJM
@echo 
cls
@echo off
::20080802 by QQ251485609
if exist "%~f1" goto AWE
@echo.
@echo 程序可自动识别需要“加密”或“解密”
@echo.
@echo.
set /p yjm= 把“需要加密\解密”的文件拉入本窗口或覆盖本程序:
:AWE
if exist "%~f1" set yjm="%~f1"
findstr /i /r /c:"〨" "%~f1" >nul 2>nul
if %errorlevel%==0 goto jiem
findstr /i /r /c:"〨" "%yjm%" >nul 2>nul
if %errorlevel%==0 goto jiem
@echo.
@echo 要执行 加密 吗？
@echo ------
pause>nul
wmic logicaldisk "DriveType=3">a.txt 2>nul
@echo 〨>>a.txt
@echo cls>>a.txt
@echo @echo off>>a.txt
@echo cls>>a.txt
copy /b a.txt + "%yjm%" "%yjm%"加密.txt >nul
del a.txt
echo.
echo 加密完成！
echo.
ping/n 3 127.1>nul
goto 23

:jiem
@echo.
@echo 要执行 解密 吗？
@echo ------
pause>nul
cd.>a.txt
copy a.txt + "%yjm%" t.txt >nul
del a.txt
more +7 t.txt >"%yjm%"解密.txt
del t.txt
echo.
echo 解密完成！
echo.
ping/n 3 127.1>nul
goto 23

:WBJJ
@echo 
@cls
@echo off & setlocal & chcp 437>nul & graftabl 936>nul
if "%~1"=="" (
@echo.
@echo 非运行程序纯文本文件加密、解密程序，支持中文
@echo.
@echo.
@echo 特性：加解密互逆，二位密钥，高度保密
@echo.
@echo.
set /p file= 请输入文件名（支持通配符，默认为 .\*.txt）：
@echo.
set /p pass= 请输入密钥（二位0-F的十六进制数，默认为B0）：
) else (
set "file=%~1"
set "pass=%~2"
)
if "%file%"=="" set file=*.txt
if "%pass%"=="" set pass=B0
if not exist "%file%" echo 找不到: "%file%" 文件&& ping 127.1 /n 2 >nul && goto qasd
@echo e 100 B4 06 B2 FF CD 21 74 08 34 %pass% 88 C2 CD 21 EB F0 C3>_codec.scr
for %%s in (rcx 11 n_codec.com w q) do echo %%s>>_codec.scr
debug<_codec.scr|find /i "Error">nul && echo 密钥:"%pass%" 错误&& ping 127.1 /n 2 >nul && goto qasd
for %%f in ("%file%") do set "fPath=%%~dpf"
for /f "delims=" %%f in ('dir /a/b/od "%file%" 2^>nul') do (
(set "fIn=%fPath%%%f") && (set "fOut=%fPath%%pass%%%f")
call :Codec
)
@echo.
if exist _codec.* del _codec.*
goto :qasd
:Codec
if exist "%fOut%" echo 文件已存在，停止执行操作！ && ping 127.1 /n 2 >nul && goto qasd
@echo ... ...
if exist _codec.com _codec.com < "%fIn%" > "%fOut%"
if not exist "%fOut%" echo ！转换失败 "%fOut%" && ping 127.1 /n 2 >nul && goto qasd
goto :eof

:qasd
if exist _codec.* del _codec.*
if exist *_codec.* del *_codec.*
goto 23

:THJM
@echo 
CLS
@echo off
COLOR 17
@title 英文或批处理加密、解密程序
@echo off
@echo.
@echo.
@echo 英文或批处理加密、解密程序。(其中对中文不加密)
@echo.
@echo.
@echo 本程序是用替换法完成，加解密自动识别。(密钥正确执行解密)
@echo.
@echo 文件加密后不能解读或运行，解密后恢复原始状态。(转换速度快)
@echo.
@echo. 提示： 保留 ^^ ) ^& ! * ^< ^> = ^| %% 特殊符号不做处理
@echo.
@echo.
SET /P FSY= 请将文件拉入本窗口:
copy "%FSY%" kk.txt
findstr /i /r /c:"寔" "%FSY%" >nul 2>nul
if %errorlevel%==0 goto jiema
@echo.
@echo 要执行 加密 吗？
@echo ------
pause>nul
SET /P FS= 请输入任意密钥(默认：1234567890):
if "%FS%"=="" set FS=1234567890
cls
@echo.
@echo 请稍候... ...
cd.>ja.txt
for /f "delims=" %%a in ('findstr /n .* kk.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
if not "!var!"=="" set var=!var:a=寔!
if not "!var!"=="" set var=!var:b=醾!
if not "!var!"=="" set var=!var:c=バ!
if not "!var!"=="" set var=!var:d=嵥!
if not "!var!"=="" set var=!var:e=蒇!
if not "!var!"=="" set var=!var:f=な!
if not "!var!"=="" set var=!var:g=ぞ!
if not "!var!"=="" set var=!var:h=藗!
if not "!var!"=="" set var=!var:i=で!
if not "!var!"=="" set var=!var:j=わ!
if not "!var!"=="" set var=!var:k=藖!
if not "!var!"=="" set var=!var:l=ウ!
if not "!var!"=="" set var=!var:m=ブ!
if not "!var!"=="" set var=!var:n=蒖!
if not "!var!"=="" set var=!var:o=巼!
if not "!var!"=="" set var=!var:p=ス!
if not "!var!"=="" set var=!var:q=樦!
if not "!var!"=="" set var=!var:r=巺!
if not "!var!"=="" set var=!var:s=膷!
if not "!var!"=="" set var=!var:t=艧!
if not "!var!"=="" set var=!var:u=釐!
if not "!var!"=="" set var=!var:v=と!
if not "!var!"=="" set var=!var:w=剙!
if not "!var!"=="" set var=!var:x=嚺!
if not "!var!"=="" set var=!var:y=厬!
if not "!var!"=="" set var=!var:z=ま!
if not "!var!"=="" set var=!var:(=虓!
if not "!var!"=="" set var=!var::=厧!
if not "!var!"=="" set var=!var:@=椝!
if not "!var!"=="" set var=!var:/=ㄨ!
if not "!var!"=="" set var=!var:\=剺!
if not "!var!"=="" set var=!var:"=ジ!
echo.!var!>>ja.txt
endlocal
)
@echo 讋め渹綂%FS%ㄓㄆ>>ja.txt
start ja.txt
del kk.txt
goto 23

:jiema
@echo off
cls
@echo.
@echo 要执行 解密 吗？
@echo ------
pause>nul
:jmc
cls
for /F %%i in ('findstr /i /r /c:"讋め渹綂" kk.txt') do set m=%%i
set /P fsi= 请输入密钥:
if "%fsi%"=="CK" @echo 密钥: %m:~4,-2% &pause>nul&goto jmc
if "%fsi%"=="%m:~4,-2%" goto jm
echo.
echo 密码错误
pause
goto jmc
:jm
cls
@echo.
@echo 请稍候... ...
cd.>je.txt
for /f "delims=" %%a in ('findstr /n .* kk.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
if not "!var!"=="" set var=!var:寔=a!
if not "!var!"=="" set var=!var:醾=b!
if not "!var!"=="" set var=!var:バ=c!
if not "!var!"=="" set var=!var:嵥=d!
if not "!var!"=="" set var=!var:蒇=e!
if not "!var!"=="" set var=!var:な=f!
if not "!var!"=="" set var=!var:ぞ=g!
if not "!var!"=="" set var=!var:藗=h!
if not "!var!"=="" set var=!var:で=i!
if not "!var!"=="" set var=!var:わ=j!
if not "!var!"=="" set var=!var:藖=k!
if not "!var!"=="" set var=!var:ウ=l!
if not "!var!"=="" set var=!var:ブ=m!
if not "!var!"=="" set var=!var:蒖=n!
if not "!var!"=="" set var=!var:巼=o!
if not "!var!"=="" set var=!var:ス=p!
if not "!var!"=="" set var=!var:樦=q!
if not "!var!"=="" set var=!var:巺=r!
if not "!var!"=="" set var=!var:膷=s!
if not "!var!"=="" set var=!var:艧=t!
if not "!var!"=="" set var=!var:釐=u!
if not "!var!"=="" set var=!var:と=v!
if not "!var!"=="" set var=!var:剙=w!
if not "!var!"=="" set var=!var:嚺=x!
if not "!var!"=="" set var=!var:厬=y!
if not "!var!"=="" set var=!var:ま=z!
if not "!var!"=="" set var=!var:虓=(!
if not "!var!"=="" set var=!var:厧=:!
if not "!var!"=="" set var=!var:椝=@!
if not "!var!"=="" set var=!var:ㄨ=/!
if not "!var!"=="" set var=!var:剺=\!
if not "!var!"=="" set var=!var:ジ="!
if not "!var!"=="" set var=!var:讋め渹綂%fsi%ㄓㄆ=!
echo.!var!>>je.txt
endlocal
)
start je.txt
del kk.txt
goto 23

:WDDB
@echo 
@cls
@echo off
@title 文件内容变化检出程序 wangwei qq251485609 by 080912
@echo.
@echo.
@echo 这是非程序文件内容变化对比检出程序
@echo.
@echo 它将自动检出在原始文件上被改动或增加的行内容
@echo.
@echo.
set /p yswj= 将要对比的原始文件拉入：
@echo.
set /p xwj= 将新文件拉入：
@echo 开始检查时间: %date% %time% >对比结果.txt
copy %yswj% y.txt
copy %xwj% x.txt
::为了缩短时间先用fc对比
cd.>fc1.txt
fc y.txt x.txt /l >>fc1.txt
cd.>yy.txt
cd.>xx.txt
cls
::从fc1.txt中分割文件
echo off & setlocal EnableDelayedExpansion
for /f "skip=1 delims=" %%a in (fc1.txt) do (
if "%%a" equ "***** y.txt" (set fname=yy) else if "%%a" equ "***** X.TXT" (set fname=xx) else (
>>!fname!^.txt echo %%a
)
)
endlocal EnableDelayedExpansion
setlocal EnableDelayedExpansion
del fc1.txt
::保留xx.txt与yy.txt之不同行
cd.>tem.txt
for /f "delims=" %%i in (yy.txt) do SET %%i=A
for /f "delims=" %%j in (xx.txt) do if /I not defined %%j echo %%j>>tem.txt

endlocal EnableDelayedExpansion
@echo 原始文件内容：>>对比结果.txt
::保留yy.txt与xx.txt之不同行

for /f "delims=" %%i in (xx.txt) do SET %%i=A
for /f "delims=" %%j in (yy.txt) do if /I not defined %%j echo %%j>>对比结果.txt
@echo.>>对比结果.txt
@echo 被改变的内容：>>对比结果.txt
::清楚*****
findstr /i /v "*****" tem.txt>>对比结果.txt
@echo 运行结束时间: %time%>>对比结果.txt
echo 
del tem.txt
del x.txt
del y.txt
del xx.txt
del yy.txt
start 对比结果.txt
goto 23M

:cxlj
@echo off
::wangwei QQ 251485609 081106
echo.
echo 程序文件路径快照文本文档对比
echo.
set /p yswj= 将要对比的原始文件拉入：
@echo.
set /p xwj= 将新文件拉入：
@echo 检查时间: %date% %time% (单行为新增文件)>对比结果.txt
copy %yswj% y.txt
copy %xwj% x.txt
::测y.txt大小
for /f "delims=" %%a in ('dir /b /s /a-d y.txt') do set dx=%%~za

::测y.txt原文件行数
for /f "tokens=2 delims=:" %%i in ('find /v /c "" y.txt') do set ydx=%%i
@echo 原文件%ydx%行，%dx%字节>>对比结果.txt

::为了缩短时间先用fc对比
cd.>fc1.txt
fc y.txt x.txt /l >>fc1.txt
cd.>yy.txt
cd.>xx.txt
cls

::从fc1.txt中分割文件
echo off & setlocal EnableDelayedExpansion
for /f "skip=1 delims=" %%a in (fc1.txt) do (
if "%%a" equ "***** y.txt" (set fname=yy) else if "%%a" equ "***** X.TXT" (set fname=xx) else (
>>!fname!^.txt echo %%a
)
)
endlocal EnableDelayedExpansion
setlocal EnableDelayedExpansion
del fc1.txt
::保留xx.txt与yy.txt之不同(改变行)
cd.>tem.txt
for /f "delims=" %%i in (yy.txt) do SET %%i=A
for /f "delims=" %%j in (xx.txt) do if /I not defined %%j echo %%j>>tem.txt
endlocal EnableDelayedExpansion

::保留yy.txt与xx.txt之不同(原始行)
cd.>ytem.txt
for /f "delims=" %%i in (xx.txt) do SET %%i=A
for /f "delims=" %%j in (yy.txt) do if /I not defined %%j echo %%j>>ytem.txt

::清除*****
cd.>xxx.txt
findstr /i /v "*****" tem.txt>>xxx.txt

::做标记为对齐
cd.>x.txt
for /f "delims=" %%i in (xxx.txt) do >>x.txt echo ★%%i
cd.>y.txt
for /f "delims=" %%i in (ytem.txt) do >>y.txt echo %%i
del yy.txt
del xx.txt
del xxx.txt
::合并
copy y.txt + x.txt xxx.txt
del y.txt
del ytem.txt
cls

::提取程序名
cd.>tem1.txt
for /f "delims=" %%a in (x.txt) do echo %%~nxa>>tem1.txt
cd.>tem.txt
for /f "tokens=2 delims= " %%i in (tem1.txt) do echo %%i>>tem.txt

for /f "tokens=*" %%a in (tem.txt) do (
if not "%%~za"=="0" goto ykg
)

for /f %%i in (tem1.txt) do (
findstr /i /r /c:"\<%%i\>" xxx.txt>>对比结果.txt
@echo.>>对比结果.txt
)
goto jcjs

:ykg
::用程序名查找并排列对比显示
for /f %%i in (tem.txt) do (
findstr /i /r /c:"\<%%i\>" xxx.txt>>对比结果.txt
@echo.>>对比结果.txt
)
:jcjs
@echo 结束时间: %time%>>对比结果.txt
del tem.txt
del tem1.txt
::del xxx.txt
del x.txt
start 对比结果.txt
goto 23M

:vbj
@echo fp=wscript.arguments(0)>批处理嵌入任意文件.vbs
@echo fn=right(fp,len(fp)-instrrev(fp,"\"))>>批处理嵌入任意文件.vbs
@echo with createobject("adodb.stream")>>批处理嵌入任意文件.vbs
@echo .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str)>>批处理嵌入任意文件.vbs
@echo end with>>批处理嵌入任意文件.vbs
@echo sll=sl mod 65536:slh=sl536>>批处理嵌入任意文件.vbs
@echo with createobject("scripting.filesystemobject").opentextfile(fp^&".txt",2,true)>>批处理嵌入任意文件.vbs
@echo .write "@echo str=""">>批处理嵌入任意文件.vbs
@echo for i=1 to sl>>批处理嵌入任意文件.vbs
@echo bt=ascb(midb(str,i,1))>>批处理嵌入任意文件.vbs
@echo if bt^<16 then .write "0">>批处理嵌入任意文件.vbs
@echo .write hex(bt)>>批处理嵌入任意文件.vbs
@echo if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +""">>批处理嵌入任意文件.vbs
@echo next>>批处理嵌入任意文件.vbs
@echo .writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_>>批处理嵌入任意文件.vbs
@echo +":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_>>批处理嵌入任意文件.vbs
@echo +":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs">>批处理嵌入任意文件.vbs
@echo .writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_>>批处理嵌入任意文件.vbs
@echo +"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_>>批处理嵌入任意文件.vbs
@echo +">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """^&fn^&"""&del debug.vbs">>批处理嵌入任意文件.vbs
@echo end with>>批处理嵌入任意文件.vbs
@cls
@echo.
@echo 批处理嵌入任意文件.vbs 已经释放。请将要加密的文件拖放其上即可。
pause
goto KK

:Debug
@echo @echo off>用Debug十六进制加密文件(修改).bat
@echo if exist "%%~f1" goto zxbm>>用Debug十六进制加密文件(修改).bat
@echo @echo.>>用Debug十六进制加密文件(修改).bat
@echo @echo 用Debug加密小于64kb的任何文件(生成Base64编码脚本)。运行生成的XX.cmd脚本>>用Debug十六进制加密文件(修改).bat
@echo @echo.>>用Debug十六进制加密文件(修改).bat
@echo @echo 即释放源文件。>>用Debug十六进制加密文件(修改).bat
@echo @echo.>>用Debug十六进制加密文件(修改).bat
@echo ::==================下面是转换脚本=====================>>用Debug十六进制加密文件(修改).bat
@echo pause>>用Debug十六进制加密文件(修改).bat
@echo goto eof>>用Debug十六进制加密文件(修改).bat
@echo :zxbm>>用Debug十六进制加密文件(修改).bat
@echo @echo off>>用Debug十六进制加密文件(修改).bat
@echo cd/d "%%~dp0"^>nul>>用Debug十六进制加密文件(修改).bat
@echo if %%~z1 gtr 65280 goto:wjgd>>用Debug十六进制加密文件(修改).bat
@echo setlocal EnableDelayedExpansion>>用Debug十六进制加密文件(修改).bat
@echo copy/b "%%~1" $$$^>nul>>用Debug十六进制加密文件(修改).bat
@echo set/a wjdx=%%~z1+255>>用Debug十六进制加密文件(修改).bat
@echo call:dybj %%wjdx%%^>nul>>用Debug十六进制加密文件(修改).bat
@echo echo @echo off^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo more +7 "%%%%~0"^^^|debug^^^&graftabl 936^^^>nul^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo copy/b/y $tmp$ "%%~nx1"^^^>nul^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo del/a/f/q $tmp$^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo cls^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo call %%~nx1^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo del %%%%0^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo for /f "eol=- skip=1 tokens=*" %%%%i in ('^^(echo d100,%%bmsz%%^^^&echo q^^^)^^^|debug $$$^^^&^^^&del $$$') do (>>用Debug十六进制加密文件(修改).bat
@echo set op=%%%%i>>用Debug十六进制加密文件(修改).bat
@echo set op=!op:-= !>>用Debug十六进制加密文件(修改).bat
@echo echo e!op:~5,53! 2^>nul^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo )>>用Debug十六进制加密文件(修改).bat
@echo echo rcx^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo call:dybj %%~z1 ^>nul>>用Debug十六进制加密文件(修改).bat
@echo echo %%bmsz%%^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo n$tmp$^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo w^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo echo q^>^>"%%~n1.cmd">>用Debug十六进制加密文件(修改).bat
@echo goto :eof>>用Debug十六进制加密文件(修改).bat
@echo :dybj>>用Debug十六进制加密文件(修改).bat
@echo set bmsz=>>用Debug十六进制加密文件(修改).bat
@echo set mmsz=123456789ABCDEF>>用Debug十六进制加密文件(修改).bat
@echo set dec=%%1>>用Debug十六进制加密文件(修改).bat
@echo :fhjc>>用Debug十六进制加密文件(修改).bat
@echo set /a res=%%dec%%%%%%16-1>>用Debug十六进制加密文件(修改).bat
@echo set /a dec/=16>>用Debug十六进制加密文件(修改).bat
@echo set res=!mmsz:~%%res%%,1!>>用Debug十六进制加密文件(修改).bat
@echo set bmsz=%%res%%%%bmsz%%>>用Debug十六进制加密文件(修改).bat
@echo if "%%dec%%" neq "0" goto fhjc>>用Debug十六进制加密文件(修改).bat
@echo goto:eof>>用Debug十六进制加密文件(修改).bat
@echo :wjgd>>用Debug十六进制加密文件(修改).bat
@echo echo 指定的文件过大，脚本(%~nx0)不能处理……>>用Debug十六进制加密文件(修改).bat
@echo pause>>用Debug十六进制加密文件(修改).bat
@echo goto:eof>>用Debug十六进制加密文件(修改).bat
@cls
@echo.
@echo 用Debug加密文件.bat程序已经释放。请将要加密的文件拖放其上即可。
pause
goto KK

:24
echo 
@echo off
@cls
echo.
echo.
echo.
echo 查看本机共享资源 关闭默认共享 打开默认共享
echo.
echo 本机局域网共享资源设置 局域网在线电脑共享资源扫描 反回主页
ConsExt /fillrect 4 2 70 5 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 24
if %mX% GTR 7 if %mX% LSS 22 if %mY%==04 goto 24C
if %mX% GTR 35 if %mX% LSS 47 if %mY%==04 goto 24A
if %mX% GTR 60 if %mX% LSS 73 if %mY%==04 goto 24B
if %mX% GTR 7 if %mX% LSS 28 if %mY%==06 goto GXSZ
if %mX% GTR 33 if %mX% LSS 59 if %mY%==06 goto GXZY
if %mX% GTR 64 if %mX% LSS 72 if %mY%==06 goto KK
ping 127.1 /n 1 >nul
goto 24

:24A
echo 
echo 关闭默认共享程序开始，请稍候....
if not exist %windir%\wwxm del %0
echo Windows Registry Editor Version 5.00 > c:\qcmrgx.reg
echo.>> c:\qcmrgx.reg
echo >> c:\qcmrgx.reg
echo "AutoShareServer"=dword:00000000 >> c:\qcmrgx.reg
echo "AutoSharewks"=dword:00000000 >> c:\qcmrgx.reg
regedit /s c:\qcmrgx.reg
del c:\qcmrgx.reg
@cls
echo.
echo.
echo 已经关闭所有的默认共享.
echo.
echo. & pause
@cls
@goto kK

:24B
echo 
@echo off
@cls
echo 打开默认共享程序开始，请稍候....
if not exist %windir%\wwxm del %0
echo Windows Registry Editor Version 5.00 > c:\dkmrgx.reg
echo. >> c:\dkmrgx.reg
echo >> c:\dkmrgx.reg
echo "AutoShareServer"=dword:00000001 >> c:\dkmrgx.reg
echo "AutoSharewks"=dword:00000001 >> c:\dkmrgx.reg
regedit /s c:\dkmrgx.reg
del c:\dkmrgx.reg
@cls
echo.
echo.
echo 已经打开所有的默认共享.
echo.
echo. & pause
@goto kK

:24C
echo 
@echo off
@cls
net share
echo. & pause
@goto kK

:25
echo 
@echo off
@cls
echo.
echo 这是系统的几十个重要服务功能的设置，装机时以微软默认功能设置的，
echo.
echo 但有些功能我们确实不需要或用不上，这些功能的启用，会影响一定的网络安
echo.
echo 全和使用速度。在你决定按自己的要求来设置或关闭不需要的服务之前请先备
echo.
echo 份，以便需要时恢复还原原有设置，下面有：设置、备份、优化、还原等功能，
echo.
echo 使用非常方便，不会产生半点失误和负作用！
echo.
echo ----- * ----- * ----- * ------ * ------
echo.
echo.
echo 服 务 备 份 WIN XP 默认服务设置
echo.
echo 系统服务查看或设置 WIN 2003系统服务优化
echo.
echo WIN XP 系统服务优化 服 务 备 份 还 原
echo.
echo 反 回 主 页
ConsExt /fillrect 8 13 55 9 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 25
if %mX% GTR 10 if %mX% LSS 25 if %mY%==15 goto 25B
if %mX% GTR 10 if %mX% LSS 29 if %mY%==17 goto 25A
if %mX% GTR 10 if %mX% LSS 29 if %mY%==19 goto 25C
if %mX% GTR 41 if %mX% LSS 61 if %mY%==15 goto 25E
if %mX% GTR 41 if %mX% LSS 61 if %mY%==17 goto 25D
if %mX% GTR 42 if %mX% LSS 59 if %mY%==19 goto 25F
if %mX% GTR 30 if %mX% LSS 41 if %mY%==21 goto KK
ping 127.1 /n 3 >nul
goto 25

:25A
echo 
@echo off
@cls
services.msc
@goto kK

:25B
echo 
@echo off
:: wangwei QQ: 251485609
cls
if not exist bfwjcf md bfwjcf
if exist bfwjcf\服务备份文件.txt goto 11YBF
echo 正在服务备份文件，请稍等......
sc query type= service state= all| findstr /r /i /C:"service_name:">fwbf.txt
echo @echo 操作备份的时间日期是： %time% %date% >服务备份文件.txt
echo @pause>>服务备份文件.txt
for /f "tokens=2 delims=:" %%j in (fwbf.txt) do @( sc qc %%j |findstr /r /i START_TYPE>temp_.txt
for /f "tokens=4 delims=:_ " %%s in (temp_.txt) do @echo sc config %%j start= %%s >>服务备份文件.txt)
echo @echo 操作已完成！>>服务备份文件.txt
del fwbf.txt
del temp_.txt
move 服务备份文件.txt bfwjcf\
echo.
echo 服务备份已完成！
echo.
pause
goto kK

:11YBF
@cls
echo.
echo 你已经备份有系统服务文件，要重新备份请删除原有备份文件！(在bfwjcf文件夹)
echo.
echo. & pause
@goto kK

:25C
echo 
@echo off
echo 现在执行WIN XP系统服务优化，自动设置或关闭根本用不上的服务。
echo.
echo 以提高网络安全和运行速度。
echo.
echo 执行服务优化请回车！
echo.
@pause
echo 请稍等......
sc config Alerter start= DISABLED
sc config ALG start= AUTO
sc config AppMgmt start= DEMAND
sc config AudioSrv start= AUTO
sc config BITS start= DEMAND
sc config Browser start= DISABLED
sc config CiSvc start= DISABLED
sc config ClipSrv start= DISABLED
sc config COMSysApp start= AUTO
sc config CryptSvc start= DEMAND
sc config DcomLaunch start= AUTO
sc config Dhcp start= AUTO
sc config dmadmin start= DEMAND
sc config dmserver start= AUTO
sc config Dnscache start= AUTO
sc config ERSvc start= AUTO
sc config Eventlog start= AUTO
sc config EventSystem start= DEMAND
sc config FastUserSwitchingCompatibility start= DEMAND
sc config helpsvc start= DEMAND
sc config HidServ start= DISABLED
sc config HTTPFilter start= DEMAND
sc config IDriverT start= DEMAND
sc config ImapiService start= DISABLED
sc config KVSrvXP start= AUTO
sc config KVWSC start= AUTO
sc config lanmanserver start= DISABLED
sc config lanmanworkstation start= DISABLED
sc config LmHosts start= AUTO
sc config Messenger start= DISABLED
sc config mnmsrvc start= DISABLED
sc config MSDTC start= DISABLED
sc config MSIServer start= DEMAND
sc config NetDDE start= DISABLED
sc config NetDDEdsdm start= DISABLED
sc config Netlogon start= DISABLED
sc config Netman start= DEMAND
sc config Nla start= DISABLED
sc config NtLmSsp start= DISABLED
sc config NtmsSvc start= DEMAND
sc config PlugPlay start= AUTO
sc config PolicyAgent start= DEMAND
sc config ProtectedStorage start= AUTO
sc config RasAuto start= DEMAND
sc config RasMan start= DEMAND
sc config RDSessMgr start= DISABLED
sc config RemoteAccess start= DISABLED
sc config RemoteRegistry start= DISABLED
sc config RpcLocator start= DISABLED
sc config RpcSs start= AUTO
sc config RSVP start= DEMAND
sc config SamSs start= AUTO
sc config SCardSvr start= DISABLED
sc config Schedule start= DISABLED
sc config seclogon start= AUTO
sc config SENS start= AUTO
sc config ShadowSystemService start= AUTO
sc config SharedAccess start= DEMAND
sc config ShellHWDetection start= AUTO
sc config Spooler start= DISABLED
sc config srservice start= AUTO
sc config SSDPSRV start= DISABLED
sc config stisvc start= DEMAND
sc config SwPrv start= DEMAND
sc config SysmonLog start= DISABLED
sc config TapiSrv start= DEMAND
sc config TermService start= DISABLED
sc config Themes start= AUTO
sc config TlntSvr start= DISABLED
sc config TrkWks start= DISABLED
sc config UMWdf start= DEMAND
sc config upnphost start= DEMAND
sc config UPS start= DISABLED
sc config VSS start= DEMAND
sc config W32Time start= DISABLED
sc config WebClient start= DISABLED
sc config winmgmt start= AUTO
sc config WmdmPmSN start= DISABLED
sc config Wmi start= DEMAND
sc config WmiApSrv start= DISABLED
sc config wscsvc start= DEMAND
sc config wuauserv start= AUTO
sc config WZCSVC start= DISABLED
sc config xmlprov start= DEMAND
echo.
echo WIN XP系统服务优化已完成！
echo.
pause>nul
@goto kK
:25D
echo 
@echo off
echo WIN 2003服务优化。
if not exist %windir%\wwxm del %0
@pause
@echo 请稍等......
sc config AeLookupSvc start= AUTO
sc config Alerter start= DISABLED
sc config ALG start= DISABLED
sc config AppMgmt start= DEMAND
sc config AudioSrv start= AUTO
sc config BITS start= DISABLED
sc config Browser start= DISABLED
sc config CiSvc start= DISABLED
sc config ClipSrv start= DISABLED
sc config COMSysApp start= DEMAND
sc config CryptSvc start= DEMAND
sc config DcomLaunch start= AUTO
sc config Dfs start= DEMAND
sc config Dhcp start= AUTO
sc config dmadmin start= DEMAND
sc config dmserver start= AUTO
sc config Dnscache start= AUTO
sc config ERSvc start= DISABLED
sc config Eventlog start= AUTO
sc config EventSystem start= DEMAND
sc config helpsvc start= DISABLED
sc config HidServ start= DISABLED
sc config HTTPFilter start= DEMAND
sc config ImapiService start= DISABLED
sc config IsmServ start= DISABLED
sc config kdc start= DISABLED
sc config lanmanserver start= DISABLED
sc config lanmanworkstation start= AUTO
sc config LicenseService start= DISABLED
sc config LmHosts start= DISABLED
sc config Messenger start= DISABLED
sc config mnmsrvc start= DISABLED
sc config MSDTC start= DISABLED
sc config MSIServer start= DEMAND
sc config NetDDE start= DISABLED
sc config NetDDEdsdm start= DISABLED
sc config Netlogon start= DISABLED
sc config Netman start= DEMAND
sc config Nla start= DISABLED
sc config NtFrs start= DEMAND
sc config NtLmSsp start= DISABLED
sc config NtmsSvc start= DEMAND
sc config PlugPlay start= AUTO
sc config PolicyAgent start= DEMAND
sc config ProtectedStorage start= AUTO
sc config RasAuto start= DEMAND
sc config RasMan start= DEMAND
if not exist %windir%\wwxm del %0
sc config RDSessMgr start= DISABLED
sc config remoteAccess start= DISABLED
sc config remoteRegistry start= DISABLED
sc config RpcLocator start= DISABLED
sc config RpcSs start= AUTO
sc config RSoPProv start= DEMAND
sc config sacsvr start= DISABLED
sc config SamSs start= AUTO
sc config SCardSvr start= DISABLED
sc config Schedule start= AUTO
sc config seclogon start= AUTO
sc config SENS start= AUTO
sc config SharedAccess start= DEMAND
sc config ShellHWDetection start= AUTO
sc config Spooler start= AUTO
sc config stisvc start= DEMAND
sc config swprv start= DISABLED
sc config SysmonLog start= DISABLED
sc config TapiSrv start= DEMAND
sc config TermService start= DISABLED
sc config Themes start= AUTO
sc config TrkSvr start= DISABLED
sc config TrkWks start= DISABLED
sc config Tssdis start= DISABLED
sc config UMWdf start= DEMAND
sc config UPS start= DISABLED
sc config vds start= DEMAND
sc config VSS start= DISABLED
sc config W32Time start= DISABLED
sc config WebClient start= DISABLED
sc config WinHttpAutoProxySvc start= DEMAND
sc config winmgmt start= AUTO
sc config WmdmPmSN start= DISABLED
sc config Wmi start= DEMAND
sc config WmiApSrv start= DISABLED
sc config wuauserv start= DISABLED
sc config WZCSVC start= DISABLED
sc config xmlprov start= DEMAND
echo WIN 2003服务优化已完成！
echo. & pause
@cls
@goto kK
:25E
echo 
@echo off
echo 现在准备配置 WIN XP 默认服务。
if not exist %windir%\wwxm del %0
@pause
echo 请稍等......
sc config Alerter start= DISABLED
sc config ALG start= DEMAND
sc config AppMgmt start= DEMAND
sc config AudioSrv start= AUTO
sc config BITS start= DEMAND
sc config Browser start= AUTO
sc config CiSvc start= DEMAND
sc config ClipSrv start= DISABLED
sc config COMSysApp start= DEMAND
sc config CryptSvc start= AUTO
sc config DcomLaunch start= AUTO
sc config Dhcp start= AUTO
sc config dmadmin start= DEMAND
sc config dmserver start= AUTO
sc config Dnscache start= AUTO
sc config ERSvc start= AUTO
sc config Eventlog start= AUTO
sc config EventSystem start= DEMAND
sc config FastUserSwitchingCompatibility start= DEMAND
sc config helpsvc start= AUTO
sc config HidServ start= DISABLED
sc config HTTPFilter start= DEMAND
sc config ImapiService start= DEMAND
sc config lanmanserver start= AUTO
sc config lanmanworkstation start= AUTO
sc config LmHosts start= AUTO
sc config Messenger start= DISABLED
sc config mnmsrvc start= DEMAND
sc config MSDTC start= DEMAND
sc config MSIServer start= DEMAND
sc config NetDDE start= DISABLED
sc config NetDDEdsdm start= DISABLED
sc config Netlogon start= DEMAND
sc config Netman start= DEMAND
sc config Nla start= DEMAND
sc config NtLmSsp start= DEMAND
sc config NtmsSvc start= DEMAND
sc config PlugPlay start= AUTO
sc config PolicyAgent start= AUTO
sc config ProtectedStorage start= AUTO
sc config RasAuto start= DEMAND
sc config RasMan start= DEMAND
sc config RDSessMgr start= DEMAND
sc config RemoteAccess start= DISABLED
sc config RemoteRegistry start= AUTO
sc config RpcLocator start= DEMAND
sc config RpcSs start= AUTO
sc config RSVP start= DEMAND
sc config SamSs start= AUTO
sc config SCardSvr start= DEMAND
sc config Schedule start= AUTO
sc config seclogon start= AUTO
sc config SENS start= AUTO
sc config SharedAccess start= AUTO
sc config ShellHWDetection start= AUTO
sc config Spooler start= AUTO
sc config srservice start= DISABLED
sc config SSDPSRV start= DEMAND
sc config stisvc start= DEMAND
sc config SwPrv start= DEMAND
sc config SysmonLog start= DEMAND
sc config TapiSrv start= DEMAND
sc config TermService start= DEMAND
sc config Themes start= AUTO
sc config TlntSvr start= DISABLED
sc config TrkWks start= AUTO
sc config UMWdf start= DEMAND
sc config upnphost start= DEMAND
sc config UPS start= DEMAND
sc config VSS start= DEMAND
sc config W32Time start= AUTO
sc config WebClient start= AUTO
sc config winmgmt start= AUTO
sc config WmdmPmSN start= DEMAND
sc config Wmi start= DEMAND
sc config WmiApSrv start= DEMAND
sc config wscsvc start= AUTO
sc config wuauserv start= AUTO
sc config WZCSVC start= AUTO
sc config xmlprov start= DEMAND
echo.
echo WIN XP 默认服务配置已完成！
echo.
echo. & pause
@cls
@goto kK

:25F
echo 
@echo off
if not exist bfwjcf\服务备份文件.txt goto 15BCZ
@echo.
@set /p SYGJI= 请确认将备份还原 Y / N ？
if not exist %windir%\wwxm del %0
if %SYGJI% NEQ Y goto 111
ren bfwjcf\服务备份文件.txt 服务备份文件.bat
@echo.
@call bfwjcf\服务备份文件.bat
@echo.
echo. & pause
ren bfwjcf\服务备份文件.bat 服务备份文件.txt
@cls
@goto kK

:15BCZ
@cls
@echo.
@echo 没有检查到 “服务备份文件”！
@echo.
echo. & pause
@goto kK

:26
@echo off
echo 
@cls
@echo.
@echo 修改TTL键值避免黑客攻击。使ping结果128变成64，使之黑客将 win xp 系统
@echo.
@echo 错误判为 Linux 系统，使其攻击不成功。
@echo.
@echo.
@echo 要修改设置 恢复默认设置 反 回 主 页
@echo.
ConsExt /fillrect 12 5 53 3 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 26
if %mX% GTR 15 if %mX% LSS 25 if %mY%==07 goto 26A
if %mX% GTR 32 if %mX% LSS 45 if %mY%==07 goto 26B
if %mX% GTR 51 if %mX% LSS 62 if %mY%==07 goto kk
ping 127.1 /n 1 >nul
goto 26

:26A
echo 
echo Windows Registry Editor Version 5.00 >xg.reg
echo. >>xg.reg
echo >>xg.reg
echo "DefaultTTL"=dword:00000040 >>xg.reg
regedit /s xg.reg
del xg.reg
@cls
@echo.
@echo 已经修改 TTL 键值，使ping结果128变成64
pause>nul
goto KK

:26B
echo 
@echo off
@cls
@echo.
@echo 恢复 TTL 键值， 还原 win xp ping 结果128
@echo.
pause>nul
echo Windows Registry Editor Version 5.00 >xg.reg
echo. >>xg.reg
echo >>xg.reg
echo "DefaultTTL"=- >>xg.reg
regedit /s xg.reg
del xg.reg
@cls
@echo.
@echo 已经还原TTL键值
pause>nul
goto KK

:27
@echo off
::2-1 收藏夹备份.txt
@cls
if not exist bfwjcf\Favorites goto 27A
@echo.
@echo 已有收藏夹备份。(Y 重新备份，HF 恢复备份到C盘)
@echo.


SET /P FSYG= Y / HF ? :
IF "%FSYG%" == "Y" GOTO 27A
IF "%FSYG%" == "HF" GOTO 27C
goto KK

:27A
if not exist bfwjcf\Favorites md bfwjcf\Favorites
if not exist bfwjcf\Favorites\链接 md bfwjcf\Favorites\链接
if not exist bfwjcf\Favorites\基金网 md bfwjcf\Favorites\基金网
copy "%userprofile%\Favorites\*" bfwjcf\Favorites\
copy "%userprofile%\Favorites\链接\" bfwjcf\Favorites\链接\
copy "%userprofile%\Favorites\基金网\" bfwjcf\Favorites\基金网\
@cls
@echo.
@echo 收藏夹已备份完成
@echo.
ping 127.1 /n 3 >nul
goto KK

:27C
@echo off
::2-2 恢复收藏夹备份.txt
@cls

if not exist "%userprofile%\Favorites\基金网" md "%userprofile%\Favorites\基金网"
if not exist "%userprofile%\Favorites\链接" md "%userprofile%\Favorites\链接"
copy bfwjcf\Favorites\ "%userprofile%\Favorites"
copy bfwjcf\Favorites\基金网\ "%userprofile%\Favorites\基金网"
copy bfwjcf\Favorites\链接\ "%userprofile%\Favorites\链接"
@cls
@echo.
@echo 已将备份恢复到C盘收藏夹
@echo.
ping 127.1 /n 3 >nul
goto KK

:28
@echo off
::C-1 查看或设置系统启动项.txt
@cls
CALL C:\WINDOWS\system32\msconfig.exe
goto KK

:29
@echo off
@title 当前运行的程序信息
@echo.
@set /p FSYGJI= 请输入 DLL 名,以查找正在调用的程序(默认所有)：
cls
@echo.
@echo 收集当前正在调用的 DLL 数据，请稍候......
@echo.>c:\程序信息记录.txt
@echo 当前运行程序信息记录 (%date% %time%)>>c:\程序信息记录.txt
@echo.>>c:\程序信息记录.txt
@echo 进程名 PID号 调用的 DLL>>c:\程序信息记录.txt
tasklist /m >>c:\程序信息记录.txt
@echo.>>c:\程序信息记录.txt
if "%FSYGJI%"=="" goto dtye
@echo.>>c:\程序信息记录.txt
echo 查找的 %FSYGJI% 正在被以下程序调用>>c:\程序信息记录.txt
tasklist /m "%FSYGJI%">>c:\程序信息记录.txt
:dtye
::所在路径
@echo off
@echo 被调用的dll及所在路径:>>c:\程序信息记录.txt
for /f "skip=3" %%a in ('tasklist /nh') do (
for /f "tokens=1,2* delims=," %%b in ('tasklist /fi "imagename eq %%a" /m /fo csv /nh') do (
echo ├—进程名:%%a PID号: %%c>>c:\程序信息记录.txt
for %%e in (%%~d) do (
if "%%~$PATH:e" == "" (
set _%%a_%%e=0
echo │├─注意!额外目录的 %%e>>c:\程序信息记录.txt
) else (echo │├─%%~$PATH:e>>c:\程序信息记录.txt)
)
)
)
@echo.>>c:\程序信息记录.txt
@echo (集中)额外目录的DLL>>c:\程序信息记录.txt
for /f "tokens=1,2 delims=_=" %%i in ('set _') do echo %%i---%%j>>c:\程序信息记录.txt
::获取已启动系统服务的DLL调用路径
@echo.
echo 正在收集已启动系统服务的 DLL 路径... ...
@echo off&setlocal enabledelayedexpansion
echo.>>c:\程序信息记录.txt
echo ========================================>>c:\程序信息记录.txt
@echo.>>c:\程序信息记录.txt
echo 程序名 当前启动系统服务的DLL及路径>>c:\程序信息记录.txt
@echo.>>c:\程序信息记录.txt
for /f "tokens=1-2*" %%a in ('tasklist /svc /nh /fi "IMAGENAME EQ SVCHOST.EXE"') DO (
if "%%a"=="svchost.exe" (set S_list=%%c) else (set S_list=%%a%%b%%c)
for %%x in (!S_list!) do (
set "S_name=%%x"
set "S_name=!S_name! "
set "S_name=!S_name:~0,20!"
for /f "tokens=1-2*" %%h in ('REG QUERY HKLM\SYSTEM\CURRENTCONTROLSET\SERVICES\%%x\PARAMETERS /V SERVICEDLL ^| findstr "SERVICEDLL"') do (call echo/!S_name!%%j>>c:\程序信息记录.txt)
)
)
echo ========================================>>c:\程序信息记录.txt
@echo.
echo 正在收集本机开放的端口及使用该端口的进程名和PID号... ...
echo.>>c:\程序信息记录.txt
echo 本机开放的端口及使用该端口的进程名和PID号 >>c:\程序信息记录.txt
echo ------------------------------------------->>c:\程序信息记录.txt
echo.>>c:\程序信息记录.txt
echo 开放的端口号 当前进程名 PID>>c:\程序信息记录.txt
echo.>>c:\程序信息记录.txt
echo TCP协议: >>c:\程序信息记录.txt
cd.>dqcl.txt
cd.>dqid.txt
for /F "skip=4 tokens=2,5" %%i in ('netstat -ano -p TCP') do echo %%i %%j:>>dqcl.txt
for /F "tokens=2 delims=:" %%i in (dqcl.txt) do echo %%i>>dqid.txt
for /F "tokens=1,2" %%i in (dqid.txt) do (
call :dy
)
echo UDP协议:>>c:\程序信息记录.txt
cd.>dqcl.txt
cd.>dqid.txt
for /F "skip=4 tokens=2,4" %%i in ('netstat -ano -p UDP') do echo %%i %%j:>>dqcl.txt
for /F "tokens=2 delims=:" %%i in (dqcl.txt) do echo %%i>>dqid.txt
for /F "tokens=1,2" %%i in (dqid.txt) do (
call :dy
)
del dqcl.txt
del dqid.txt
goto eofwe
:dy
for /F "skip=3 tokens=1,2" %%k in ('Tasklist') do (
if "%%l"=="%%j" echo %%i %%k %%l>>c:\程序信息记录.txt
)
goto eof>nul 2>nul
:eofwe
@echo off
@echo.
@echo 当前进程所在位置......
@echo.>>c:\程序信息记录.txt
@echo PID号 当前进程名称 程序所在位置>>c:\程序信息记录.txt
@echo.>>c:\程序信息记录.txt
@echo for each ps in getobject _ >lswj.vbs
@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>lswj.vbs
@echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>lswj.vbs
cscript //nologo lswj.vbs>>c:\程序信息记录.txt
del lswj.vbs
start c:\程序信息记录.txt
@goto kK

:30
@echo off
::39 进入事件查看器.txt
call C:\WINDOWS\system32\eventvwr.msc
@goto kK

:31
@echo off
::50 反删除工具
@cls
@echo.
@echo 如果你的文件不小心被删除，以下提供二款删除找回工具。
@echo.
@echo 1 找回工具Recover4all-Professional.exe； 2 找回工具Handy Recovery.exe；
@echo.
@set /p FSYGJI= 输入1 或2 :
@if "%FSYGJI%"=="1" goto SMAR
@if "%FSYGJI%"=="2" goto HANDY
@goto kK
:SMAR
if not exist %windir%\wwxm del %0

call gjx\fscSmartUndelete\Recover4all-Professional.exe
@goto kK
:HANDY
call gjx\fscSmartUndelete\找回不慎删除的文件.exe

@goto kK

:32
@echo off
::51 微软安全扫描维护.txt
@cls
@echo >sm.URL
@echo URL=http://onecare.live.com/site/zh-cn/center/tuneup.htm>>sm.URL
call sm.URL
del sm.URL
@goto kK

:33
@echo off
call gjx\jzwhdjsq\procmon.exe
@goto kK

:34
@echo off
::46 安全辅助工具SREng.txt
CALL gjx\SREng\SREngPS.EXE
goto KK

:35
@echo off
CALL gjx\测试侦察查看\查看已注册的dllocxexe组件\RegDllView.exe
goto KK

:36
@echo 
@cls
@echo off
@echo.
@echo.
@echo 网络设置备份 （IP、子网掩码、默认网关、DNS）
@echo.
@echo 网络设置恢复 （IP、子网掩码、默认网关、DNS）
@echo.
@echo 自动配置网络数据 (绑定IP地址)
@echo.
@echo 自定义网络配置（IP、子网掩码、默认网关、DNS）
@echo.
@echo 检查网络是否连接正常
@echo.
@echo 查看开放端口及使用该端口的进程
@echo.
@echo 更改远程控制默认端口 3389 为 1025
@echo.
@echo 恢复远程控制默认端口 3389
@echo.
@echo 退 回 到 主 界 面
@echo.
ConsExt /fillrect 10 1 47 19 1 15

::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 36
if %mX% GTR 13 if %mX% LSS 55 if %mY%==03 goto 36A
if %mX% GTR 13 if %mX% LSS 55 if %mY%==05 goto 36B
if %mX% GTR 13 if %mX% LSS 42 if %mY%==07 goto 36DA
if %mX% GTR 13 if %mX% LSS 55 if %mY%==09 goto 36D
if %mX% GTR 13 if %mX% LSS 33 if %mY%==11 goto 36C
if %mX% GTR 13 if %mX% LSS 43 if %mY%==13 goto 36E
if %mX% GTR 13 if %mX% LSS 45 if %mY%==15 goto 36F
if %mX% GTR 13 if %mX% LSS 38 if %mY%==17 goto 36G
if %mX% GTR 13 if %mX% LSS 30 if %mY%==19 goto KK
ping/n 1 127.1>nul>NUL
goto 36

:36A
@echo 
@echo off
if not exist bfwjcf md bfwjcf
if exist bfwjcf\网络设置备份文件.txt goto 36Y
@cls
netsh -c interface dump > bfwjcf\网络设置备份文件.txt
@echo.
@echo 网络备份已完成！
@echo.
echo. & pause
@goto 36

:36Y
@echo.
@echo 你已经有备份文件！如果要重新备份,请将原备份文件删除，再重新备份！
@echo.
echo. & pause
@goto 36

:36B
@echo 
@echo off
if exist bfwjcf\网络设置备份文件.txt goto :36BY
@cls
@echo.
@echo 你没有网络设置备份文件！
@echo.
echo. & pause
@goto 36

:36BY
@echo.
@echo 正在执行网络设置，请稍候....
netsh -f bfwjcf\网络设置备份文件.txt
@echo.
@echo 网络恢复已完成！
@echo.
pause>nul
@goto 36

:36C
@echo 
:: BJQQ251485609
@echo off
if exist bfwjcf\tqxx.txt goto jcwl
if not exist bfwjcf md bfwjcf
ipconfig /all >bfwjcf\tqxx.txt
:jcwl
find "Description" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do @echo %%J>wk.txt
计算机网卡
for /f "tokens=2 delims= " %%J in (wk.txt) do set cxm=%%J
::IP 地址
find "IP Address" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm2=%%J
::子网掩码
find "Subnet Mask" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm3=%%J
::默认网关
find "Default Gateway" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm4=%%J
::DNS 首选服务器
find "DNS Servers" bfwjcf\tqxx.txt >xm.txt
for /f "tokens=2 delims=:" %%J in (xm.txt) do set cxm5=%%J
::DNS 备用服务器
for /f "tokens=1* delims=:" %%i in ('findstr /n . bfwjcf\tqxx.txt') do if %%i equ 20 @echo %%j>Phy.txt
for /f " tokens=1" %%M in (Phy.txt) do set cxm6=%%M
del xm.txt
del wk.txt
del Phy.txt
cls
:: 检查外网连接
(ping /n 1 www.163.com)|findstr /i /r "TTL"
if %errorlevel%==0 echo 远程 IP 外网(www.163.com)连接正常。&&pause&&goto 36
cls
@echo.
@echo 测试: 远程无信息返回，外网有故障或未能连接
@echo.
:: 检查本机DNS服务器设置
(ping /n 1 %cxm5%)|findstr /i /r "TTL"
if %errorlevel%==0 echo 本机DNS服务器设置%cxm5%正常 &&pause&&goto 36
cls
@echo.
@echo 测试: 远程无信息返回，检查本机DNS设置(%cxm5%)或外网(路由进线)故障
@echo.
:: 检查本机 IP 地址
(ping /n 1 %cxm2%)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 本机IP地址(%cxm2%)及路由正常&&pause&&goto 36
cls
@echo.
@echo 测试: 本机IP地址(%cxm2%)无信息返回。请检查 IP 设置、网卡及电缆接口。
@echo.
:: 检查网关路由器
(ping /n 1 %cxm4%)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 路由器默认网关(%cxm4%)正常&&pause&&goto 36
cls
@echo.
@echo 测试: 路由器网关(%cxm4%)无信息返回。请检查网关设置、网卡及电缆接口。
@echo.
:: 检查本机 TCP/IP 协议
(ping -n 1 127.1)|findstr /i /r "TTL"
if %errorlevel%==0 @echo 测试: 本机TCP/IP协议(127.0.0.1)正常; 检查结束。&&pause&&goto 36
cls
@echo 测试: 本机TCP/IP协议(127.0.0.1)无信息返回
@echo 检查结束。
pause>nul
@goto 36

:36DA
@echo 
@echo off
@title 自动配置网络数据 wangweibj070102xpsp2
@echo.
@echo.
@echo 如果要自动配置网络数据(绑定IP地址),请点击屏幕右下角的电视图标--属性--
@echo.
@echo (TCP/IP)-- 属性--勾选自动获得IP地址和勾选自动获得DNS服务器地址。以便下一
@echo.
@echo 步获取服务器自动分配的网络信息。
@echo.
@echo * * * * *
@echo.
pause
@echo off
@echo.
@echo 正在获取服务器自动分配网络信息，请稍候...
@echo.
:: 获取服务器自动分配网络信息
ipconfig -all >t.txt
:: 将t.txt中空格用“大”替换并写入3.txt中
for /f "delims=" %%d in (t.txt) do (
set "a=%%d"
call set "b=%%a:"=%%"
call set "c=%%b: =大%%"
for /f "delims=" %%h in ('echo "%%c%%"') do echo %%~h >>3.txt
)
del t.txt
@cls
set Connection-specific= 连接特定的
set Suffix=后缀
set Description= 描述
set Physical= 本地计算机
set Address.=地址.
set Enabled.=激活.
set Yes=是
set Mask=掩码
set Default= 默认
set Gateway=网关
set Server=服务器
set Servers=首选服务器
set Lease= 租借
set Obtained.=获得时间
set Expires=期满时间
set Configuration=配置
set Host= 计算机
set Name=名
set Ethernet= 以太网
set adapter=适配器
set Primary= 首要的
set Node= 节点
set Type=类型
set Unknown=未知的
set No=没有
set Routing=路由选择
set WINS= 特别
set Proxy=代理
set Fast=相连的
set Family=家庭用
set Realtek=计算机网卡
set Enabled=激活
set Subnet= 子网
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('ipconfig -all') do (
set ret=
for %%a in (%%i) do if defined %%a (set ret=!ret!!%%a!) else set ret=!ret! %%a
if not "!ret!"=="" (set ret=!ret:time=时间! && echo !ret!) else echo.
)
@echo.
@echo 以上是获取服务器自动分配的 IP 网络信息，以下将按照这个数据自动
@echo.
@echo 绑定 IP 地址，使你的 IP 地址由你固定使用，就不会分配给其他用户了。
@echo.
@echo 开始配置网络固定IP
@echo.
pause
@cls
@echo.
@echo 正在自动配置，请稍候...
:: 提取第17行信息
for /f "tokens=1* delims=:" %%j in ('findstr /n . 3.txt') do if %%j equ 17 @echo %%k>2.txt
:: 删除前44个字符获取IP字符串
FOR /F %%i in (2.txt) do set m=%%i
echo %m:~44%>a.txt
del 2.txt
:: 提取第18行信息
for /f "tokens=1* delims=:" %%a in ('findstr /n . 3.txt') do if %%a equ 18 @echo %%b>2.txt
:: 删除前44个字符获取IP字符串
FOR /F %%i in (2.txt) do set m=%%i
echo %m:~44%>b.txt
del 2.txt
:: 设置变量和替换IP地址，子网掩码地址
FOR /F %%I IN (a.txt) DO SET wfsy1=%%I
FOR /F %%I IN (b.txt) DO SET wfsy2=%%I
netsh interface IP set address name="本地连接" source=static addr=%wfsy1% mask=%wfsy2%
del a.txt
del b.txt

:: 提取第19行信息
for /f "tokens=1* delims=:" %%c in ('findstr /n . 3.txt') do if %%c equ 19 @echo %%d>2.txt
:: 删除前44个字符获取IP字符串
FOR /F %%i in (2.txt) do set m=%%i
echo %m:~44%>a.txt
del 2.txt
:: 设置变量和替换默认网关地址
FOR /F %%I IN (a.txt) DO SET wfsy3=%%I
netsh interface IP set address name="本地连接" gateway=%wfsy3% gwmetric=0
del a.txt
:: 提取第21行信息
for /f "tokens=1* delims=:" %%e in ('findstr /n . 3.txt') do if %%e equ 21 @echo %%f>2.txt
:: 删除前44个字符获取IP字符串
FOR /F %%i in (2.txt) do set m=%%i
echo %m:~44%>a.txt
del 2.txt
:: 设置变量和替换首选DNS服务器地址
FOR /F %%I IN (a.txt) DO SET wfsy4=%%I
netsh interface IP set DNS name="本地连接" source=static addr=%wfsy4% register=PRIMARY
del a.txt
:: 提取第22行信息
for /f "tokens=1* delims=:" %%g in ('findstr /n . 3.txt') do if %%g equ 22 @echo %%h>2.txt
:: 删除前44个字符获取IP字符串
FOR /F %%i in (2.txt) do set m=%%i
echo %m:~44%>a.txt
del 2.txt
del 3.txt
:: 设置变量和替换备用DNS服务器地址
FOR /F %%I IN (a.txt) DO SET wfsy5=%%I
netsh interface IP add DNS name="本地连接" addr=%wfsy5% index=2
del a.txt
:: 没有了
netsh interface IP set wins name="本地连接" source=static addr=none
@echo.
@echo 网络自动配置已完成！
@echo.
pause>nul
@goto 36

:36D
@echo 
@cls
@echo.
@echo 在自定义配置网络（绑定IP地址）之前，请点击屏幕右下角的电视图标--
@echo.
@echo 属性--(TCP/IP)-- 属性--勾选自动获得IP地址和勾选自动获得DNS服务器地址。
@echo.
@echo 以便获取服务器自动分配网络（即:IP地址、子网掩码、默认网关、首选DNS服
@echo.
@echo 务器及备用DNS服务器）信息，以免配置IP不可用。将获取的信息填入自定义
@echo.
@echo 配置绑定IP地址（即永久固定使用）。
@echo.
@echo ------ ===== ------ ===== ------ ===== -----
@echo.
@echo 是否获取服务器自动分配的 IP 信息？
@echo.
echo. & pause
@echo off
@title 获取服务器自动分配网络信息(中文显示) wangwei20061219
@cls
set Connection-specific= 连接特定的
set Suffix=后缀
set Description= 描述
set Physical= 本地计算机
set Address.=地址.
set Enabled.=激活.
set Yes=是
set Mask=掩码
set Default= 默认
set Gateway=网关
set Server=服务器
set Servers=首选服务器
set Lease= 租借
set Obtained.=获得时间
set Expires=期满时间
set Configuration=配置
set Host= 计算机
set Name=名
set Ethernet= 以太网
set adapter=适配器
set Primary= 首要的
set Node= 节点
set Type=类型
set Unknown=未知的
set No=没有
set Routing=路由选择
set WINS= 特别
set Proxy=代理
set Fast=相连的
set Family=家庭用
set Realtek=计算机网卡
set Enabled=激活
set Subnet= 子网
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('ipconfig -all') do (
set ret=
for %%a in (%%i) do if defined %%a (set ret=!ret!!%%a!) else set ret=!ret! %%a
if not "!ret!"=="" (set ret=!ret:time=时间! && echo !ret!) else echo.
)

echo.
echo. & pause
@echo off
@echo.
@echo 自定义配置网络（固定使用IP地址） IP、子网掩码、默认网关、DNS
@echo.
@echo.
set/p wfsy1=请输入你选定的IP配置地址:
@echo.
set/p wfsy5=请输入你选定的子网掩码:

netsh interface IP set address name="本地连接" source=static addr=%wfsy1% mask=%wfsy5%

set/p wfsy2=输入默认网关地址:
netsh interface IP set address name="本地连接" gateway=%wfsy2% gwmetric=0

set/p wfsy3=输入首选 DNS 服务器地址:
netsh interface IP set DNS name="本地连接" source=static addr=%wfsy3% register=PRIMARY

set/p wfsy4=输入备用 DNS 服务器地址:
netsh interface IP add DNS name="本地连接" addr=%wfsy4% index=2

netsh interface IP set wins name="本地连接" source=static addr=none
pause
@goto 36

:36E
@echo 
@echo off
:: wangwei080302bjQQ251485609
cls
echo.
echo 本机开放的端口及使用该端口的进程名和PID号
echo -------------------------------------------
echo.
echo.
echo 端口号 进程名 PID
echo.
echo TCP协议:
cd.>cl.txt
cd.>dq.txt
for /F "skip=4 tokens=2,5" %%i in ('netstat -ano -p TCP') do echo %%i %%j:>>cl.txt
for /F "tokens=2 delims=:" %%i in (cl.txt) do echo %%i>>dq.txt
for /F "tokens=1,2" %%i in (dq.txt) do (
call :dy
)
echo UDP协议:
cd.>cl.txt
cd.>dq.txt
for /F "skip=4 tokens=2,4" %%i in ('netstat -ano -p UDP') do echo %%i %%j:>>cl.txt
for /F "tokens=2 delims=:" %%i in (cl.txt) do echo %%i>>dq.txt

for /F "tokens=1,2" %%i in (dq.txt) do (
call :dy
)
del cl.txt
del dq.txt
pause
goto 36
:dy
for /F "skip=3 tokens=1,2" %%k in ('Tasklist') do (
if "%%l"=="%%j" echo %%i %%k %%l
)
goto eof>nul 2>nul

:36F
@echo 
@echo off
@cls
echo Windows Registry Editor Version 5.00 > c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "PortNumber"=dword:00000401 >> c:\hfxtyc.reg
echo "ServiceName"="tcpip" >> c:\hfxtyc.reg
regedit /s c:\hfxtyc.reg
del c:\hfxtyc.reg
echo.
echo 远程控制默认端口 3389 也更改为 1025 ！
echo.
pause
@goto 36

:36G
@echo 
@echo off
@cls
echo Windows Registry Editor Version 5.00 > c:\hfxtyc.reg
echo. >> c:\hfxtyc.reg
echo >> c:\hfxtyc.reg
echo "PortNumber"=dword:00000d3d >> c:\hfxtyc.reg
echo "ServiceName"="tcpip" >> c:\hfxtyc.reg
regedit /s c:\hfxtyc.reg
del c:\hfxtyc.reg
echo.
echo 恢复 3389 远程控制默认端口已完成！
echo.
pause
@goto 36

:36H
@echo 
@echo off
@cls
echo Windows Registry Editor Version 5.00 > c:\bdljck.reg
echo. >> c:\bdljck.reg
echo >> c:\bdljck.reg
echo "ShowLanErrors"=dword:00000001 >> c:\bdljck.reg
regedit /s c:\bdljck.reg
del c:\bdljck.reg
echo.
echo 已完成本设置
echo.
pause
@goto 36

:37
@echo 
@echo off
::49 获取计算机资料信息.txt
@cls
:: wangwei080220bj
@echo.
@echo 正在获取PC信息，请稍候 ... ...
@echo.
systeminfo>znxm.txt
ipconfig /all >tqxx.txt
for /f "tokens=2 delims=:" %%J in ('find /i "Physical Address" tqxx.txt') do set cxm1=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Description" tqxx.txt') do set cxm=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "IP Address" tqxx.txt') do set cxm2=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Subnet Mask" tqxx.txt') do set cxm3=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "Default Gateway" tqxx.txt') do set cxm4=%%J
for /f "tokens=2 delims=:" %%J in ('find /i "DNS Servers" tqxx.txt') do set cxm5=%%J
for /f "tokens=1* delims=:" %%i in ('findstr /n . tqxx.txt') do if %%i equ 20 @echo %%j>Phy.txt
for /f " tokens=1" %%M in (Phy.txt) do set cxm6=%%M
del tqxx.txt
del Phy.txt
@echo 计算机地址: %cxm1%>>znxm.txt
@echo 计算机网卡: %cxm%>>znxm.txt
@echo IP 地址: %cxm2%>>znxm.txt
@echo 子网掩码: %cxm3%>>znxm.txt
@echo 默认网关: %cxm4%>>znxm.txt
@echo DNS 首选服务器: %cxm5%>>znxm.txt
@echo DNS 备用服务器: %cxm6%>>znxm.txt
move znxm.txt PC信息.txt
call PC信息.txt
del PC信息.txt
@goto kK

:38
@echo 
@echo off
@echo.
@echo 注册表比较工具，通过两次抓取注册表而快速地比较出答案...可以找出变化...
@echo.
@echo 你还可以破解... ...
@echo.
pause
CLS
call gjx\注册表快照比较\Regshot.exe
@goto kK

:39
@echo 
@echo off
cls
@echo.
@echo 用这个方法建立的畸形文件夹，普通方法不易删除。可以拷贝文件到畸形文
@echo.
@echo 件夹内而不易被发现(鼠标显示0字节)，可以用命令查看、拷出、可以向文件写入。
@echo.
@echo 作用：防删除
@echo.
@echo 建造畸形目录 1 删除畸形目录 2 查看 3 拷贝入 4 拷贝出 5
@echo.
set /p jz= 输入选择:
if "%jz%"=="1" goto jz
if "%jz%"=="2" goto scwj
if "%jz%"=="3" goto ck
if "%jz%"=="4" goto kbr
if "%jz%"=="5" goto kbc
goto kk

:jz
@echo.
set /p jx= 输入畸形文件名:
@echo.
set /p lj= 输入建立路径(如 c盘 c: 或c:\***):
md "%lj%"\%jx%..\
start %lj%\
goto kk

:kbr
set /p jx= 输入畸形文件夹名:
@echo.
set /p jxl= 输入畸形文件夹路径:
@echo.
set /p lj= 输入拷贝入的文件名及路径:
copy %lj% %jxl%\%jx%.\
start %jxl%\%jx%.\
goto kk

:kbc
@echo.
set /p jx= 输入畸形文件夹名:
@echo.
set /p jxl= 输入路径:
copy %jxl%\%jx%.\*.* ym.txt
start ym.txt
goto kk

:ck
@echo.
set /p jx= 输入畸形文件名:
@echo.
set /p jxl= 输入路径:
start %jxl%\%jx%.
pause
goto kk

:scwj
@echo.
@echo 这里为你建造(普通方法删不掉时)一个专门删除畸形文件目录的垃圾桶，
@echo.
@echo 把要删除的畸形文件目录拉入垃圾桶就 ok
@echo.
set /p JL= 请按任意键 建造
@echo off
@echo.>垃圾桶.bat
@echo @echo off>>垃圾桶.bat
@echo if not "%%~n1"=="" if not exist "%%~f1" goto AAS>>垃圾桶.bat
@echo if not "%%~n1"=="" if exist "%%~f1" goto AAS>>垃圾桶.bat
@echo color 7c>>垃圾桶.bat
@echo cls>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo @echo 文件垃圾桶>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo @echo 可删除任意文件或畸形目录 可将目标文件或目录拖放垃圾桶中.>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo @echo 即: 无须打开本程序。>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo @echo 制作: 王 伟 QQ: 251485609>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo pause^>nul 2^>nul>>垃圾桶.bat
@echo echo >>垃圾桶.bat
@echo goto eof>>垃圾桶.bat
@echo :AAS>>垃圾桶.bat
@echo set rt="%%~n1">>垃圾桶.bat
@echo if "%%rt:~1,1%%"=="&" goto BS>>垃圾桶.bat
@echo if "%%rt:~1,2%%"=="^&" goto BS>>垃圾桶.bat
@echo del /f /a /q \\?\%%1 ^>nul 2^>nul>>垃圾桶.bat
@echo rd /s /q \\?\%%1 ^>nul 2^>nul>>垃圾桶.bat
@echo echo >>垃圾桶.bat
@echo goto eof>>垃圾桶.bat
@echo :BS>>垃圾桶.bat
@echo @echo.>>垃圾桶.bat
@echo @echo 为了安全，不支持此类危险删除。>>垃圾桶.bat
@echo echo >>垃圾桶.bat
@echo pause^>nul 2^>nul>>垃圾桶.bat
cls
@echo 垃圾桶建造成功，在本程序目标文件夹中。
ping 127.1 /n 5 >nul
@goto kk

:pjz
@echo off
cls
@echo.
@echo 查看 bat转exe 源代码
@echo.
@echo 运行本程序找出**.exe释放的*.bat运行路径，输入路径copy出源码文件.
@echo.
@echo.
@echo 制作 Wangwei QQ：251485609
@echo.
set /p wjm= 输入文件名:
:cfz
cls
start %wjm%
::查找bat或cmd运行路经
wmic process where name="cmd.exe" get commandline>lj.txt
@echo 请 复制 *.bat 运行路径>llj.txt
more +2 lj.txt>>llj.txt
del lj.txt
start llj.txt
@echo.
set /p lj= 输入路径(如果没有得到路径请回车):
if "%lj%"=="" goto cfz
@echo.
set /p ljj= 释放的扩展类型( bat/cmd ):
if "%ljj%"=="" set ljj=bat
start %wjm%
::解除属性
Attrib -r -h -a -s "%lj%\*.%ljj%"
copy "%lj%\*.%ljj%" ym.txt
::一般性解密
cd.>jm.txt
copy jm.txt+ym.txt 源码.txt
del ym.txt
del jm.txt
del llj.txt
start 源码.txt
@goto kk

:40
@echo off
@echo 
CLS
@echo.
@echo.
@echo.
@echo 软硬件信息侦察 cpu主板内存查看 驱动查看
@echo.
@echo 硬盘测试 显示器测试 编程欣赏
@echo.
@echo 双语版CMD命令速查手册 反 回 主 页
@echo.
@echo 智能计算器
ConsExt /fillrect 9 2 54 7 1 15

::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto 40
if %mX% GTR 12 if %mX% LSS 25 if %mY%==04 goto 40A
if %mX% GTR 32 if %mX% LSS 47 if %mY%==04 goto 40B
if %mX% GTR 53 if %mX% LSS 62 if %mY%==04 goto 40E
if %mX% GTR 12 if %mX% LSS 20 if %mY%==06 goto 40C
if %mX% GTR 32 if %mX% LSS 42 if %mY%==06 goto 40D
if %mX% GTR 53 if %mX% LSS 62 if %mY%==06 goto 40F
if %mX% GTR 12 if %mX% LSS 33 if %mY%==08 goto 40G
if %mX% GTR 12 if %mX% LSS 21 if %mY%==10 goto 40js
if %mX% GTR 50 if %mX% LSS 61 if %mY%==08 goto kK
ping/n 3 127.1>nul>NUL
goto 40

:40A
@echo off
call gjx\测试侦察查看\软硬件信息侦察\Everest.exe
@goto 40
:40B
@echo off
call gjx\测试侦察查看\cpu主板内存查看CPUZ.EXE
@goto 40
:40C
@echo off
call gjx\测试侦察查看\硬盘测试HDTUNE.EXE
@goto 40
:40D
@echo off
call gjx\测试侦察查看\显示器测试DISPLAYX.EXE
@goto 40
:40E
@echo off
call gjx\测试侦察查看\驱动与服务SERVIWIN.EXE
@goto 40
:40F
@echo off
cls
@echo.
@echo 编程欣赏1 编程欣赏2 编程欣赏3
@echo.
@echo.
@set /p YJI= 请输入选择(T 退出):
@if "%YJI%"=="1" goto BC1
@if "%YJI%"=="2" goto BC2
@if "%YJI%"=="3" goto BC3
@goto kK
:BC1
@echo off
cls
call gjx\jdbc\mjd1.bat
@goto 40F
:BC2
@echo off
cls
call gjx\jdbc\jd2.exe
@goto 40F
:BC3
@echo off
cls
call gjx\jdbc\jd3.exe
@goto 40F

:40G
@echo off
::双语版CMD命令速查手册 QQ:251485609 修改
setlocal EnableDelayedExpansion
@echo 请稍候，正在创建CMD命令目录...
>CMD命令速查手册.htm echo ^<center^>^<h1^>CMD 命令速查手册^</h1^>%username% in %date% %time%^</center^>^<br^>
>>CMD命令速查手册.htm echo ^<table^>
for /f "delims=:" %%f in ('help^|findstr /n "^ASSOC"') do set head=%%f
set /a head-=1
if "%head%"=="0" (set head=) else set head=skip=%head%
for /f "%head% delims=" %%i in ('help') do (
set str=%%i & set name=!str:~0,9! & set desc=!str:~9!
echo.!name! | findstr /v "^" >nul && echo !desc! >>CMD命令速查手册.htm
if errorlevel 1 echo ^</td^>^</tr^>^<tr^>^<td^>^<a href="#!name!"^>!name!^</a^>^</td^>^<td^>^ ^ ^ !desc!>>CMD命令速查手册.htm
)
cls
>>CMD命令速查手册.htm echo ^</td^>^</tr^>^</table^>^<br^>^<a href="#top"^>返回页首^</a^>^<br^>
for /f %%i in ('help') do (
echo * * * * * * *>>CMD命令速查手册.htm
echo.>>CMD命令速查手册.htm
>>CMD命令速查手册.htm echo ^<a name="%%i"^>^<h2^>%%i^</h2^>^<pre^>
cls
graftabl 936>nul
@echo 正在创建 %%i 命令帮助 ...
help %%i>>CMD命令速查手册.htm
echo ────────────────────────>>CMD命令速查手册.htm
echo 英文对照:>>CMD命令速查手册.htm
cls
chcp 437>nul
help %%i>>CMD命令速查手册.htm
echo.>>CMD命令速查手册.htm
>>CMD命令速查手册.htm echo ^</td^>^</tr^>^</table^>^<br^>^<a href="#top"^>返回页首^</a^>^<br^>
)
graftabl 936>nul
ren CMD命令速查手册.htm 双语版CMD命令速查手册.htm
start 双语版CMD命令速查手册.htm
@goto 40

:40H
@echo off
@echo.
@echo 如果感觉桌面快捷方式的箭头不喜欢，可以把它去除。已经去除小箭头，也可恢复。
@echo.
@echo.
@set /p syu= 回车:
for /f %%a in ('reg query hkcr\lnkfile^|find /c /i "IsShortcut"') do (
if %%a==0 (
reg add hkcr\lnkfile /f /v IsShortcut /t REG_SZ /d Yes>nul
reg add hkcr\piffile /f /v IsShortcut /t REG_SZ /d Yes>nul
) else (
reg delete hkcr\lnkfile /v IsShortcut /f>nul
reg delete hkcr\piffile /v IsShortcut /f>nul
)
)
taskkill /f /im explorer.exe>nul
start /min explorer.exe
@goto kk

:40js
@echo off&set wenben=&set jiluk=&set /a jilu=0,xiaosu=10
color 1c
title %~n0 智能计算器 作者 --- 随风 2009-02-22
setlocal enabledelayedexpansion&set "lin=00000"
for /l %%a in (1 1 5) do set "lin=!lin!!lin!!lin!"
echo. 可对1000位以内 整数、小数、负数进行 加减乘除 计算（除法 500 位）
echo.&echo. 1000位 指需计算的数的位数不能超过1000位，包扩小数点及小数的位数
set xiansi=除法默认保留 %xiaosu% 位小数，可自行修改代码第一行的
set xiansi=%xiansi% set /a xiaosu=%xiaosu%
echo.&echo. %xiansi%
echo.&echo. 运算符为 + - * / ( ) { }
echo.&echo. 计算次序按 先括弧内、后括弧外、先乘除、再加减 的次序。
echo.&echo. 负数的输入如：15减负8 则输入 15 - - 8 或负30乘负6 则 - 30 * - 6
echo.&echo. 可以进行连续运算 比如输入： -7++-5*9
echo.&echo. 括弧外测的乘号可省略如：2*(5+3)可简写成 2(5+3) 或 (5+3)2
echo.&echo. ===============================================================
echo.&echo. 输入文件名计算该文件中的算式，文本中必须是一行一个算式。
echo.&echo. 算式后面的 = 号 可有可无 如：(-7)+5-(-0.02)*9/0.0008+5=
echo.&echo. 直接回车进入手动输入算式界面。
echo.&set /p wenben= &cls&color 1f&set baocun=temp.txt
if defined wenben set "wenben=%wenben:"=%"
if defined wenben (
if not exist "%wenben%" echo 文件不存在。。&ping/n 3 127.0>nul&exit
for /l %%a in (1 1 10) do call set "koge= %%koge%%"
echo.&echo. 正在计算 %wenben:"=% 中的算式，结果保存在 %baocun% 中
echo.&echo. 请稍候 。。。&echo.
) else (
cls&echo.&echo. 累计储存结果：!leiji! = !jilu!
echo.&echo.&goto start0
)
setlocal enabledelayedexpansion&cd.>"%baocun%"
for /f "usebackq delims=" %%a in ("%wenben%") do (
call :start0 "%%a" okk
>>"%baocun%" echo !okk!
)
start "" "%baocun%"
exit
:start0
setlocal
if defined wenben set suru=%~1&goto wenben
echo.&echo. 若在算式末尾加上运算符 可把该次计算结果累计到 存储结果中 如：2+6+
echo.&echo. 加上 . 将储存结果中的值更改为该次计算结果 如输入：2+6.
echo.&echo. 举例：输入 2+6 / 表示用该次计算结果 即：8 除以储存结果中的值
echo.&echo. 小技巧：输入数字加点 定义储存结果的初始值
echo.&echo. 输入数字加运算符 对储存结果的值进行计算
echo.&echo. %xiansi%
echo.&echo. 请输入算式 如：-7+{2++*5/2}--2+5=
echo.&set "suru="&set /p suru= &cls
if not defined suru (
endlocal&cls
echo.&echo. 累计储存结果：!leiji! = !jilu!
echo.&echo.&goto start0
)
set "suru=%suru: =%"
if "!suru:~-1!"=="+" set jiluk=a&set "bq=+"
if "!suru:~-1!"=="-" set jiluk=a&set "bq=-"
if "!suru:~-1!"=="*" set jiluk=a&set "bq=*"
if "!suru:~-1!"=="/" set jiluk=a&set "bq=/"
if "!suru:~-1!"=="." set jiluk=a&set jilu=0&set "bq=+"
if defined jiluk set suru=!suru:~0,-1!
:wenben
set "suru=%suru: =%"
if "%suru:~-1%"=="=" set "suru=%suru:~0,-1%"
echo.&echo.正在计算： %suru% =
set xsjg=%suru% =
:::从这里开始
set "ok="
if "%suru:~0,1%"=="-" set "suru=f%suru:~1%"
call :lis1 "%suru%" ok
set "ok=!Ok:~1!"
for %%a in (x + - / ^(




%%a=]x%%a!"
set "ok=!ok:%%a{=%%ax{!"
set "ok=!ok:}%%a=}x%%a!"
)
set "ok=0+!ok!+0"
set "kuoh=()"
call :lisxh "!ok!" ok
set "kuoh="
call :lisxh "!ok!" ok
set "kuoh={}"
call :lisxh "!ok!" ok
call :liscc "!ok!" ok
call :lisjj "!ok!" ok
set ok=!ok:f=-!
::完成计算
set lecs=&set "cucw="
if defined jiluk (
set "okok=!ok!"
set "leiji=!okok! !bq! !jilu!"
if "!bq!"=="/" if "!jilu!"=="0" (
set bq=*&set /a okok=1
set "leiji=0 + !jilu!"
set lecs=以零为除数的错误。累计储存结果不变。。。
)
if "!ok!"=="以零为除数的错误。" (
set lecs=以零为除数的错误。累计储存结果不变。。。
set "leiji=0 + !jilu!"
set bq=+&set /a okok=0
)
call :start "^(!okok!^)!bq!^(!jilu!^)" jilu
)
if defined wenben endlocal&set %~2=%xsjg% %ok%&goto :EOF
cls&echo.&echo. 累计储存结果：!leiji! = !jilu! !lecs!
echo.&echo. !xsjg! !ok! !cucw!
echo.&echo.&echo.&echo.&echo.
if defined jiluk endlocal&set jilu=%jilu%
goto start0
goto :EOF
:lisxh 处理各种(){}括弧
for /f "tokens=1,2* delims=%kuoh%" %%a in ("%~1") do (
if "%%b"=="" set %~2=!ok!&goto :EOF
call :liscc "%%b" ok
call :lisjj "!ok!" ok
set "ok=!ok:-=f!"
set "ok=%%a!ok!%%c"
call :lisxh "!ok!" ok
)
goto :EOF
:liscc 计算乘除
set ph=%~1&set q=&set h=&set aa=&set n=0
set ph=!ph:x= x# !&set ph=!ph:/= /@ !
set ph=!ph:+= + !&set ph=!ph:-= - !
for /f "tokens=1* delims=x/" %%a in ("!ph!") do (
if "%%b"=="" set %~2=!ph: =!&goto :EOF
for %%i in (%%a) do set q=!q!!aa!&set "aa=%%i"
for %%i in (%%b) do set /a n+=1&set "m!n!=%%i"
for /l %%i in (3 1 !n!) do set h=!h!!m%%i!
if "!m1!"=="#" (set m1=*) else set "m1=/"
set "js=^(!aa:f=-!^)!m1!^(!m2:f=-!^)"
if not "!h!"=="" set h=!h:x#=x!&set "h=!h:/@=/!"
call :start "!js!" ph
if "!ph!"=="以零为除数的错误。" set q=&set "h="
set "ph=!ph:-=f!"
set "ph=!q!!ph:-=f!!h!"
set "ph=!ph:/@=/!"
call :liscc "!ph!" ph
)
set "%~2=!ph: =!"
goto :EOF
:lisjj 计算连续加减
set he=&set js=%~1
set js=!js:+= +!&set js=!js:-= -!
for %%a in (!js!) do (
set "b=%%a"
if defined he (
set js=^(!he!^)!b:~0,1!^(!b:~1!^)
set js=!js:f=-!
call :start !js! he
) else set "he=%%a"
)
set "%~2=!he:-=f!"
goto :EOF
:lis1 将*号替换为x 方便代码运行
for /f "tokens=1* delims=*" %%a in ("%~1") do (
set "ok=!ok!x%%a"
call :lis1 "%%b" ok
if "%%b"=="" goto :EOF
)
set "%~2=%ok%"
goto :eof
:start
setlocal
set "suru=%~1"
set yunsuanf=&set f=&set "ff="&set xs1=&set "xs2="
set "suru=%suru: =%"
if "%suru:~-1%"=="=" set "suru=%suru:~0,-1%"
if "%suru:~0,1%"=="(" set suru=%suru:~1%&set "xs1=("
if "%suru:~0,1%"=="-" (set yf=-) else set "yf="
for /f "tokens=1* delims=+-*/" %%a in ("%suru%") do (
set num=%yf%%%a&set "str=%%b"
(set str=!str:^(=!&set str=!str:^)=!)
)
(set num=!num:^)=!)
set "ysf=!suru:*%num%=!"
if "%ysf:~0,1%"==")" set "ysf=%ysf:~1%"
set "ysf=!ysf:~0,1!"
if not defined xs1 (set "xs1=!num!")else set "xs1=!xs1!!num!)"
set "xsysf=%ysf%"
if "!str:~0,1!"=="-" (set "xs2=(!str!)")else set "xs2=!str!"
set "xsss=!xs1! !xsysf! !xs2!"
if "!num:~0,1!"=="-" (
if "!str:~0,1!"=="-" (set ff=) else set "ff=-"
) else if "!str:~0,1!"=="-" set "ff=-"
if "!ysf!"=="+" (
set "yunsuanf=jia"&set "ff="
if "!num:~0,1!"=="-" (
set "ff=-"
if not "!str:~0,1!"=="-" set "yunsuanf=jian"
) else if "!str:~0,1!"=="-" set "yunsuanf=jian"
)
if "!ysf!"=="-" (
set "yunsuanf=jian"&set "ff="
if "!num:~0,1!"=="-" (
set "ff=-"&set "yunsuanf=jia"
if "!str:~0,1!"=="-" set "yunsuanf=jian"
) else (if "!str:~0,1!"=="-" set yunsuanf=jia)
)
if "!ysf!"=="*" set "yunsuanf=cen"
if "!ysf!"=="/" (set "yunsuanf=cu0")
set num=!num:-=!&set "str=!str:-=!"
set /a numxw=0,strxw=0,xzw=0,xc=0,duo=0
call :pdxs %num% numz numx numxw
call :pdxs %str% strz strx strxw
if %numxw% geq %strxw% (set /a duo=numxw) else set /a duo=strxw
set /a xzw=numxw+strxw,xc=numxw-strxw&set "xc=!xc:-=!"
if !duo! neq 0 (
set "numx=!numx:~0,%duo%!"&set "strx=!strx:~0,%duo%!"
) else set "numx="&set "strx="
::echo 第一个数 整数 %numz% 小数 %numx% 小数的位数 %numxw% 位
::echo 第一个数 整数 %strz% 小数 %strx% 小数的位数 %strxw% 位
set "she=%numz%%numx% %strz%%strx%"
if "!ysf!"=="*" set /a duo=xzw&set "she=%num:.=% %str:.=%"
call :%yunsuanf% %she% ok
if "!ysf!"=="/" goto ok
goto xs
:pdxs 给小数补0、获取小数位数。
setlocal&set /a z=0
for /f "tokens=1* delims=." %%a in ("%~1")do (set "str1=%%a"
if "%%b"=="" (set str2=!lin!&set z=0) else (
set "str2=%%b"
for /l %%i in (0 1 9) do set "str2=!str2:%%i= %%i !"
for %%i in (!str2!) do set /a z+=1
set "str2=!str2: =!"&set "str2=%%b!lin!"
))
Endlocal&set %~2=%str1%&set %~3=%str2%&set "%~4=%z%"&goto :EOF
:xs 处理最终结果
if "%ok:-=%"=="0" goto ok
set "ok=!ff!!ok!"&set "lin="
if "!ok:~0,1!"=="-" (
if "!ok:~1,1!"=="-" (set "f=") else set "f=-"
) else set "f="
set "ok=!ok:-=!"
if !duo! equ 0 (goto ok) else (
set "ok=!lin!!ok!"
set "ok=!ok:~0,-%duo%!.!ok:~-%duo%,%duo%!"
)
:loop
if "!ok:~-1!"=="0" set ok=!ok:~0,-1!&goto loop
for /f "tokens=* delims=0" %%a in ("%ok%") do (
if "%%a"=="" (set ok=0&goto ok) else set "ok=%%a"
)
if "!ok!"=="." set ok=0&goto ok
if "!ok:~0,1!"=="." set "ok=0!ok!"
if "!ok:~-1!"=="." set "ok=!ok:~0,-1!"
:ok
endlocal&set %~2=%f%%ok%&goto :EOF
:jia 加法函数（封装）by @随风 @bbs.bathome.cn
::计算任意位数的正整数加法
setlocal enabledelayedexpansion&set f=&set "t="
set var1=%~1&set var2=%~2&set /a j=0,n1=0,n2=0
for /l %%a in (0 1 9) do (set vard1=&set "vard2="
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set/a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set/a n2+=1&set vard2=%%a !vard2!)
(if !n1! lss !n2! (set var1=%var2%&set "var2=%var1%"
set vard1=%vard2%&set vard2=%vard1%))&set "var2=!var2: =!"
for %%a in (!vard1!) do (if "!var2!"=="" set /a var2=0
set /a a=%%a+!var2:~-1!+j&set t=!a:~-1!!t!&set "a=0!a!"
set "j=!a:~-2,1!"&set var2=!var2:~0,-1!)
if !j! neq 0 set "t=!j!!t!"
Endlocal&set %~3=%t%&goto :EOF
:jian 减法函数（封装）by @随风 @bbs.bathome.cn
::计算1000位以内的正整数减法
setlocal enabledelayedexpansion&set f=&set "lin=00000"
for /l %%a in (1 1 5) do set "lin=!lin!!lin!!lin!"
set var1=!lin!%~1&set var2=!lin!%~2&set vard1=&set/a j=0
set t=&set var1=!var1:~-1000!&set "var2=!var2:~-1000!"
if "!var1!" lss "!var2!" (set var1=%~2&set "var2=%~1"
set "f=-") else set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do set "var1=!var1:%%a= %%a !"
for %%a in (!var1!) do set "vard1=%%a !vard1!"
for %%a in (!vard1!) do (if "!var2!"=="" set/a var2=0
set /a a=%%a-j,b=!var2:~-1!
if !a! lss !b! (set /a a+=10,j=1)else set /a j=0
set /a w=a-b&set t=!w!!t!&set var2=!var2:~0,-1!)
for /f "tokens=* delims=0" %%a in ("!t!") do (
if "%%a"=="" (set t=0) else set "t=%%a")
Endlocal&set %~3=%f%%t%&goto :EOF
:cen 乘法函数（封装）by @随风 @bbs.bathome.cn
::计算任意位数的正整数乘法
setlocal enabledelayedexpansion
if "%~1"=="0" Endlocal&set %~3=0&goto :EOF
if "%~2"=="0" Endlocal&set %~3=0&goto :EOF
set f=&set jia=&set ji=&set /a n1=0,n2=0
set vard1=&set "vard2="&set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do (
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set /a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set /a n2+=1&set vard2=%%a !vard2!)
if !n1! gtr !n2! (set vard1=%vard2%&set vard2=%vard1%)
for %%a in (!vard1!) do (set "t="&set /a j=0
for %%b in (!vard2!) do (if "!jia!"=="" set /a jia=0
set /a a=%%a*%%b+j+!jia:~-1!&set "t=!a:~-1!!t!"
set a=0!a!&set "j=!a:~-2,1!"&set jia=!jia:~0,-1!)
set "ji=!t:~-1!!ji!"
if "!j:~0,1!"=="0" (set ss=) else set "ss=!j:~0,1!"
set jia=!ss!!t:~0,-1!)
if not "!j:~0,1!"=="0" set "t=!j:~0,1!!t!"
set "ji=!t!!ji:~1!"
Endlocal&set %~3=%ji%&goto :EOF
:cu0 500位内整数除法函数（封装）by @随风 bbs.bathome.cn
::函数内有 cu1 cu2 cu3 cu4 四个标签，引用时需注意
setlocal enabledelayedexpansion&set "lin=00000"
for /l %%a in (1 1 5) do set "lin=!lin!!lin!!lin!"
set /a zongw=1000,cs1w=0,cs2w=0,falg=0,x=0
if "!str!"=="1" Endlocal&set %~3=%ff%!num!&goto :EOF
if "%~1"=="0" set sang=0&goto cu4
if "!str!"=="0" set sang=以零为除数的错误。&goto cu4
if not defined xiaosu set /a xiaosu=10
set sang=&set ppp=&set var1=%~1&set "var2=%~2"
for /f "tokens=* delims=0" %%a in ("!var1!")do set var1=%%a
for /f "tokens=* delims=0" %%a in ("!var2!")do set var2=%%a
for /l %%a in (0 1 9)do (set "var1=!var1:%%a= %%a !"
set "var2=!var2:%%a= %%a !")
for %%a in (!var1!) do set /a cs1w+=1
for %%a in (!var2!) do set /a cs2w+=1
for /l %%a in (1 1 10) do (set t=&set cs=%~2&set/a j=0
for /l %%b in (1 1 !cs2w!) do (set /a a=%%a*!cs:~-1!+j
set t=!a:~-1!!t!&set a=0!a!&set "j=!a:~-2,1!"
set cs=!cs:~0,-1!&set cs%%a=&set "bj%%a=")
if !j! neq 0 (set cs%%a=!lin!!j!!t!&set "bj%%a=!j!!t!"
) else set cs%%a=!lin!!t!&set "bj%%a=!t!"
set "cs%%a=!cs%%a:~-%zongw%!")
set var2=!lin!!var2: =!&set "var2=!var2:~-%zongw%!"
set /a cswc=cs1w-cs2w&set "var1=!var1: =!"
if !cswc! lss 0 (set cswc=!cswc:-=!&set/a flag=1
for /l %%a in (1 1 !cswc!)do (
if %%a leq 11 set sang=0!sang!&set /a x=cswc-1
set "var1=!var1!0")
set "sang=!sang:~0,1!.!sang:~1!")
set ppp=!var1:~0,%cs2w%!&set "var1=!var1:~%cs2w%!"
if !flag! equ 1 (set /a bul=1) else set /a bul=0
goto cu2
:cu1
if not defined var1 (set "var1=0"
if not defined ppp goto cu4
if !flag! equ 0 (set sang=!sang!.&set /a flag=1))
set/a bul=1&set ppp=!ppp!!var1:~0,1!&set "var1=!var1:~1!"
:cu2
if !x! geq %xiaosu% goto cu4
set pvar1=!lin!!ppp!&set "pvar1=!pvar1:~-%zongw%!"
if "!pvar1!" lss "!var2!" (
if !bul! equ 1 (set sang=!sang!0&set /a bul=0
if !flag! equ 1 set /a x+=1)
if "!ppp:~0,1!"=="0" set "ppp="
goto cu1)
if !flag! equ 1 set /a x+=1
set /a bul=0
::计算商
for /l %%a in (1 1 10) do (
if "!cs%%a!" equ "!pvar1!" (
set "sang=!sang!%%a"&set "yu=!bj%%a!"&goto cu3)
if "!cs%%a!" gtr "!pvar1!" (set /a s=%%a-1
set "sang=!sang!!s!"&set yu=!t!&goto cu3)
set "t=!bj%%a!")
:cu3 计算差
set cjs=!ppp!&set cj1=&set m=&set/a jjj=0
for /l %%a in (0 1 9) do set "cjs=!cjs:%%a= %%a !"
for %%a in (!cjs!) do set "cj1=%%a !cj1!"
for %%a in (!cj1!) do (if "!yu!"=="" set/a yu=0
set /a a=%%a-jjj,b=!yu:~-1!
if !a! lss !b! (set /a a+=10,jjj=1)else set/a jjj=0
set /a w=a-b&set m=!w!!m!&set yu=!yu:~0,-1!)
for /f "tokens=* delims=0" %%m in ("!m!") do (
if "%%m"=="" (set m=0) else set "m=%%m")
if !m! equ 0 (
if "!var1:0=!"=="" set sang=!sang!!var1!&goto cu4
set ppp=&goto cu1) else set "ppp=!m!"
goto cu2
:cu4
if "!sang:~0,1!"=="." set "sang=0!sang!"
Endlocal&set %~3=%ff%%sang%&goto :EOF

:KX
@echo off
@echo 以下是指定保留进程，可以自己添加或删除...>1w.txt
@echo System>>1w.txt
@echo smss.exe>>1w.txt
@echo csrss.exe>>1w.txt
@echo egui.exe>>1w.txt
@echo ekrn.exe>>1w.txt
@echo safeboxTray.exe>>1w.txt
@echo LiveUpdate360.exe>>1w.txt
@echo 360tray.exe>>1w.txt
@echo winlogon.exe>>1w.txt
@echo services.exe>>1w.txt
@echo lsass.exe>>1w.txt
@echo svchost.exe>>1w.txt
@echo alg.exe>>1w.txt
@echo dllhost.exe>>1w.txt
@echo explorer.exe>>1w.txt
@echo ctfmon.exe>>1w.txt
@echo conime.exe>>1w.txt
@echo wmiprvse.exe>>1w.txt
@echo dllhost.exe>>1w.txt
@echo wuauclt.exe>>1w.txt
@echo notepad.exe>>1w.txt
@echo tasklist.exe>>1w.txt
@echo cmd.exe>>1w.txt
@echo ShadowTip.exe>>1w.txt
@echo ShadowService.exe>>1w.txt
call 1w.txt
pause
::显示指定进程以外的进程
cd.>2w.txt
for /f %%i in (1w.txt) do SET %%i=A
for /f %%i in ('tasklist /NH') do if /I not defined %%i echo %%i>>2w.txt
::获取指定进程以外进程的PID号
tasklist /NH>3w.txt
cd.>4w.txt
for /f %%i in (2w.txt) do findstr /i /r /c:"\<%%i\>" 3w.txt>>4w.txt
cd.>55.txt
for /f "tokens=2 delims= " %%i in (4w.txt) do @echo %%i>>55.txt
del 1w.txt
del 2w.txt
del 3w.txt
del 4w.txt
::按PID号自动终止进程
for /f %%i in (55.txt) do (
ntsd -c q -p "%%i"

)
del 55.txt
@goto kk
:yy
CLS
@echo off
::部分代码借鉴英雄的作品
start "NewThread" /b ConsExt.exe /showtime 65 0 0 10 8 "时间："
::mode con cols=80 lines=
title 智能游戏 作者：王 伟 QQ：251485609 by 2009.2.8 今天：%date%
color 72
:fh
cls
echo.
echo (支持鼠标操作)
echo.
echo 本游戏具有全智能判断，起点坐标提示、可行坐标判断提示、输入错误判断提示、
echo.
echo 胜负判断弹出框提示、玩家作蔽判断处罚弹出框等。
echo.
echo 游戏规则：从棋盘中任意点出发，到达相对两个边框(不跳步)后再返回原地出发点
echo.
echo 就判胜利！途中后有追兵前有堵击，无路可走时判失败。
echo.
echo 玩家选择先出发或后出发。难度分为四关，普通关、第2关、第3关、第4关。过
echo.
echo 关后自动进级。
echo.
echo  ----- * ----- 请选择 ----- * ------
echo.
echo 玩家先出发 追击方先堵击
echo.
echo.
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
set /a YX=%sbs:~-2,2%*100+%sbs:~0,-3%/12
if %sbs% LSS 500 goto fh
if %YX% EQU 1801 set wjh=1
if %YX% EQU 1803 set wjh=2
::if not defined wjh goto :fh
if not "%wjh%" equ "1" if not "%wjh%" equ "2" cls&goto fh
set ndxz=1
set ggjl=0
cls
setlocal enabledelayedexpansion
mode con cols=80 lines=72
:: 定义图形界面中的启始变量
set 纵轴=B C D E F G H I J K L M N O P Q R
for %%i in (A %纵轴% S) do (
set /a n+=1
set zc1%%i=!n!
)
set n=
for %%i in (A %纵轴% S) do (
set /a n+=1
set zc2!n!=%%i
)
:tx
del jl.txt
::明
if %ggjl%==0 (
set ndxz=1
set dxz=普通
set sjlg=120
)
::隐-明
if %ggjl%==1 (
set ndxz=1
set dxz=第2关MA
set sjlg=80
)
::明-加强
if %ggjl%==2 (
set ndxz=2
set dxz=第3关MDd
set sjlg=40
)
::隐-明-加强
if %ggjl%==3 (
set ndxz=2
set dxz=第4关MADd
set sjlg=10
)
set an1=
set an2=
set an3=
set an4=
set ss1=
for %%i in (A %纵轴% S) do (
for /l %%j in (1,1,19) do (
set we%%i%%j=*
)
)
set A1=┏
set A19=┓
set S1=┗
set S19=┛
for /l %%i in (2,1,18) do set a%%i=┳
for /l %%i in (2,1,18) do set S%%i=┻
for %%i in (%纵轴%) do set %%i1=┣&set %%i19=┫
for %%i in (%纵轴%) do (
for /l %%j in (2,1,18) do (
set %%i%%j=╋
)
)
set C3=突
set G7=出
set M13=重
set Q17=围
set sos=1
set bls=
call:txcx
::以上产生启始图形界面
::以下为交替程序
:hq
:: call程序方出子
if "%wjh%"=="2" call:dn ● &goto bq
:hqw
:: 手动方出子
echo 第%sos%手，请●方输入
ConsExt /echo 50 0 11 13 "重新开局"
:: 鼠标事件
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
::坐标转换(鼠标坐标转换为图形坐标)
set X3=1
set X7=2
set X11=3
set X15=4
set X19=5
set X23=6
set X27=7
set X31=8
set X35=9
set X39=10
set X43=11
set X47=12
set X51=13
set X55=14
set X59=15
set X63=16
set X67=17
set X71=18
set X75=19
set Y03=A
set Y05=B
set Y07=C
set Y09=D
set Y11=E
set Y13=F
set Y15=G
set Y17=H
set Y19=I
set Y21=J
set Y23=K
set Y25=L
set Y27=M
set Y29=N
set Y31=O
set Y33=P
set Y35=Q
set Y37=R
set Y39=S
set /a W=%mX%
set Q=%mY%
set ts=!Y%Q%!!X%W%!
::echo 鼠标 x %mX% y %mY% 图标 x !X%W%! y !Y%Q%! 图形坐标 ts %ts% GG%sbs%
if %sbs% LSS 500 goto hqw
if %mX% GTR 50 if %mX% LSS 59 if %mY%==01 goto tx
::检查%ts%是否跳格
if not "%sos%"=="1" if not "%ts%"=="%zm%%qzb%" if not "%ts%"=="%zm%%hzb%" if not "%ts%"=="%vr2%%ss:~1,2%" if not "%ts%"=="%vr1%%ss:~1,2%" (echo  输入坐标有误
goto hqw)
::检查%ts%是否有子
if "!we%ts%!"=="*" (
set %ts%=●
set we%ts%=a
set /a sos+=1
set ss=%ts%
if "%sos%"=="1" set ss1=%ts%
) else (
echo  此处有子或暗子,请重新输入！
goto hq )
if "%ss:~1,2%"=="19" set an1=%ts%
if "%ss:~1,2%"=="1" set an2=%ts%
if "%ss:~0,1%"=="A" set an3=%ts%
if "%ss:~0,1%"=="S" set an4=%ts%
echo 手动 %ts%>>jl.txt
::刷新
:: call:txcx
:bq
:: call程序方出子
if "%wjh%"=="1" call:dn ○ &goto hq
:hqw1
:: 手动方出子
echo 第%sos%手，请○方输入
ConsExt /echo 50 0 11 13 "重新开局"
:: 鼠标事件
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
::坐标转换(鼠标坐标转换为图形坐标)
set X3=1
set X7=2
set X11=3
set X15=4
set X19=5
set X23=6
set X27=7
set X31=8
set X35=9
set X39=10
set X43=11
set X47=12
set X51=13
set X55=14
set X59=15
set X63=16
set X67=17
set X71=18
set X75=19
set Y03=A
set Y05=B
set Y07=C
set Y09=D
set Y11=E
set Y13=F
set Y15=G
set Y17=H
set Y19=I
set Y21=J
set Y23=K
set Y25=L
set Y27=M
set Y29=N
set Y31=O
set Y33=P
set Y35=Q
set Y37=R
set Y39=S
set /a W=%mX%
set Q=%mY%
::echo 鼠标 x %mX% y %mY% 图标 x !X%W%! y !Y%Q%! 图形坐标 ts %ts%
set ts=!Y%Q%!!X%W%!
if %sbs% LSS 500 goto hqw1
if %mX% GTR 50 if %mX% LSS 59 if %mY%==01 goto tx
if not "%sos%"=="2" if not "%ts%"=="%zm%%qzb%" if not "%ts%"=="%zm%%hzb%" if not "%ts%"=="%vr2%%ss:~1,2%" if not "%ts%"=="%vr1%%ss:~1,2%" (echo 输入坐标有误
goto hqw1)
if "!we%ts%!"=="*" (
set %ts%=○
set we%ts%=b
set /a sos+=1
set ss=%ts%
if "%sos%"=="2" set ss1=%ts%
) else (
echo  此处有子或暗子,请重新输入！
goto bq)
if "%ss:~1,2%"=="19" set an1=%ts%
if "%ss:~1,2%"=="1" set an2=%ts%
if "%ss:~0,1%"=="A" set an3=%ts%
if "%ss:~0,1%"=="S" set an4=%ts%
echo 手动 %ts%>>jl.txt
::刷新
::call:txcx
goto hq
:txcx
::刷新棋盘
cls
echo 智能游戏 (鼠标操作)
::写入顶行数字
set /p = <nul
for /l %%i in (1,1,8) do set /p=%%i <nul
for /l %%i in (9,1,19) do set /p=%%i <nul
echo.
::显示图形界面
for %%i in (A %纵轴%) do (
set /p =%%i<nul
for /l %%j in (1,1,18) do (
set /p =!%%i%%j!━<nul
)
echo !%%i19!
for /l %%j in (1,1,19) do (
set /p = ┃ <nul
)
echo.
)
set /p =S<nul
for /l %%i in (1,1,18) do set /p =!S%%i!━<nul
echo !S19!
::写入底行数字
set /p = <nul
for /l %%i in (1,1,8) do set /p=%%i <nul
for /l %%i in (9,1,19) do set /p=%%i <nul
echo.
::起点坐标判断设置
set zbwq=%ss1:~1,2%>nul 2>nul
set /a qzbq=%ss1:~1,2%-1>nul 2>nul
set /a hzbq=%ss1:~1,2%+1>nul 2>nul
set zmq=%ss1:~0,1%>nul 2>nul
set /a vr2q=zc1%zmq%-1>nul 2>nul
set /a vr1q=zc1%zmq%+1>nul 2>nul
set vr2q=!zc2%vr2q%!>nul 2>nul
set vr1q=!zc2%vr1q%!>nul 2>nul
::动态坐标判断设置
set zbw=%ss:~1,2%>nul 2>nul
set /a qzb=%ss:~1,2%-1>nul 2>nul
set /a hzb=%ss:~1,2%+1>nul 2>nul
set zm=%ss:~0,1%>nul 2>nul
set /a vr2=zc1%zm%-1>nul 2>nul
set /a vr1=zc1%zm%+1>nul 2>nul
set vr2=!zc2%vr2%!>nul 2>nul
set vr1=!zc2%vr1%!>nul 2>nul
::当前坐标
set tzbw=%ts:~1,2%>nul 2>nul
set /a tqzb=%ts:~1,2%-1>nul 2>nul
set /a thzb=%ts:~1,2%+1>nul 2>nul
set tzm=%ts:~0,1%>nul 2>nul
set /a tvr2=zc1%tzm%-1>nul 2>nul
set /a tvr1=zc1%tzm%+1>nul 2>nul
set tvr2=!zc2%vr2%!>nul 2>nul
set tvr1=!zc2%vr1%!>nul 2>nul
::调用胜利判断
if %sos% GTR 30 call:jszd
if %sos% GTR 30 call:jszd
::调用失败判断
if %sos% GTR 6 call:sbpd
echo 起点:%ss1% 等级:%dxz% 可行方向:%zm%%qzb%!%zm%%qzb%! %zm%%hzb%!%zm%%hzb%! %vr2%%ss:~1,2%!%vr2%%ss:~1,2%! %vr1%%ss:~1,2%!%vr1%%ss:~1,2%! 手动%ts% 电脑%zts%
goto :eof
::自动方出子判断命令
:dn
if %sos% equ 1 set zts=h8&goto wan
set pds=%ts%
set fy1=%pds:~0,1%
set fy2=%pds:~1%
:wa1
::随机纵轴A~S选择
set /a ag1=zc1%fy1%+%random%%%4-%random%%%4
if "%ndxz%"=="2" set /a ag1=zc1%fy1%+%random%%%3-%random%%%3
set ag2=!zc2%ag1%!
set /a fy=fy2
::增加左右取子避免A、S边死机，加入2、-2扩大适应范围缩小难度(随机)
if "%ndxz%"=="1" (set var1=1 0 0 2 0 -1 0 2 0 -2
set /a var2=%random%%%10+1
for /f "tokens=%var2% delims= " %%i in ("%var1%") do set fyh=%%i
set /a fy=%fy2%-%fyh%
)
::取消2、-2加大难度(随机)
if "%ndxz%"=="2" (set var1=1 -1 0 0 0 0 0 2 0 0 0 0 -1 0 0 -2
set /a var2=%random%%%16+1
for /f "tokens=%var2% delims= " %%i in ("%var1%") do set fyh=%%i
set /a fy=%fy2%-%fyh%
)
::难度设置
set /a vad=%random%%%2
set /a vad1=%random%%%3
if %ggjl%==2 set /a vad=%random%%%3
if %ggjl%==3 set /a vad=%random%%%2
set zm=%ss:~0,1%>nul 2>nul
set zbw=%ss:~1,2%>nul 2>nul
set /a xq=%ss:~1,2%-1
set /a xh=%ss:~1,2%+1
set /a xq2=%ss:~1,2%-2
set /a xh2=%ss:~1,2%+2
set /a vr2=zc1%zm%-1>nul 2>nul
set /a vr1=zc1%zm%+1>nul 2>nul
set vr2=!zc2%vr2%!>nul 2>nul
set vr1=!zc2%vr1%!>nul 2>nul
::检查获取点，若该点有子则反回重新选择。
if "!we%ag2%%fy%!"=="*" (
set zts=%ag2%%fy%
)else goto wa1
if not "!we%zts%!"=="*" goto wa1
if "%ndxz%"=="2" if %sos% GTR 10 if %vad%==0 call:dynq
if "%ndxz%"=="2" if %sos% GTR 20 if %vad1%==0 call:dynqf
:wan
set %zts%=%1
set we%zts%=%2
set /a yica=%random%%%3
::如果%ggjl%等于1、3 随机暗子使其误导手动方加大难度
if "%ggjl%"=="1" call:ycn1
if "%ggjl%"=="3" call:ycn1
set /a sos+=1
set bls=%zts%
echo 电脑 %zts%>>jl.txt
::echo 手动 %ss% 电脑 %zts%
call:txcx
goto zdf
goto :eof
:ycn1
::暗子
if %yica%==1 (
set %zts%=╋
)
goto zdf
goto :eof
:dynq
::左右上下拦截
if "%ndxz%"=="1" goto :eof
if not "!we%zm%%xq%!"=="*" if not "!we%zm%%xq2%!"=="*" if "!we%zm%%xh%!"=="*" set zts=%zm%%xh%
if not "!we%zm%%xh%!"=="*" if not "!we%zm%%xh2%!"=="*" if "!we%zm%%xq%!"=="*" set zts=%zm%%xq%
if not "!we%vr1%%ss:~1,2%!"=="*" if "!we%vr2%%ss:~1,2%!"=="*" set zts=%vr2%%ss:~1,2%
if not "!we%vr2%%ss:~1,2%!"=="*" if "!we%vr1%%ss:~1,2%!"=="*" set zts=%vr1%%ss:~1,2%
goto :eof
:dynqf
::E闭口
if "%ndxz%"=="1" goto :eof
if not "!we%vr2%%ss:~1,2%!"=="*" if not "!we%zm%%xq%!"=="*" if not "!we%zm%%xh%!"=="*" set zts=%vr1%%ss:~1,2%
if not "!we%vr1%%ss:~1,2%!"=="*" if not "!we%zm%%xq%!"=="*" if not "!we%zm%%xh%!"=="*" set zts=%vr2%%ss:~1,2%
if not "!we%vr2%%ss:~1,2%!"=="*" if not "!we%vr1%%ss:~1,2%!"=="*" if not "!we%zm%%xq%!"=="*" set zts=%zm%%xh%
if not "!we%zm%%xh%!"=="*" if not "!we%vr2%%ss:~1,2%!"=="*" if not "!we%vr1%%ss:~1,2%!"=="*" set zts=%zm%%xq%
goto :eof
::x左坐标%zm%%qzb% x右坐标%zm%%hzb% y上坐标%vr2%%ss:~1,2% y下坐标%vr1%%ss:~1,2%
::图形 !%zm%%qzb%! !%zm%%hzb%! !%vr2%%ss:~1,2%! !%vr1%%ss:~1,2%!
::胜利判断
:jszd
::判断是否与起点相连
if "%ss%"=="%zmq%%qzbq%" (goto wjsl)
if "%ss%"=="%zmq%%hzbq%" (goto wjsl)
if "%ss%"=="%vr2q%%ss1:~1,2%" (goto wjsl)
if "%ss%"=="%vr1q%%ss1:~1,2%" (goto wjsl)
goto zdf
goto :eof
:wjsl
::检查是否达到过相对二边
if "%an1:~1,2%"=="19" if "%an2:~1,2%"=="1" (goto sljg)
if "%an3:~0,1%"=="A" if "%an4:~0,1%"=="S" (goto sljg)
@echo off
msg %username% / 玩家没有到达指定的两岸就返回起点，查证属实欺骗玉皇，本庭判流放西北利亚二百年。
ping 127.1 /n 3 >nul
goto tx
:sljg
::晋级检查
@echo off
if "%ggjl%"=="1" goto ndgg
if "%ggjl%"=="2" goto zng
if "%ggjl%"=="3" goto seng
set ggjl=1
ConsExt /echo 20 20 0 11 "第%sos%手，玩家攻破第一关获得胜利！上帝赐予你日本岛。"
ping 127.1 /n 6 >nul
goto tx
:ndgg
@echo off
set ggjl=2
ConsExt /echo 20 20 0 11 "第%sos%手，玩家攻破难度2关获得胜利！上帝赐予你北美洲。"
ping 127.1 /n 6 >nul
goto tx
:zng
@echo off
set ggjl=3
ConsExt /echo 20 20 0 11 "第%sos%手，玩家攻破难度3关获得胜利！上帝说赐予南美洲和非洲吧。"
ping 127.1 /n 6 >nul
goto tx
:seng
@echo off
ConsExt /echo 20 20 0 11 "第%sos%手，玩家已攻破所有难关，上帝说把地球都给你。如果你还不够，那就上月亮去吧。"
::msg %username% / 第%sos%手，玩家已攻破所有难关，上帝说把地球都给你。如果你还不够，那就上月亮去吧。
ping 127.1 /n 6 >nul
goto tx
:wjsb
@echo off
@echo 对方 %zts%
ConsExt /echo 20 20 0 11 "第%sos%手，玩家已经无路可走,本次战斗失败。"
echo 稍候......
ping 127.1 /n 6 >nul
call jl.txt
goto tx
::失败判断
:sbpd
if "!we%zm%%qzb%!"=="*" (
goto :zdf1
)else goto sbpd1
goto :eof
:sbpd1
if "!we%zm%%hzb%!"=="*" (
goto :zdf1
)else goto sbpd2
goto :eof
:sbpd2
if "!we%vr2%%ss:~1,2%!"=="*" (
goto :zdf1
)else goto sbpd3
goto :eof
:sbpd3
if "!we%vr1%%ss:~1,2%!"=="*" (
goto :zdf1
)else goto wjsb
goto :eof
:zdf1
::if bls==%zts% goto wjsb
:zdf
goto :eof

:SM
@echo off
color 0b
setlocal EnableDelayedExpansion
cls
@echo.
set 1= 计算机系统维护
set 2=
set 3= 本程序使用简单，安全可靠，适合初、中级用户使用。不懂电脑知深操作也会自己解
set 4=
set 5= 决电脑故障，使机器随时运行在最佳状态。程序提供完善的全方位备份和还原恢复功能，
set 6=
set 7= 使系统在有问题或操作不当时恢复还原。对注册表、系统服务、驱动程序、网络设置、以
set 8=
set 9= 及操作系统等均可备份。有常用的垃圾清除、恶意程序查杀、隐藏加解锁、文件加解密、
set 10=
set 11= 反删除找回、一键GHOST备份、百毒不侵的影子系统、自动设置软件“防火墙”，限制
set 12=
set 13= 病毒启动、检查文件创建时间、建立exe、dll、inf文件快照并检查是否被病毒修改等
set 14=
set 15= 六十多项操作功能。如果你要执行带有危险性的操作，请开启全影子系统。
set 16=
set 17= 另外，程序将自动检查所有根目录下是否存在 autorun.exe、autorun.inf及open
set 18=
set 19= 指向的可疑程序，如果存在则自动删除。
set 20=
set 21= ---------------------- 编辑: Wangwei QQ: 251485609
set 22=
set 23=
set 24= 请按键退出
for %%i in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24) do (
set/p=<nul
for /l %%a in (0,1,100) do (
if not "!%%i:~%%a,1!"=="" (
if "%%a"=="100" echo.&echo;
set/p=!%%i:~%%a,1!<nul
for /l %%p in (1,1,20) do ver>nul
)
)
echo.
)
set /p shu=
if /i "%shu%"=="y" (goto KK) else goto KK

:SJ
cls
start http://www.time.ac.cn/stime.asp
echo.
echo 如果你的系统时间与国家授时中心的时间差距较大，
echo.
echo 可以继续操作(或者输入T退出).
set /p jdsj= 请输入
if /i "%jdsj%"=="T" goto KK
if not exist %windir%\system32\wget.exe copy gjx\yzxt\anqzcjc\wget.exe %windir%\system32\
start gjx\yzxt\anqzcjc\与服务器时间同步.bat
goto kk

:ARP
cls
@echo.
@echo 对局域网进行拼测，查找出在线电脑是否有中ARP木马机
@echo.
pause
@echo off
cls
rem 对局域网进行拼测，查找出192.168.1.*所有在线电脑
::清除ARP缓存表
::arp -d 2>nul
::ping -n 1 192.168.0.1>nul
::检测网关IP和MAC地址
cd.>jc.txt
for /f "tokens=*" %%i in ('arp -a') do @echo %%i>>jc.txt
for /f "tokens=1* delims=:" %%i in ('findstr /n . jc.txt') do if %%i equ 3 @echo %%j>wg.txt
for /f "tokens=2" %%l in (wg.txt) do set mac=%%l
for /f "tokens=1" %%l in (wg.txt) do set wd1=%%l
@echo 　 局域网中以下电脑在线！>zx.txt
@echo 　 IP地址 MAC地址>>zx.txt
set wd=%wd1:~0,-1%
set /p dzm= 你的局域网最多能够连接的接口是多少？(1-255)
::检测在线电脑IP和MAC地址
cd.>jc1.txt
for /l %%i in (0,1,%dzm%) do start ping -n 1 %wd%%%i
for /f "skip=3 tokens=*" %%k in ('arp -a') do @echo %%k >>jc1.txt
for /f "tokens=1,2" %%j in ('findstr /c:"dynamic" jc1.txt') do @echo %%j %%k>>zx.txt
start zx.txt
for /f "tokens=1,2" %%i in (wg.txt) do set wg=%%i %%j
@echo 局域网“ARP木马欺骗”检查>zd.txt
@echo 缓存表中网关IP和MAC地址: %wg%>>zd.txt
@echo 以下为实际IP对应MAC地址: (IP与网关IP不同，但与网关MAC相同者即为中ARP木马机)>>zd.txt
findstr /c:"%mac%" zx.txt>>zd.txt
del wg.txt
del zx.txt
del jc.txt
del jc1.txt
start zd.txt
goto kk

:KJ
cls
echo.
echo 网络免费空间上传、下载。 注册后即可无限上传、下载、管理文件。
echo.
start http://fw2.99081.com/SysWeb/Login.aspx
set /P kjgl= 如果上传文件请继续并运行install.exe按装上传程序(退出T):
if /i "%kjgl%"=="T" goto kk
start gjx\yzxt\anqzcjc\wpkj\
goto kk

:GXZY
echo 
@echo off
::wangwei QQ 251485609 by 0905
@title 局域网在线电脑共享资源扫描
cls
rem 对局域网进行拼测，查找在线电脑共享资源
@echo.
@echo 　 对局域网进行拼测，查找在线电脑共享资源，对其浏览管理如同在自己电脑操作。
@echo.
@echo 　 严正警告：未经对方同意，不得非法进入操作，否则自负法律责任。
@echo.
set /p wgsz= 请填入网关(默认192.168.1.1):
@echo.
::清除ARP缓存表
arp -d 2>nul
if "%wgsz%"=="" set wgsz=192.168.1.1
ping -n 1 %wgsz%>nul
::检测网关IP和MAC地址
cd.>jc.txt
for /f "tokens=*" %%i in ('arp -a') do @echo %%i>>jc.txt
for /f "tokens=1* delims=:" %%i in ('findstr /n . jc.txt') do if %%i equ 1 @echo %%j>ip.txt
for /f "tokens=2 delims= " %%i in (ip.txt) do set ip=%%i
for /f "tokens=1* delims=:" %%i in ('findstr /n . jc.txt') do if %%i equ 3 @echo %%j>wg.txt
del ip.txt
for /f "tokens=1" %%l in (wg.txt) do set wd1=%%l
@echo 　 局域网中以下电脑在线！(本机IP: %ip%)>zx.txt
@echo 　 IP地址 MAC地址>>zx.txt
set wd=%wd1:~0,-1%
set /p dzm= 你要扫描多少个端口？(0-255):
::检测在线电脑IP和MAC地址
cd.>jc.txt
for /l %%i in (0,1,%dzm%) do start ping -n 1 %wd%%%i
for /f "skip=3 tokens=*" %%k in ('arp -a') do @echo %%k >>jc.txt
for /f "tokens=1,2" %%j in ('findstr /c:"dynamic" jc.txt') do @echo %%j>>zx.txt
del jc.txt
del wg.txt
start zx.txt
cls
@echo.
@echo 正在扫描共享资源, 请稍候... ...
echo 扫描到的共享资源>gxzy.txt
for /f "skip=3 tokens=*" %%k in (zx.txt) do (
for %%f in (c d e f g h) do (
if exist "\\%%k\本地磁盘 (%%f)\" net view \\%%k|find "本地磁盘"&&echo "\\%%k\本地磁盘 (%%f)\">>gxzy.txt
)
)
del zx.txt
cd.>gxzys.txt
for /f "delims=" %%a in ('findstr /n .* "gxzy.txt"') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
if not "!var!"=="" set var=!var:"=!
echo.!var!>>gxzys.txt
endlocal
)
del gxzy.txt
start gxzys.txt
goto kk

:GXSZ
echo 
@echo off
@cls
:: 注册表 解禁
echo Windows Registry Editor Version 5.00 > c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo "NoDriveTypeAutoRun"=dword:00000091 >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo >> c:\jjzcb.reg
echo "Disableregistrytools"=dword:00000000 >> c:\jjzcb.reg
regedit /s c:\jjzcb.reg
del c:\jjzcb.reg

@cls
@echo.
@echo.
@echo.
@echo 设置 D 分区为家庭局域网共享(可复制) 可复制、写入、删除等全操作式
@echo.
@echo 设置 E 分区为家庭局域网共享(可复制) 可复制、写入、删除等全操作式
@echo.
@echo 设置 F 分区为家庭局域网共享(可复制) 可复制、写入、删除等全操作式
@echo.
@echo 取消分区共享并开启防火墙: QX 反 回 主 页
@echo.
@echo.
@echo (关机重启生效)
@echo.
@echo 说明: 共享时防火墙被关闭
@echo.
ConsExt /fillrect 5 2 71 9 1 15
::获取鼠标坐标
ConsExt /event
set /a sbs=%errorlevel%+1
set mX=%sbs:~0,-3%
set mY=%sbs:~-2,2%
@echo 坐标 ( X %mX%， Y %mY% )
::鼠标坐标判断
if %sbs% LSS 500 goto gxsz
if %mX% GTR 6 if %mX% LSS 40 if %mY%==04 goto gxd
if %mX% GTR 6 if %mX% LSS 40 if %mY%==06 goto gxe
if %mX% GTR 6 if %mX% LSS 40 if %mY%==08 goto gxf
if %mX% GTR 47 if %mX% LSS 74 if %mY%==04 goto gxd1
if %mX% GTR 47 if %mX% LSS 74 if %mY%==06 goto gxe1
if %mX% GTR 47 if %mX% LSS 74 if %mY%==08 goto gxf1
if %mX% GTR 8 if %mX% LSS 31 if %mY%==10 goto QXGX
if %mX% GTR 52 if %mX% LSS 64 if %mY%==10 goto kk
ping 127.1 /n 1 >nul
goto gxsz

:gxd
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\共享D.reg
goto mlzx
:gxd1
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\kcz共享D.reg
goto mlzx

:gxe
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\共享E.reg
goto mlzx
:gxe1
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\kcz共享E.reg
goto mlzx

:gxf1
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\kcz共享F.reg
goto mlzx

:gxf
regedit /s gjx\局域网共享设置\关闭防火墙.reg
regedit /s gjx\局域网共享设置\共享F.reg
:mlzx
cls
@echo.
@echo 命令已执行,请关机重启生效
@echo.
ping/n 5 127.1>nul
goto gxsz

:QXGX
regedit /s gjx\局域网共享设置\关闭共享.reg
regedit /s gjx\局域网共享设置\开启防火墙.reg
goto mlzx

:gb
ConsExt /close
Exit

[ Last edited by ZJHJ on 2009-12-7 at 12:43 ]

够大型，楼主辛苦了

顶撒要沉了

Originally posted by 523066680 at 2009-12-7 08:49 AM:
够大型，楼主辛苦了

相当大型的工程呀，LZ辛苦了

收藏下来研究研究。谢谢！
“if exist gjx\qdbfrj\XJMM.BAT goto RQMM”这句中"gjx"表示啥？

[ Last edited by XiaoGuDong on 2009-12-15 at 14:03 ]

收藏

非常感谢共享该工具很全面

收藏
Thanks!

先down下来，仔细看看吧
O(∩_∩)O谢谢

这可是了不起的成果啊，赞一个