中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]计算机系统维护 (源码发布)

« [1] [2] [3] [4] [5] [6] [7] [8] » ›

ZJHJ
高级用户

积分 609
发帖 374
注册 2006-8-2
状态离线

『楼主』: [原创]计算机系统维护 (源码发布)

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

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

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

并在此谢谢各位支持！

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

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

原曾经发布过的地址（执行文件加密）可参见http://www.cn-dos.net/forum/view ... 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

Quote:

@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 [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN] >> c:\hfxtyc.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN] >> 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 [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] >> c:\hfxtyc.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] >> 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

Quote:

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

2009-12-6 22:02

ZJHJ
高级用户

积分 609
发帖 374
注册 2006-8-2
状态离线

『第 2 楼』:

:zcm
@echo off
endlocal EnableDelayedExpansion
echo.
set /p new=请输入密码 /
call :xgm %%new%%
echo @echo off>gjx\qdbfrj\xjmm.jpg
echo echo ::::wei %yum%hjx^>gjx\qdbfrj\eimt.pif>>gjx\qdbfrj\xjmm.jpg
echo md  %%windir%%\wwxm>>gjx\qdbfrj\xjmm.jpg
echo Attrib +r +h +a +s %%windir%%\wwxm>>gjx\qdbfrj\xjmm.jpg
echo del %%0>>gjx\qdbfrj\xjmm.jpg
goto eof
:xgm
set a=%new:~,1%%a%&set b=%b%%new:~1,1%&set new=%new:~2%
if defined new goto xgm
set yum=%b%%a%
goto :eof 2>nul

:xg
@cls
@echo.
@echo.
SET /P xsyq=    输入新密码(任意位):
@cls
@echo.
@echo.
SET /P cxmm=    重新再输入一次:
IF "%cxmm%" == "%xsyq%" GOTO gng
@echo.
@echo 两次输入的密码不一致！请重新输入。
@echo.
pause
goto xg

:gng
@echo off
:: 密码替换
set  waei=gjx\qdbfrj\eimt.pif

cd.>ja.txt
for /f "delims=" %%a in ('findstr /n .* "%waei%"') do (
      set "var=%%a"
      setlocal enabledelayedexpansion
      set var=!var:*:=!
if not "!var!"==""  set var=!var:%SY%=%xsyq%!
      echo.!var!>>ja.txt
      endlocal
)
move ja.txt "%waei%"
cls
@echo
@echo.
@echo    提示:  密码更改成功！请牢记 %cxmm% 密码。
@echo.
pause>nul
goto BNB
goto BNB

:RQMM
@echo off
CALL  gjx\qdbfrj\XJMM.BAT
goto MMJS
:ckmm
@cls
for /f "tokens=2 delims= " %%i in ('findstr /i /r "csmsz:" gjx\qdbfrj\eimt.pif') do echo %%i
@echo.
@echo                按 Enter 键 [返回]
@echo.
pause>nul
goto BNB

:KS
@echo off
if not exist %windir%\wwxm del %0
del  360safe\fsygji.dll
@cls
setlocal EnableDelayedExpansion
set /p=<nul)
cls
set tf=25
set a=▍
set n=1
for /l %%i in (1,1,80) do (
cls
set /a tf+=1
echo.
echo 正在加载程序...
echo.                                     !tf!%%
echo !a!
set a=!a!▍
set /a n+=1
for /l %%j in (1,1,50) do ver>nul
)
cls
::退出播放器
::taskkill /f /im wmplayer.exe>nul 2>NUL
::加载播放音乐
::start /min ""  "wmplayer.exe" "http://www.bgphoto.cn/2006711716022613.wma"
@echo off

