中国DOS联盟论坛

中国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 点积分    点击查看详情   
评分人:【 分数: +1  时间:2010-9-28 13:15


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 点积分        点击查看详情   
评分人:【 523066680 分数: +15  时间:2009-12-7 08:49
评分人:【 radem 分数: +5  时间:2009-12-15 12:11
评分人:【 flybird2020 分数: +2  时间:2010-11-1 16:45


附件 1: 计算机系统维护.rar (2009-12-7 17:05, 73.58 K, 下载附件所需积分 1 点 ,下载次数: 461)
2009-12-6 22:22
查看资料  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 6 楼』:  

够大型,楼主辛苦了



综合型编程论坛

我的作品索引
  
2009-12-7 08:49
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
ZJHJ
高级用户





积分 609
发帖 374
注册 2006-8-2
状态 离线
『第 7 楼』:  

顶撒要沉了

2009-12-15 10:28
查看资料  发短消息 网志   编辑帖子  回复  引用回复
radem
高级用户

CMD感染者


积分 691
发帖 383
注册 2008-5-23
状态 离线
『第 8 楼』:  



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





2009-12-15 12:13
查看资料  发短消息 网志   编辑帖子  回复  引用回复
funcoding
新手上路





积分 2
发帖 2
注册 2009-11-20
状态 离线
『第 9 楼』:  

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

2009-12-15 13:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
XiaoGuDong
初级用户





积分 172
发帖 88
注册 2006-12-8
状态 离线
『第 10 楼』:  

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

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

2009-12-15 13:47
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zhandi
新手上路





积分 1
发帖 1
注册 2009-8-27
状态 离线
『第 11 楼』:  

收藏

2009-12-21 11:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zxxpt
新手上路





积分 1
发帖 1
注册 2007-4-24
状态 离线
『第 12 楼』:  

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

2010-1-2 17:58
查看资料  发短消息 网志   编辑帖子  回复  引用回复
pdanniel66
初级用户





积分 68
发帖 64
注册 2009-5-23
状态 离线
『第 13 楼』:  

收藏
Thanks!

2010-1-2 18:21
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
monkeyzhen
新手上路





积分 8
发帖 7
注册 2009-7-7
状态 离线
『第 14 楼』:  

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

2010-1-3 15:42
查看资料  发短消息 网志   编辑帖子  回复  引用回复
gongcd
初级用户





积分 48
发帖 25
注册 2009-4-23
状态 离线
『第 15 楼』:  

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

2010-1-4 16:55
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] [4] [5] [6] [7] [8] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: