:11
title 显示局域网共享资源
for /f "tokens=1 delims=\\" %%i in ('net view^|find "\\"') do (
echo %%i >>%systemdrive%\progra~1\XuanYuan\share.txt
net view %%i
net view %%i>>%systemdrive%\progra~1\XuanYuan\share.txt
)
call :cl
start %systemdrive%\progra~1\XuanYuan\share.txt
goto input
:13
echo 进程 路径 >%systemdrive%\progra~1\XuanYuan\tempa.txt
for /l %%i in (0,1,15) do echo\
echo 正在获取中……
wmic process get Caption,CommandLine >%systemdrive%\progra~1\XuanYuan\tempaa.txt
for /f "tokens=* skip=1" %%i in ('type %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
if not "%%i"=="" (
echo %%i >>%systemdrive%\progra~1\XuanYuan\tempa.txt)
)
call :cl
start %systemdrive%\progra~1\XuanYuan\tempa.txt
goto input
:14
echo\&echo\
echo 分析中……
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon >nul
if "%errorlevel%"=="0" cls & goto dellogin
cls
for /l %%i in (1,1,5) do echo\
set/p= 正在获取用户信息<nul
wmic useraccount get name >%systemdrive%\progra~1\XuanYuan\tempaa.txt
for /l %%i in (1,1,100) do set/p=<nul
for /l %%i in (1,1,100) do set/p= <nul
echo\
set a=0
echo ID 帐户名称
for /f "skip=1" %%i in ('type %systemdrive%\progra~1\XuanYuan\tempaa.txt') do (
set /a a=!!a!+1!
set b!a!=%%i
echo\
echo !a! %%i)
echo\
echo 请输入自动登录的用户对应的 ID:
:usererror
set/p= <nul
set/p id=
for /l %%i in (1,1,%a%) do (
if "!id!"=="%%i" (
set id2=!b%%i!
))
if "%id2%"=="" echo 不存在该ID,请重新输入:&goto usererror
echo\&echo\
echo 请输入%id2%自动登录的密码,无密码请留空:
echo
set/p= <nul
set /p pass=
if "%pass%"=="" set pass=空&goto nopass
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "DefaultPassword" /t reg_sz /d %pass% /f >nul
:nopass
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "DefaultPassword" /t reg_sz /d no /f >nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "DefaultPassword" /f >nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "AutoAdminLogon" /t reg_sz /d 1 /f >nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "DefaultUserName" /t reg_sz /d %id2% /f >nul
echo\&echo\
echo 添加成功!自动登录用户为: %id2% 自动登录密码为: %pass%
set id2=
set pass=
set id=
set a=
set b=
for /l %%i in (1,1,3000) do ver>nul
call :cl
goto input
:dellogin
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "AutoAdminLogon" /f >nul
echo\&echo\&echo 删除成功!
call :cl
goto input
:15
cls
echo\&echo\&echo\
echo ◎功能表◎
echo\&echo\
echo ==========================================================
echo $ $
echo $ 1=替换指定文字 2=为文件每行前添加行号 $
echo $ $
echo $ 3=查找含有指定文字行数 4=删除文本中的空行 $
echo $ $
echo $ 5=返回主菜单 $
echo ==========================================================
echo\&echo\&echo\
echo 请输入功能代号:
echo\
set sel=
set/p sel=
if "%sel%"=="" goto 15
call :txt%sel%
if errorlevel 1 cls&msg * 输入错误的命令,想忽悠在下?&goto 15
:txt1
set wenben=
set bth=
set thw=
set ju=
set xju=
::替换指定文字
echo\&echo\&echo\
:txt1input
echo 请输入要替换文本的路径或将文件拖入。
echo\
set /p wenben=
call :wenben
if "%old%"=="" goto txt1input
cd /d "%lj%"
:txt1bth
echo\
echo 请输入要被替换的文字:
echo\
set /p bth=
if "%bth%"=="" goto txt1bth
:txt1thw
echo 替换为:
echo\
set /p thw=
set newwenben=!m!!thw!替换!bth!!x!
for /f "tokens=*" %%i in (%m%%x%) do (
set ju=%%i
set "xju=!ju:%bth%=%thw%!"
call :txtpan
)
echo\&echo\&echo 完成!按任意键返回……
pause>nul
goto 15
:txtpan
if "%ju%"=="" echo\ >>!newwenben! & goto :eof
if "%xju%"=="" echo\ >>!newwenben! & goto :eof
echo %xju%>>!newwenben!
goto :eof
:txt2
set hanghao=
set wenben=
echo\&echo\&echo\
:txt2input
echo 请输入要添加行号文件的路径或将文件拖入。
echo\
set /p wenben=
call :wenben
if "%old%"=="" goto txt2input
cd /d "%lj%"
set xwenben=!m!行号!x!
for /f "tokens=*" %%i in (%m%%x%) do (
set ju=%%i
set /a hanghao=!hanghao!+1
echo !hanghao!. !ju!>>!xwenben!)
echo\&echo\&echo 完成!按任意键返回……
pause>nul
goto 15
:txt3
set wenzi=
set gs=
set wenben=
echo\&echo\&echo\
:txt3input
echo 请输入要查找的文件路径或将文件拖入。
echo\
set /p wenben=
call :wenben
if "%old%"=="" goto txt3input
cd /d "%lj%"
:wenziinput
echo\
echo 请输入要查找到文字:
echo\
set/p wenzi=
if "%wenzi%"=="" goto :wenziinput
for /f "tokens=*" %%i in ('find "%wenzi%" %m%%x%') do (
set ju=%%i
set/a gs=!gs!+1)
msg * 查找到共有!gs!行包含%wenzi%
goto 15
:txt4
set hang=
set wenben=
set xwenben=
set ju=
echo\&echo\&echo\
:txt4input
echo 请输入要删除空行文件路径或将文件拖入。
echo\
set /p wenben=
call :wenben
if "%old%"=="" goto txt4input
cd /d "%lj%"
set xwenben=!m!去除空行!x!
for /f "tokens=*" %%i in (%m%%x%) do (
set ju=%%i
call :txt4pan
)
echo\&echo\&echo 完成!按任意键返回……
pause>nul
goto 15
:txt4pan
if "%ju%"=="" echo\>>!xwenben! & goto :eof
echo !ju!>>!xwenben!
goto :eof
:txt5
goto input
:wenben
set old=
for /f "tokens=*" %%i in ("%wenben%") do (
set m=%%~ni
set x=%%~xi
set lj=%%~dpi
set old=%%~fi)
goto :eof
:16
echo\&echo\&echo\&echo\&echo\
set/p= <nul
@for /l %%b in (0,1,32) do (
@set ",=★多功能批处理由公孙轩辕制作,QQ:327828994。欢迎使用!"
set/p=!,:~%%b,1!<nul
set/p= ★<nul
for /l %%l in (1,1,600) do ver>nul
set/p=<nul)
for /l %%l in (1,1,1500) do ver>nul
echo\
echo\&echo\&echo\&echo\&echo\
set/p= <nul
for /l %%i in (0,1,14) do (
set ",=获取本产品更多信息,请到 : "
set/p=!,:~%%i,1!<nul
for /l %%l in (1,1,600) do ver>nul
)
for /l %%a in (0,1,29) do (
set,=http://hi.baidu.com/huajinghua
set/p=!,:~%%a,1!<nul
for /l %%a in (1,1,500) do ver>nul
)
for /l %%a in (1,1,5000) do ver>nul
for /l %%i in (0,1,3) do (
for /l %%a in (0,1,29) do set/p=<nul
for /l %%a in (1,1,2000) do ver>nul
for /l %%a in (0,1,29) do set/p= <nul
for /l %%a in (1,1,2000) do ver>nul
for /l %%a in (0,1,29) do set/p=<nul
set/p=http://hi.baidu.com/huajinghua<nul
)
for /l %%i in (0,1,2) do (
for /l %%a in (0,1,29) do (
set/p=<nul
set/p= <nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul)
for /l %%i in (0,1,29) do (
set,=http://hi.baidu.com/huajinghua
call set/p=!,:~%%i,1!<nul
for /l %%a in (1,1,500) do ver>nul
))
for /l %%i in (0,1,2) do (
for /l %%a in (0,1,29) do set/p=<nul
for /l %%i in (0,1,29) do (
set/p= http://hi.baidu.com/huajinghua<nul
for /l %%a in (1,1,600) do ver>nul
for /l %%a in (0,1,29) do set/p=<nul
)
for /l %%i in (0,1,30) do (
set/p=http://hi.baidu.com/huajinghua <nul
for /l %%a in (1,1,600) do ver>nul
for /l %%a in (0,1,31) do set/p=<nul
)
set/p= http://hi.baidu.com/huajinghua<nul
)
echo\&echo\&echo\&echo\&echo\
set/p= 按任意键返回主菜单<nul
pause >nul
goto input
:17
start mailto:327828994@qq.com
goto input
:caidan
set/a xc=%random%%%6+1
set te=
for %%i in (a b f e d c) do (
set /a te=!!te!+1!
if "!xc!"=="!te!" set xc=%%i)
color 1%xc%
call :select "Dhcp Enabled" "dhcp"
if "%dhcp%"==" Yes" (set "ipk=固定IP地址") else (set "ipk=获取动态IP")
at|find "shutdown" >nul
if errorlevel 1 (set shut=开启自动关机) else (set shut=删除自动关机)
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon >nul
if "%errorlevel%"=="1" set logon=设置用户自动登录XP
if "%errorlevel%"=="0" set logon=删除用户自动登陆XP
cls
echo\&echo\&echo\&echo\&echo 多功能批处理 MADE BY 公孙轩辕 QQ:327828994
echo\&echo\&echo ◎ 菜单 ◎ &echo\
echo ======================================================================
echo $ $
echo $ 1=查看本地连接详细信息 2=%ipk% $
echo $ $
echo $ 3=发起QQ临时会话 4=每日定时清理系统垃圾 $
echo $ $
echo $ 5=清理磁盘 6=检查硬盘错误 $
echo $ $
echo $ 7=%shut% 8=网速测试 $
echo $ $
echo $ 9=查看电脑详细信息 10=常用系统优化 $
echo $ $
echo $ 11=显示局域网上的所有共享资源 12=锁定计算机 $
echo $ $
echo $ 13=查看系统进程及路径 14=%logon% $
echo $ $
echo $ 15=常见文本处理 16=产品动画广告 $
echo $ $
echo $ 17=给作者提意见 $
echo $ $
echo ======================================================================
echo\&echo\
echo (注释:等号左边的为功能代号,请输入左边的的代号!)
goto :eof
:cl
for /l %%i in (1,1,40) do (
echo\
for /l %%a in (1,1,250) do ver>nul
)
goto :eof
:zb
if not "%CMDEXTVERSION%"=="2" msg * 抱歉!当前只支持XP系统。&pause&exit
if not exist %systemdrive%\progra~1\XuanYuan md %systemdrive%\progra~1\XuanYuan>nul
echo %date%%time% >>%systemdrive%\progra~1\XuanYuan\使用日志.txt
if exist %systemdrive%\progra~1\XuanYuan\tempaa.txt del /f %systemdrive%\progra~1\XuanYuan\tempaa.txt >nul
if exist %systemdrive%\progra~1\XuanYuan\tempa.txt del /f %systemdrive%\progra~1\XuanYuan\tempa.txt >nul
if exist %systemdrive%\progra~1\XuanYuan\ping.txt del /f %systemdrive%\progra~1\XuanYuan\ping.txt
if exist %systemdrive%\progra~1\XuanYuan\ip.txt del /f %systemdrive%\progra~1\XuanYuan\ip.txt >nul
if not exist %windir%\everybat.bat copy "%~f0" %windir%\everybat.bat >nul
if exist %systemdrive%\progra~1\XuanYuan\share.txt del /f %systemdrive%\progra~1\XuanYuan\share.txt>nul
if exist %systemdrive%\progra~1\XuanYuan\system.txt del /f %systemdrive%\progra~1\XuanYuan\system.txt>nul
set file=%systemdrive%\progra~1\XuanYuan
goto :eof