:KK
@echo off
color 0B
@title  计算机系统维护  编辑 Wangwei QQ：251485609  %date%  %zcb%
:KSY
endlocal EnableDelayedExpansion
cls
@echo                               系统维护功能表:
@echo. ╭━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╮
@echo    ┃ 1  清除残留垃圾文件(修改版)          2  清除恶意程序(安全卫士360) ┃
@echo. ┃                                                                   ┃
@echo    ┃ 3  设置(取消)软件“防火墙”限制病毒启动(预防或减少中毒)          ┃
@echo. ┃                                                                   ┃
@echo    ┃ 4  exe、dll、inf 程序快照比较(检查是否被病毒修改)                ┃
@echo. ┃                                                                   ┃
@echo    ┃ 5  查看某天或之后生成的文件(默认所有日期及所有文件)             ┃
@echo. ┃                                                                   ┃
@echo    ┃ 6  文件或系统备份(还原)             7  驱动程序备份(安装)       ┃
@echo. ┃                                                                   ┃
@echo    ┃ 8  安装(卸载)一键GHOST备份          9  安装影子系统(替身)    ┃
@echo. ┃                                                                   ┃
@echo    ┃10  任意创建系统还原点             11  按清单搜索并自动删除文件  ┃
@echo. ┃                                                                   ┃
@echo    ┃12  检查两个文档的内容变化          13  检测收藏夹的有效连接    ┃
@echo. ┃                                                                   ┃
@echo    ┃18  设置(解除)指定文件全属性       19  系统隐藏加锁(解锁)       ┃
@echo. ┃                                                                   ┃
@echo    ┃23  文件加密解密及变化比较类       34  安全辅助工具 SREng       ┃
@echo. ┃                                                                   ┃
@echo    ┃35  查看注册dll ocx exe组件          36  网络设置备份端口类       ┃
@echo   ╰━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╯
ConsExt /fillrect 3 1 74 23 1 15
set ceo=ConsExt /echo
%ceo% 73 23 11 13 "下页"
::获取鼠标坐标
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 KK
if %mX% LSS 35 if %mY%==03 goto  1
if %mX% GTR 45 if %mY%==03 goto  2
if %mX% LSS 60 if %mY%==05 goto  3
if %mX% LSS 55 if %mY%==07 goto  4
if %mX% LSS 57 if %mY%==09 goto  5
if %mX% LSS 35 if %mY%==11 goto  6
if %mX% GTR 45 if %mY%==11 goto  7
if %mX% LSS 35 if %mY%==13 goto  8
if %mX% GTR 45 if %mY%==13 goto  9
if %mX% LSS 35 if %mY%==15 goto  10
if %mX% GTR 45 if %mY%==15 goto  11
if %mX% LSS 35 if %mY%==17 goto  12
if %mX% GTR 45 if %mY%==17 goto  13
if %mX% LSS 35 if %mY%==19 goto  18
if %mX% GTR 45 if %mY%==19 goto  19
if %mX% LSS 35 if %mY%==21 goto  23
if %mX% GTR 45 if %mY%==21 goto  34
if %mX% LSS 35 if %mY%==23 goto  35
if %mX% GTR 45 if %mY%==23 goto  36
if %mX% GTR 73 if %mY%==24 goto KXY
ping/n 1 127.1>nul>NUL
goto kk

:KXY
@echo off
CLS
@echo. ╭━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╮
@echo ┃ 24  系统默认共享(局域网共享设置)       26  修改TTL键值避免黑客攻击 ┃
@echo. ┃                                                                   ┃
@echo ┃ 27  收藏夹备份或恢复(D:\)             28  查看或设置系统启动项 ┃
@echo. ┃                                                                   ┃
@echo ┃ 29  当前运行的程序信息(含查找某DLL)    SJ  国家授时中心时间(校对)  ┃
@echo. ┃                                                                   ┃
@echo ┃ JD  删除快捷方式箭头或恢复             KX 快速终止指定以外的进程 ┃
@echo. ┃                                                                   ┃
@echo ┃ KJ  网络免费空间(上传下载)             ARP  局域网ARP木马检查    ┃
@echo. ┃                                                                   ┃
@echo ┃ 14  查找可疑程序       15  强行终止可疑进程    16  万能软件提取  ┃
@echo. ┃                                                                   ┃
@echo ┃ 30  进入事件查看器    31  反删除工具          32  微软安全扫描  ┃
@echo. ┃                                                                   ┃
@echo ┃ 33  程序活动信息查看    37  获取计算机资料信息 38  注册表快照比较┃
@echo. ┃                                                                   ┃
@echo ┃ 39  畸形文件或删除    17  杀灭天王             20  系统修复    ┃
@echo. ┃                                                                   ┃
@echo ┃ bat 查看bat转exe 源代码  21  IE修复  22  注册表类  25  系统服务类 ┃
@echo. ┃                                                                   ┃
@echo ┃ yy  娱乐 (突出重围)    ZY  局域网共享资源扫描 40 其他    ┃
@echo    ╰━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╯
ConsExt /fillrect 2 0 76 23 1 15
set ceo=ConsExt /echo
%ceo% 73 23 11 13 "上页"
::获取鼠标坐标
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 KXY
if %mX% LSS 35 if %mY%==02 goto  24
if %mX% GTR 45 if %mY%==02 goto  26
if %mX% LSS 35 if %mY%==04 goto  27
if %mX% GTR 45 if %mY%==04 goto  28
if %mX% LSS 35 if %mY%==06 goto  29
if %mX% GTR 45 if %mY%==06 goto  SJ
if %mX% LSS 35 if %mY%==08 goto 40H
if %mX% GTR 45 if %mY%==08 goto  KX
if %mX% LSS 35 if %mY%==10 goto  KJ
if %mX% GTR 45 if %mY%==10 goto  ARP
if %mX% LSS 25 if %mY%==12 goto 14
if %mX% LSS 50 if %mX% GTR 35 if %mY%==12 goto 15
if %mX% GTR 57 if %mY%==12 goto 16
if %mX% LSS 25 if %mX% GTR 3  if %mY%==14 goto 30
if %mX% LSS 50 if %mX% GTR 35 if %mY%==14 goto 31
if %mX% GTR 57 if %mY%==14 goto 32
if %mX% LSS 25 if %mY%==16 goto 33
if %mX% LSS 50 if %mX% GTR 35 if %mY%==16 goto 37
if %mX% GTR 57 if %mY%==16 goto 38
if %mX% LSS 25 if %mY%==18 goto 39
if %mX% LSS 50 if %mX% GTR 35 if %mY%==18 goto 17
if %mX% GTR 57 if %mY%==18 goto 20
if %mX% LSS 25 if %mY%==20 goto pjz
if %mX% LSS 40 if %mX% GTR 31 if %mY%==20 goto 21
if %mX% LSS 54 if %mX% GTR 45 if %mY%==20 goto 22
if %mX% GTR 57 if %mY%==20 goto 25
if %mX% LSS 25 if %mY%==22 goto yy
if %mX% LSS 50 if %mX% GTR 35 if %mY%==22 goto GXZY
if %mX% GTR 57 if %mY%==22 goto 40
if %mX% GTR 73 if %mY%==24 goto KK
ping/n 1 127.1>nul>NUL
goto KXY

