[系统相关] [代码征集]批处理常用软件管理器

novaa

要求：
具有的功能有
1.添加软件分类
2.为指定类别添加应用程序
3.启动应用程序
4.删除指定应用程序
也就是一个软件的管理工具。（处于对黑客工具多且有分类的目的想出来的）
比如,可以添加类别（扫描工具）。在指定类别里加入应用程序（流光）。启动指定该应用程序。
我的代码如下
老手指教！

@echo off&color 24&setlocal enabledelayedexpansion
mode con cols=30 lines=25
Title 批处理版VStart
::code by Novaa@bbs.bathome.net 2007/12/9 22:15
:Menu
cls
echo\&echo\&echo\&echo VStarT&echo\&echo\
set List=1.添加新的分类,2.添加新的软件,3.启动软件,4.删除软件,5.退出
for %%i in (%List%) do set /p= %%i<NUL&ECHO.&ECHO.
echo.
set /p Choi= 请选择:
if "%Choi%"=="5" exit
for %%i in (1,2,3,4) do if "%%i"=="%Choi%" set Right=1
if defined Right (goto :Choice%Choi%) else (
echo 错误的输入,请重新输入.
goto :Menu
)


:Choice1
if exist Choice1.ini (goto :add) else (fsutil file createnew Choice1.ini 0)
:add
cls
echo.&echo.&echo 请输入新的类名:
set /p newType=
if exist %newType%.ini (echo 此类名以存在!&ping /n 2 127.1>nul&goto :Menu) else (cd.>%newType%.ini)
cls&echo 新类已成功添加!&echo.&echo.&echo.&echo.&echo.&echo.
echo %newType%>>Choice1.ini
set num=1
if exist Choice.ini del Choice.ini
for /f %%i in (Choice1.ini) do (
echo !num!:%%i>>Choice.ini
set /a num+=1
)
echo 继续请输入:1
echo 返回主菜单输入:2
set /p choice=
if "%choice%"=="1" goto :add
if "%choice%"=="2" goto :Menu


:Choice2
cls&echo.&echo.&echo 请选择需要添加的类别:
set num=1
if exist Choice.ini del Choice.ini
for /f %%i in (Choice1.ini) do (
echo !num!:%%i>>Choice.ini
set /a num+=1
)
cls&echo.&echo.&echo.
for /f "delims=" %%i in (Choice.ini) do (set /p= %%i<NUL&ECHO.)
set /p choi2=
for /f "tokens=1,2 delims=:" %%i in (Choice.ini) do (
if "%choi2%"=="%%i" set AddTy=%%j
)
cls&echo.&echo.&echo.
:AddTo
set /p AddTo= 请选择需要添加的软件名称:
set /p AddToP= 请输入需要添加软件的绝对路径(可拖进此窗口):
echo %AddTo%:%AddToP%>>!AddTy!.ini
echo.&echo.&echo 软件添加成功!&ping /n 2 127.1>nul
cls&&echo.&echo.&echo.&echo.&echo.&echo.
echo 继续添加请输入1&echo.&echo.
echo 返回主菜单请输入2
set /p choice=
if "%choice%"=="1" goto :AddTo
if "%choice%"=="2" goto :Menu


:Choice3
cls&echo.&echo 请选择需要启动软件的类别:
set num=1
if exist Choice.ini del Choice.ini
for /f %%i in (Choice1.ini) do (
echo !num!:%%i>>Choice.ini
set /a num+=1
)
cls&echo.&echo.&echo\
for /f "delims=" %%i in (Choice.ini) do (set /p= %%i<NUL&ECHO.)
set /p choi3=
for /f "tokens=1,2 delims=:" %%i in (Choice.ini) do (
if "%choi3%"=="%%i" set AddTy=%%j
)
echo.&echo.&echo 请输入需要启动的项目:&ping /n 1 127.1>nul
echo.&echo.&echo.
findstr /n .* !AddTy!.ini
set /p Sta=
for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* !AddTy!.ini') do (
if "!Sta!"=="%%i" set StaT=%%k
)
!StaT!
cls&goto :Menu

:Choice4
cls&echo.&echo.
echo 删除分类请输入:1
echo 删除软件请输入:2
set /p Delete=
if "%Delete%"=="1" goto :DeleTy
if "%Delete%"=="2" goto :DeleTo
:DeleTy
cls&echo\&echo\&echo 请输入你想删除的类名:
set /p DeleTy=
if exist %DeleTy%.ini (del %DeleTy%.ini) else (echo 此类不存在!&ping /n 2 127.1>nul&goto :Menu)
findstr /v %DeleTy% Choice.ini>Choice.txt
findstr /v %DeleTy% Choice1.ini>Choice1.txt
pause
for /f "tokens=1* delims=:" %%i in (Choice.txt) do echo %%j>TiH.ini&ping /n 2 127.1>nul
findstr /n .* TiH.ini>Choice.ini&del TiH.ini&del Choice.txt
for /f %%i in (Choice1.txt) do echo %%i>TiH1.ini&ping /n 2 127.1>nul
findstr .* TiH1.ini>Choice1.ini&del TiH1.ini&del Choice1.txt
goto :Menu

:DeleTo
cls&echo\&echo\&echo 请输入你想删除的软件所属类
set /p DeleTy=
if exist %DeleTy%.ini goto :Nex else (echo 此类不存在!&ping /n 2 127.1>nul&goto :Menu) 
:Nex
echo 请输入你要删除的软件名称编号:
findstr /n .* !DeleTy!.ini
set /p DeleTo=
for /f "tokens=1,2* delims=:" %%i in ('findstr /n .* !DeleTy!.ini') do (
if "%%i"=="%DeleTo%" (findstr /v %%j !DeleTy!.ini>!DeleTy!.txt)&ping /n 3 127.1>nul& echo 正在删除。。。请等待&findstr .* !DeleTy!.txt>!DeleTy!.ini&del !DeleTy!.txt)
)
cls
goto :Menu 
复制代码

novaa

哈哈。俺的文章也被评分了。高兴啊
Re： 泛滥棏慌°
东西都是其他网站学的。不是华夏。
注册了华夏后主要就是在批处理区发批处理，为论坛打广告


Re 随风
代码有有两个待改进的地方
一是 启动软件后会自动退出
二是 不支持为应用软件添加描述

[ 本帖最后由 novaa 于 2007-12-10 16:57 编辑 ]