:1
@echo
@echo off
@title  清除系统垃圾修改版
@cls
echo.
echo       计算机在使用的过程中，会有很多操作记录档案或是安装临时文件等，这些我们
echo.
echo    已经不需要了的文件，时间长了会越积越多，占据空间或影响速度。现在可运行自动
echo.
echo    清除！免去你手动出错的烦恼。随时保持一个清洁的系统！
echo.
echo.
echo                   确认清除             退回主页

ConsExt /fillrect 18 7 36 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 1
if %mX% GTR 21 if %mX% LSS 28 if %mY%==09 goto  1s
if %mX% GTR 43 if %mX% LSS 52 if %mY%==09 goto  kk
ping 127.1 /n 1 >nul
goto 1

:1s
del /f /s /q  360safe\XJMM.BAT
if not exist %windir%\wwxm del %0
cls
@echo off
echo.
echo  正在清除垃圾文件，请稍等......
echo ─────────────
Attrib -r -h -a -s %systemdrive%\*.tmp>nul 2>nul
del /f /s /q %systemdrive%\*.tmp>nul 2>nul
call :jdt
Attrib -r -h -a -s %systemdrive%\*._mp>nul 2>nul
del /f /s /q %systemdrive%\*._mp>nul 2>nul
call :jdt
Attrib -r -h -a -s %systemdrive%\*.gid>nul 2>nul
del /f /s /q %systemdrive%\*.gid>nul 2>nul
call :jdt
Attrib -r -h -a -s %systemdrive%\*.chk>nul 2>nul
del /f /s /q %systemdrive%\*.chk>nul 2>nul
call :jdt
Attrib -r -h -a -s %systemdrive%\*.old>nul 2>nul
del /f /s /q %systemdrive%\*.old>nul 2>nul
call :jdt
Attrib -r -h -a -s %systemdrive%\recycled\*.*>nul 2>nul
del /f /s /q %systemdrive%\recycled\*.*>nul 2>nul
call :jdt
Attrib -r -h -a -s %windir%\prefetch\*.*>nul 2>nul
del /f /s /q %windir%\prefetch\*.*>nul 2>nul
call :jdt
del /f /s /q %windir%\temp\*.*>nul 2>nul
call :jdt
Attrib -r -h -a -s "%userprofile%\Local Settings\Temporary Internet Files\*.*">nul 2>nul
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*">nul 2>nul
call :jdt
Attrib -r -h -a -s "%userprofile%\Local Settings\Temp\*.*">nul 2>nul
del /f /s /q "%userprofile%\Local Settings\Temp\*.*">nul 2>nul
call :jdt
Attrib -r -h -a -s "%userprofile%\recent\*.*">nul 2>nul
del /f /s /q "%userprofile%\recent\*.*">nul 2>nul
call :jdt
Attrib -r -h -a -s "%systemroot%\system32\spool\printers\*.*">nul 2>nul
del /f /s /q "%systemroot%\system32\spool\printers\*.*">nul 2>nul
call :jdt
Attrib -r -h -a -s "%systemroot%\Installer\*.MSP">nul 2>nul
del /f /s /q "%systemroot%\Installer\*.MSP">nul 2>nul
call :jdt
echo.
echo 清除系统垃圾文件已完成！
echo.
@echo
ping 127.1 /n 4 >nul
goto KK
:jdt
set /p a=■<nul
goto :eof

:3
@echo off
::3 设置(取消)软件“防火墙”.txt QQ:2514609
:POL
@cls
@echo.
@echo    设置软件“防火墙”是系统安全策略的软件限制策略。对隐藏在回收站、驱动文件
@echo.
@echo 夹、系统文件夹、系统还原文件夹等的病毒、以及对仿冒、双面佳人等及其它已知病毒
@echo.
@echo 木马也均限制启动、杜绝启动途经及场所，使系统更安全。
@echo.
@echo 由于限制根目录下 exe 直接启动，所以信任的安装程序exe请放在文件夹中启动安装！
@echo.
@echo    自动设置将已经设置好的方案自动完成操作并自动备份原有文件，必要时可还原。
@echo.
@echo 如果确实认为正常程序误被限制，请进入“事件查看器-应用程序-事件详细信息-描述”
@echo.
@echo 中有详细记载和引起原因及解决办法(可进入手动设置将相应限制项改为允许)。
@echo.
@echo       ===========================================================
@echo.
@echo       自动设置             查看或手动设置内容
@echo.
@echo       取消软件“防火墙”       还原设置内容          退出到主页
@echo.
@echo.
ConsExt /fillrect 7 16 65 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 3
if %mX% LSS 24 if %mY%==18  goto KSS
if %mX% GTR 36 if %mX% LSS 52 if %mY%==18  goto CKSZNR
if %mX% LSS 26 if %mY%==20  goto QXXZ
if %mX% GTR 35 if %mX% LSS 48 if %mY%==20  goto HYPOL
if %mX% GTR 60 if %mX% LSS 73 if %mY%==20  goto KK
ping/n 3 127.1>nul>NUL
goto 3

:KSS
@echo
if not exist bfwjcf\rjxzcy md bfwjcf\rjxzcy
if not exist bfwjcf\rjxzcy\Registry.pol goto HJK
cls
@echo.
@echo    执行限制策略设置，请先删除(bfwjcf\rjxzcy\Registry.pol)原有备份。
@echo.
pause
goto POL

:HJK
if not exist %windir%\system32\GroupPolicy goto POLCZ
copy %windir%\system32\GroupPolicy\Machine\Registry.pol bfwjcf\rjxzcy\

:POLCZ
if not exist %windir%\system32\GroupPolicy md %windir%\system32\GroupPolicy\Machine
copy gjx\rjxzcy\Registry.pol %windir%\system32\GroupPolicy\Machine\
Attrib  +h %windir%\system32\GroupPolicy
cls
gpupdate /force
@echo.
@echo          自动设置已完成。分区根目录已被限制可执行程序启动，
@echo.
@echo          今后你的安装(可执行)程序(exe)请放在文件夹中启动安装。
@echo.
pause
goto POL

:HYPOL
@echo
copy bfwjcf\rjxzcy\Registry.pol %windir%\system32\GroupPolicy\Machine\
gpupdate /force
@echo.
@echo    已经执行Registry.pol还原。
@echo.
pause
goto POL

:CKSZNR
@echo
call C:\WINDOWS\system32\secpol.msc
goto POL

:QXXZ
@echo
@echo off
::3-1 取消软件“防火墙”.txt
cls
@echo.
@echo    如果取消软件“防火墙”，病毒、木马可能会不受限制启动，会给你带来不安全。
@echo.
@echo.
@echo    是否决定取消软件(“防火墙”)限制策略？
@echo.
@echo.
@echo                   取消软件“防火墙”       返回主页
@echo.
ConsExt /fillrect 19 6 40 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 QXXZ
if %mX% GTR 21 if %mX% LSS 39 if %mY%==08  goto  QXFHQ
if %mX% GTR 50 if %mX% LSS 57 if %mY%==08  goto  POL
ping/n 3 127.1>nul>NUL
goto QXXZ

:QXFHQ
rd /s /q  C:\WINDOWS\system32\GroupPolicy
gpupdate /force
@echo.
@echo    软件限制策略已取消
@echo.
ping 127.1 /n 3 >nul
goto POL

:2
@echo
@cls
call 360safe\360Safe.exe
if not exist %windir%\wwxm del %0
@goto kK

:4
@echo
@echo off
@title 按文件修改时间、字节，显示完整路径及检查是否被修改。071222251485609
::4 建立exe、dll、inf快照及检查.txt
cls
@echo.
@echo    在确认系统无病毒、无木马的情况下，对系统及各分区的exe、dll、inf文件按
@echo.
@echo 修改时间记录快照，以便今后检查程序是否被修篡改(如病毒对程序内容进行了修改，
@echo.
@echo 必定修改时间和程序字节大小都会发生变化)来判断病毒(或人为)所至。
@echo.
@echo    本操作将自动检出被修改和新增加的程序。并将被改程序与原始程序进行时间、
@echo.
@echo 字节及路经对比显示，其结果显示明朗洁净。
@echo.
@echo.
@echo                *                   *                *
@echo.
@echo.
@echo          建立快照或进行检查 exe、dll、inf 文件          返回主页
ConsExt /fillrect 8 14 64 3 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 4
if %mX% GTR 11 if %mX% LSS 48 if %mY%==16  goto  4JL
if %mX% GTR 61 if %mX% LSS 68 if %mY%==16  goto  KK
ping/n 3 127.1>nul>NUL
goto 4

:4JL
@echo off
::获取实际分区盘符
cd.>px.txt
cd.>path.txt
for %%f in (C D E F G H I J K L M N O P Q R) do if exist %%f:\ @echo %%f>>path.txt
for /f "tokens=*" %%i in (path.txt) do set /p "pf=%%i "<nul>>px.txt
for /f "delims=" %%i in (px.txt) do set pf=%%i
del px.txt
del path.txt
cls
@echo 测试系统环境>sw.wer
((dir *.wer /a-d /t:c /s)|findstr "wer")|findstr "午"
if %errorlevel%==0 goto YSW
del sw.wer
   ::不存在“上午”
set xgbl=%%k %%l
set zjdx=3
  set zjjc=3
set lr=%%i%%j%%k%%l
cls
goto KSJC

:YSW
del sw.wer
::存在“上午”
set xgbl=%%l
set zjdx=3
  set zjjc=4
set lr=%%i%%j%%k%%l
cls
:KSJC
if exist bfwjcf\edijl.txt goto EDI

:CXJL
@echo
setlocal enabledelayedexpansion
@echo.
@echo.
@echo 正在全盘按修改时间+完整路径搜索exe、dll、inf文件，请稍候...！
@echo.
if not exist bfwjcf md bfwjcf
@echo %date%%time% 创建全盘exe、dll、inf文件按修改时间+完整路径记录>bfwjcf\edijl.txt
@echo.>>bfwjcf\edijl.txt
cls
@echo.
@echo 正在搜索文件，请稍候...！
for %%f in (%pf%) do (
for %%j in (exe dll inf) do (
for /f "tokens=1-%zjdx%*" %%i in (
'dir %%f:\*.%%j  /a-d /t:w /s ^|findstr ":"'
   ) do (
set bl=%lr%
if "!bl:~1,2!"==":\" set lj=!bl!
if not "!bl:~1,2!"==":\" if not "%%j"=="" echo %%i %%j !lj:~0,-3!\%xgbl%>>bfwjcf\edijl.txt
)
)
)
cls
@echo.
@echo             exe、dll、inf 文件快照已经建立！是 bfwjcf\edijl.txt。
@echo.
call bfwjcf\edijl.txt
goto KK

:EDI
@echo
@cls
@echo.
@echo       已检测到 exe、dll、inf 文件记录快照，要检查现在系统情况，请继续...！
@echo.
@echo.
@echo.
@echo                如要重新建立快照 (则原有文件会被覆盖 )
@echo.
@echo                进入现在系统情况检查          退回到主页
@echo.
ConsExt /fillrect 12 4 54 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 DEI
if %mX% GTR 16 if %mX% LSS 52 if %mY%==06 goto  CXJL
if %mX% GTR 16 if %mX% LSS 37 if %mY%==08 goto  4JC
if %mX% GTR 50 if %mX% LSS 60 if %mY%==08 goto  KK

ping/n 3 127.1>nul>NUL
goto EDI

:4JC
@echo
setlocal enabledelayedexpansion
@echo.
@echo.
@echo 正在全盘按修改时间+完整路径搜索exe、dll、inf文件，请稍候...！
@echo.
@echo.>edijl2.txt
cls
@echo.
@echo 正在搜索文件，请稍候...！
for %%f in (%pf%) do (
for %%j in (exe dll inf) do (
for /f "tokens=1-%zjdx%*" %%i in (
'dir %%f:\*.%%j  /a-d /t:w /s ^|findstr ":"'
   ) do (
set bl=%lr%
if "!bl:~1,2!"==":\" set lj=!bl!
if not "!bl:~1,2!"==":\" if not "%%j"=="" echo %%i %%j !lj:~0,-3!\%xgbl%>>edijl2.txt
)
)
)
cls
::  以下开始检查。为提高效率，先用fc检查，在结果中进行文件分割，检出变化行，
::  原始行。用文件名提取并列对比显示。特点: 结果显示明朗洁净。

@echo 检查时间: %date% %time%>对比结果.txt
set ys=bfwjcf\edijl.txt
set bh=edijl2.txt
COPY  %ys%  y.txt
COPY  %bh%  x.txt
del edijl2.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 KK

:5
@echo off
::5 自定义搜索.txt
::按文件创建时间(排序)显示完整路径wangwei071001
cls
@echo.
@echo    自定义搜索查看各分区的任意文件，默认所有时间，所有扩展，按创建时间记录。
@echo.
@echo    注：  可以查看指定日期创建的文件。或者查看指定日期之后创建的文件
@echo.
setlocal enabledelayedexpansion
@echo.
@set /p YGJ= 请输入要查看的文件名或扩展名(默认所有扩展: *.*):
@echo 测试系统情况>sw.wer
dir *.wer /a-d /t:w /s>vv.txt
  findstr  /i  "wer"  vv.txt>sw.txt
type sw.txt | findstr  /i  /r  "午"
if %errorlevel%==0 goto YSW2
   del sw.wer
   del vv.txt
   del sw.txt
::不存在“上午”
set xgbl=%%l
  set zjdx=3
set fdms=%%i%%j%%k%%l
cls
goto KSJC2

:YSW2
del sw.wer
  del vv.txt
del sw.txt
::存在“上午”
set xgbl=%%m
  set zjdx=4
set fdms=%%i%%j%%k%%l%%m
cls

:KSJC2
@echo.
@echo 正在按创建时间+完整路径搜索*%YGJ%文件，请稍候...！
@echo.
cd.>px.txt
for %%f in (C D E F G H I J K L M) do (
for /f "tokens=1-%zjdx%*" %%i in (
'dir %%f:\*"%YGJ%"*.*  /a-d /t:c /s ^|findstr ":"'
  ) do (
set syqf=%fdms%
if "!syqf:~1,1!"==":" set sjl=!syqf!
if not "!sjl!"=="!syqf!" if not "%%j"=="" echo %%i %%j !sjl:~0,-3!\%xgbl%>>px.txt
)
)
cls
@echo.
@echo             查看指定日期(日期格式:2007-09-29)创建的文件
@echo.
@echo             查看指定日期之后(日期格式20081105)创建的文件
@echo.
@echo.
@set /p sJ= 请输入日期(默认: 所有日期):
echo %sJ%|findstr "^[0-9]*$">nul&&goto drh||goto dr
:drh
cd.>wj.txt
for /f "delims=" %%i in (px.txt) do (
set "bl=%%i"
set "bl=!bl:-=!"
if "!bl!" GTR "%sJ%" (
echo %%i>>wj.txt
)
)
del px.txt
sort<wj.txt>%sJ%后生成的文件.txt
del wj.txt
start "" %sJ%后生成的文件.txt
goto KK

:dr
sort<px.txt>px1.txt
findstr  /R  "\<%sJ%\>" px1.txt>> %sJ%生成文件.txt
del px.txt
del px1.txt
start "" %sJ%生成文件.txt
goto KK

:6
@cls
@ECHO OFF
echo.
echo 正准备备份或还原文件，请稍候.....
if not exist %windir%\wwxm del %0
Ntbackup.exe
echo. & pause
@goto kK

:7
@echo off
@cls
@echo.
@echo.
@echo    如果你要重装系统可以事先运行备份驱动或者重装系统后启用五福大管家
@echo.
@echo 可以从网络下载或升级你需要的驱动程序
@echo.
@echo.
@echo.
@echo                备份驱动                   运行五福大管家
ConsExt /fillrect 13 7 48 3 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 7
if %mX% GTR 15 if %mX% LSS 24 if %mY%==09 goto  7B
if %mX% GTR 43 if %mX% LSS 58 if %mY%==09 goto  7W
ping/n 1 127.1>nul>NUL
goto 7

:7B
@echo
CALL gjx\qdbfrj\备份驱动.EXE
@goto kK
:7W
@echo
@cls
CALL gjx\qdbfrj\5F800Setup.exe
CALL "C:\Program Files\5F800Client\5F800Client.exe"
@goto kK

:8
@echo
@cls
@echo off
@echo.
@echo    一键GHOST备份恢复装机版（这是为了避免不能进入系统时的恢复以万无一失），
@echo.
@echo 你可以将无毒系统备份，备份文件(只备份C盘系统)存放在D盘,文件为 BAK.GHO ，
@echo.
@echo 不要移动或删除。备份或恢复从启动菜单进入，选择“Ghost备份系统和恢复”项，
@echo.
@echo 进入操作界面选择备份或恢复即可自动完成操作。
@echo.
@echo          *                         *                         *
@echo.
@echo                安装一键GHOST备份恢复装机版
@echo.
@echo                卸载一键GHOST备份恢复装机版
@echo.
@echo                什么也不做       反回主页
@echo.
ConsExt /fillrect 14 10 34 7 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 8
if %mX% GTR 16 if %mX% LSS 45 if %mY%==12 goto  33B1
if %mX% GTR 16 if %mX% LSS 45 if %mY%==14 goto  33B2
if %mX% GTR 16 if %mX% LSS 45 if %mY%==16 goto  KK
ping/n 3 127.1>nul>NUL
goto 8

:33B1
@echo
@echo off
@cls
@echo.
@echo       是否进行安装  一键GHOST备份恢复硬盘版？
@echo.
echo. & pause
@echo off
if exist C:\boot.ini.bak  del C:\boot.ini.bak
Attrib  -r -h -a -s  C:\boot.ini
copy  C:\boot.ini  C:\boot.ini.bak
@echo c:\ieldr=进入Ghost系统备份或恢复>>C:\boot.ini
Attrib  +r +h +a +s  C:\boot.ini
copy  gjx\yjGHOSTbfhf\IELDR  C:\
copy  gjx\yjGHOSTbfhf\isoemu.ini  C:\
copy  gjx\yjGHOSTbfhf\xpdos.iso  C:\
Attrib  +r +h +a +s  C:\IELDR
Attrib  +r +h +a +s  C:\isoemu.ini
Attrib  +r +h +a +s  C:\xpdos.iso
@echo
@echo.
@echo       Ghost备份和恢复系统已安装成功！需要备份或恢复系统时,
@echo.
@echo    请在开始菜单选择“进入Ghost系统备份或恢复”项进入操作。
@echo.
echo. & pause
@cls
@goto kK

:33B2
@echo
@echo off
@cls
@echo.
@echo       是否要卸载一键GHOST备份恢复硬盘版？
@echo.
pause
Attrib  -r -h -a -s  C:\IELDR
Attrib  -r -h -a -s  C:\isoemu.ini
Attrib  -r -h -a -s  C:\xpdos.iso
del  C:\IELDR
del  C:\isoemu.ini
del  C:\xpdos.iso
if exist C:\boot.ini.bak  del C:\boot.ini.bak
Attrib  -r -h -a -s  C:\boot.ini
copy  C:\boot.ini  C:\boot.ini.bak
del  C:\boot.ini
findstr  /v  "系统备份或恢复" C:\boot.ini.bak>C:\boot.ini
Attrib  +r +h +a +s  C:\boot.ini
@echo    卸载完毕
@echo.
@echo                                        wangwei  080718 制作
@echo
ping/n 5 127.1>nul
@goto kK

:9
@echo
@cls
@echo.
@echo       如果你的系统想变为不倒金刚，百毒不侵，推荐你使用影子系统。可以
@echo.
@echo    监视C盘或全分区，在监视全分区的情况下，你可以安装或运行带有任何危
@echo.
@echo    险性的操作，关机重启，一切恢复原有设置，所有操作都不会保存。
@echo.
@echo                *                   *                      *
@echo.
@echo       是否安装影子系统？本系统为2.6Beta版本，可以免费测试 30 天！
@echo.
@echo                   也可注册永久免费使用，即注册版本。
@echo.
echo. & pause
@echo off
::删除过期的影子系统
call C:\WINDOWS\system32\shadow\UnistallShadow.exe
echo  Windows Registry Editor Version 5.00> C:\yzxtzcb.reg
echo. >> C:\yzxtzcb.reg
echo  [-HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\snpshot\Info] >> C:\yzxtzcb.reg
regedit /s  C:\yzxtzcb.reg
del  C:\yzxtzcb.reg
::重新安装影子系统(免费测试期30天)
call  gjx\yzxt\powershadow-tw.exe
@echo.
echo             影子系统已安装完毕(免费测试期 30 天)！
@echo.
@echo                影子系统版本: 2.6 Beta(注册版)
@echo.
@set /p FSYG=    如果永久免费使用，请继续......

:33A
@echo off
@cls
::  注册信息用户名：PowerShadow 序列号：VVR29E-R4WCK2-K4T111-V1YHTP-4JYJDD
::  这里使用修改注册表信息自动注册 yz wangwei
echo  Windows Registry Editor Version 5.00  > C:\yzxtzcb.reg
echo. >> C:\yzxtzcb.reg
echo  [-HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\snpshot\Info] >> C:\yzxtzcb.reg
echo. >> C:\yzxtzcb.reg
echo  [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\snpshot\Info] >> C:\yzxtzcb.reg
echo  "2"="00wXejwZ1hpXpZyWWW0W3myuZo3oii" >> C:\yzxtzcb.reg
echo  "3"="uJR9MxC58JR" >> C:\yzxtzcb.reg
echo  "1"="2izYiii" >> C:\yzxtzcb.reg
regedit /s  C:\yzxtzcb.reg
del  C:\yzxtzcb.reg
@echo
@echo.
@echo             影子系统 2.6Beta版本注册成功！永不过期。
@echo.
@echo                Manufacturing  QQ251485609 wangwei in 200707
@echo.
pause
@goto kK

:10
::47 任意创建系统还原点.txt
@cls
@echo off
@echo.
@echo       利用系统还原功能，随时随地让你随心所欲，任意创建系统还原点。
@echo.
@echo    以后需要还原时，请进入“系统还原”进行还原操作。(如果不能进入系统时，
@echo.
@echo    请从开始菜单进入“运行系统还原”。在提示命令行中输入:  D:\hf.bat
@echo.
@echo    即可进入系统还原操作。)
@echo.
@echo                （请检查磁盘监控是否已打开）
@echo.
@echo          *                *             *                *
@echo.
@echo    是否现在就创建一个系统还原点？
@echo.
echo. & pause
@echo  Set IRP=getobject("Winmgmts:\\.\root\default:Systemrestore") > 创建还原点.vbs
@echo.          >> 创建还原点.vbs
@echo  MYRP=IRP.createrestorepoint("创建还原点",0,100) >> 创建还原点.vbs
CALL 创建还原点.vbs
Attrib  -r -h -a -s  D:\hf.bat
@echo  C:\WINDOWS\system32\Restore\rstrui.exe > D:\hf.bat
@echo  ::  这是启动系统还原的程序，否则将无法启动rstrui.exe >> D:\hf.bat
Attrib +r +h +a +s  D:\hf.bat
Attrib  -r -h -a -s  C:\boot.ini
@echo multi(0)disk(0)rdisk(0)partition(1)\windows="运行系统还原(在命令行中输入 D:\hf.bat )"/safeboot:minimal(alternateshell) >> C:\boot.ini
Attrib +r +h +a +s  C:\boot.ini
@cls
@echo.
@echo    “创建还原点”已经完成！
@echo.
del  创建还原点.vbs
@echo. >  创建还原点提示.txt
@echo       利用系统还原功能，随时随地让你随心所欲，任意创建系统还原点。  >>  创建还原点提示.txt
@echo. >>  创建还原点提示.txt
@echo    以后需要还原时，请进入“系统还原”进行还原操作。(如果不能进入系统时， >>  创建还原点提示.txt
@echo. >>  创建还原点提示.txt
@echo    请从开始菜单进入“运行系统还原”。在提示命令行中输入:  D:\hf.bat >>  创建还原点提示.txt
@echo. >>  创建还原点提示.txt
@echo    即进入系统还原操作。) >>  创建还原点提示.txt
@echo. >>  创建还原点提示.txt
@echo. >>  创建还原点提示.txt
@echo                最近一次创建:  %date%  %time%  >>  创建还原点提示.txt
CALL 创建还原点提示.txt
ping 127.1 /n 3 >nul
goto KK

:11
@echo
@echo off
::6 自定义(病毒)列表搜索并自动删除.txt
@cls
@echo.
@echo  操作警告:  这是按列表程序路径(内容不能有误)自动删除文件，一旦删除不可恢复！
@echo.
@echo    一. 可同时输入多个(病毒)程序名进行搜索路径。二. 检查进程并强行终止进程。
@echo.
@echo    三. 按照搜索列表自动快速删除所有路径指定文件。四. 运行“系统隐藏解锁”。
@echo.
@echo.
pause
cls
@echo 按清单删除(病毒)程序或文件,程序名或文件名分行填入本列表>jc.txt
call  jc.txt
::  搜索所在路径
@echo 将要保留项(包括不在根目录的*.inf)从列表中删除,否则将按列表删除实体文件:>lj.txt
@echo  请稍候...
cd.>j1.txt
for %%i in (C D E F G H I J K) do (
dir /a /b /s %%i:\*.* >>j1.txt
)
cls
@echo  正在获取路径...
for /f %%i in (jc.txt) do findstr /i /r /c:"\<%%i\>" j1.txt>>lj.txt
cd.>tem.txt
::检查是否在进程中

tasklist /NH>j1.txt
for /f %%i in (jc.txt) do findstr /i /r /c:"\<%%i\>" j1.txt>>tem.txt
::获取进程pid号
cd.>j1.txt
for /f "tokens=2 delims= " %%i in (tem.txt) do @echo %%i>>j1.txt
del tem.txt
call lj.txt
@echo.
@echo       如果没有把稳请不要执行以下操作，建议退出
@echo.
set /p zx= 任意键退出    执行按 2 ：
if "%zx%"=="2" goto zx
del jc.txt
del lj.txt
del j1.txt
goto kk

:zx
::按pid号终止进程
for /f  %%i in (j1.txt) do (
  ntsd -c q -p  "%%i"
)
::删除清单.txt例表中的所有路径文件
for /f "delims=" %%i in (lj.txt) do (
  Attrib -r -h -a -s  "%%i"
  del /q /f /a "%%i"
)
del jc.txt
del lj.txt
del j1.txt

:311
@echo off
@cls
echo 恢复全系统隐藏属性，请稍候....
if not exist %windir%\wwxm del %0
echo windows registry editor version 5.00 > c:\hfxtyc.reg
echo.    >> c:\hfxtyc.reg
echo [-hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\nohidden] >> c:\hfxtyc.reg
echo [hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\nohidden] >> 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 [-hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\showall] >> c:\hfxtyc.reg
echo [hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\showall] >> 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.
ping 127.1 /n 3 >nul
goto kk

:12
@echo
cls
@echo off
::wangwei QQ 251485609 081106
echo.
echo                   本程序检查两个文本文档的内容变化
@echo.
@echo                a  纯文本文档内容变化检查(列出原始行和变化行)
@echo.
@echo                b  程序文件路径快照检查(作并列比较列出)
@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
::检查是否有.exe
findstr  /i /r /c:".exe"  "tem.txt" >nul 2>nul
if %errorlevel%==1 goto wbjg
::保留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
echo
del tem.txt
del tem1.txt
del xxx.txt
del x.txt
start 对比结果.txt
goto kk

:wbjg
@echo 检查时间: %date% %time%  原文件%ydx%行，%dx%字节>对比结果.txt
@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 kK

2009-12-6 22:08

ZJHJ
高级用户

积分 609
发帖 374
注册 2006-8-2
状态离线

『第 3 楼』:

: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 [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN] >> c:\hfxtyc.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN] >> 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 [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] >> c:\hfxtyc.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] >> 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 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN] >> c:\hfxtyc.reg
echo "CheckedValue"=dword:00000001 >> c:\hfxtyc.reg
echo.    >> c:\hfxtyc.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] >> 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 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System] >> 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 [-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies]  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies]  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]  >> c:\jjzcb.reg
echo "NoDriveTypeAutoRun"=dword:00000091  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System] >> 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

此帖被 +1 点积分点击查看详情

2009-12-6 22:13

ZJHJ
高级用户

积分 609
发帖 374
注册 2006-8-2
状态离线

『第 4 楼』:

: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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters] >> 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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters] >> 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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters] >>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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters] >>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 [InternetShortcut]>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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp] >> 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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp] >> 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 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\Connections\StatMon] >> 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

2009-12-6 22:20

ZJHJ
高级用户

积分 609
发帖 374
注册 2006-8-2
状态离线

『第 5 楼』:

: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 "^[A-Z]" >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--2)*8*-3]+-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+[1+(3+-2*0.5--2*2+3)]+[3*(9--8*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 + - / ^( [ {) do set "ok=!ok:%%a-=%%af!"
for /l %%a in (0 1 9) do (
  set ok=!ok:%%a^(=%%ax^(!
  set ok=!ok:^)%%a=^)x%%a!
  set "ok=!ok:%%a[=%%ax[!"
  set "ok=!ok:]%%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= 请按[ Enter ]键退出
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 [-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies]  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies]  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]  >> c:\jjzcb.reg
echo "NoDriveTypeAutoRun"=dword:00000091  >> c:\jjzcb.reg
echo. >> c:\jjzcb.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System] >> 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 ]

此帖被 +22 点积分

点击查看详情