全球第二發(fā),無憂最完美的、真正單文件的PETOOLS掛載工具CMD(0725最后更新)一、無憂上已經有不少PEOOLS掛載工具,但是少存在問題,
二、最無聊的是,明明是簡單的一個CMD加INI,就有人非加密封裝成一個EXE文件,讓人看了就煩。
本CMD是在無憂高手的基礎上進行完美修改的(不知道是誰最先搞出來的,知道的同學,請跟貼說一下表示感謝)
真正的單文件
和以前其他CMD相比,保證成功掛載,最大特點是:可以隱藏不需要的選項,可以掛載到正常的windows系統(tǒng)(綠色軟件常用方法)
可以自定義圖標
好了,不說,自己看看吧
------------------------------------------------------------------------------------
用法舉例:
1\搜索加載PETOOLS .cmd `直接點擊運行,自動搜索PETOOLS并掛載到開始菜單
2\exec !搜索加載PETOOLS.cmd `在ini中調用,功能同上
3、搜索加載PETOOLS .cmd “d:\綠色工具” `僅將 d:\綠色工具\ 下的程序掛到開始菜單,非常適合外置程序,適合正常系統(tǒng)
4、沒了
-------------------------------------------------------------------------------------
===========以下不需要回復即可看見==============================================
@echo off
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo PETools擴展目錄搜索安裝程序...........................
title 搜索加載PETOOLS
echo 程序功能:自動搜索加載外置\PETOOLS\下的程序,以快捷方式的形式,掛載到開始菜單,免除LINK命令的繁瑣
echo 默認搜索:自動搜索所有分區(qū)根目錄下 PETOOLS,以盤符區(qū)分
echo 定制掛載:帶指定目錄為參數,可以僅掛載該目錄下的程序,如 搜索加載PETOOLS.CMD D:\綠化工具
echo PE\windows通用:本程序為獨立程序,可放于任意位置,支持XP\03\win7 PE,若有PECMD.exe,同時支持正?!INDOWS xp\w7 系統(tǒng)!
ECHO 在windows 下,如執(zhí)行:搜索加載PETOOLS.CMD D:\綠化工具,會將綠化工具 掛載到開始菜單(本程序目錄需有PECMD.EXE)
echo 本程序僅掛載 *.EXE\*.WIM\*.CMD\*說明*.TXT等程序,自動掛載PETOOLS及其下子目錄所有*EXE等可執(zhí)行文件
echo 過濾功能:若不想顯示某些文件及子目錄,僅需將該文件或子目錄 屬性設為:隱藏即可,不影響使用,快捷菜單更加簡潔
echo 注冊功能:能自動執(zhí)行PETOOLS及其下子目錄中的 _Setup.CMD,顯式執(zhí)行,如將綠化、注冊、RegDoc等更名為:_setup.CMD即可
echo 自定義圖標:圖標ICO文件與執(zhí)行文件名相同即可
echo.
echo 本程序在無憂高手的基礎上進行完美,真正的單文件,windows及PE通用,所掛軟件盡可能為綠色軟件
echo 無憂啟動 歌理 20120719
echo ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo PETools擴展目錄搜索安裝程序...........................
PUSHD %~dp0
SET TP=%CD%
set LNKinidir=%temp%
set petoolsdir=%~1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Call :PETOOLS_LNK
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if "%~1"=="" goto :eof
if not defined StartMenu goto :eof
if not exist "%~1" goto :eof
set PEdrv=%~d1
set 外置程序=PETools_%PEdrv::=%盤
SET 掛載位置=%%StartMenu%%\%外置程序%
if exist "%LNKinidir%\PETOOLS_LNT.tmp" SET 掛載位置=%%StartMenu%%
if not "%掛載位置%"=="%%StartMenu%%" IF EXIST "%StartMenu%\%外置程序%" RD /S /Q "%StartMenu%\%外置程序%"
set petoolsexe=%LNKinidir%\petoolsexe.lst
set petoolslnk=%LNKinidir%\petoolslnk.INI
set petoolsetup=%LNKinidir%\petoolsetup.lst
:START
DEL "%petoolsexe%" 2>nul
DEL "%petoolslnk%" 2>nul
DEL "%petoolsetup%" 2>nul
PUSHD "%~F1"
>"%petoolsexe%" dir /s/b *.wim *.cmd *.bat *.exe readme*.txt *說明*.txt
POPD
for /f "usebackq delims=" %%i in ("%petoolsexe%") do CALL :MAKE_LINK "%%i"
PECMD LOAD %petoolslnk%
PUSHD "%~F1"
>"%petoolsetup%" dir /s/a/b _setup.CMD _setup.BAT 2>nul
if exist "%petoolsetup%" For /f "delims=" %%i in ('type "%petoolsetup%"') do (
PECMD EXEC =%%i
)
POPD
goto :eof
:MAKE_LINK
SETLOCAL
if "%~1"=="" goto :eof
set toolfile=%~1
if /i "%~n1"=="_setup" goto :eof
set myICO=
SET lnkname=%~dpn1
if exist "%lnkname%.ICO" set myICO=,,%lnkname%.ICO
call,set "lnkname=%%lnkname:%petoolsdir%\=%%"
>>"%PEtoolslnk%" echo.LINK %掛載位置%\%lnkname%,%toolfile%%myICO%
GOTO :EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:PETOOLS_LNK
IF NOT EXIST "%SystemRoot%\system32\PECMD.exe" copy "%TP%\PECMD.exe" "%SystemRoot%\system32\PECMD.exe"
::直接帶目錄運行
set CMDfile=%~F0
set PETOOLS_LNK=\PEtools
if not "%petoolsdir%"#==""# set PETOOLS_LNK=%petoolsdir%
if PETOOLS_LNK==PETOOLS_LNK if exist "%LNKinidir%\PETOOLS_LNT.tmp" del "%LNKinidir%\PETOOLS_LNT.tmp"
if not "%petoolsdir%"#==""# >"%LNKinidir%\PETOOLS_LNT.tmp" echo %PETOOLS_LNK%
>"%LNKinidir%\PETOOLS_LNK.ini" echo FORX @%PETOOLS_LNK%,TOOLS,0,EXEC !="%LNKinidir%\PETOOLS_LNK.CMD" "%%TOOLS%%"
>>"%LNKinidir%\PETOOLS_LNK.ini" echo FILE "%LNKinidir%\PETOOLS*.*"
>>"%LNKinidir%\PETOOLS_LNK.ini" echo ifex %%TOOLS%%\,KILl explorer.exe
if not exist x:\ >>"%LNKinidir%\PETOOLS_LNK.ini" echo ifex %%TOOLS%%\,EXEC explorer.exe
>>"%LNKinidir%\PETOOLS_LNK.ini" echo ifex %%TOOLS%%\,!MESS 沒有搜索到 PETOOLS 文件夾!@PETOOLS_LNK通知 #ok *3000
>>"%LNKinidir%\PETOOLS_LNK.ini" echo ifex %%TOOLS%%\,MESS PETOOLS已經被裝載到了開始菜單。@PETOOLS_LNK通知 #ok *3000
>"%LNKinidir%\PETOOLS_LNK.CMD" echo @echo off
TYPE "%CMDfile%"|FIND /v /i "PETOOLS_LNK">>"%LNKinidir%\PETOOLS_LNK.CMD"
start PECMD LOAD %LNKinidir%\PETOOLS_LNK.ini
echo 正在搜索 PETOOLS.......
ping -n 5 127.0.0.1>nul
exit
GOTO :eof
================================================================================7.25是最后更新=====================================================
7.25更新:
首先感謝各位童鞋鼓勵及建議,作了如下改進:
1、取消了搜索A盤,避免出現提示找不到A盤的錯誤
2、增加了參數 展開,功能是:默認掛載到開始菜單的PETOOLS_x盤,加此參數后,將直接掛載到開始菜單,當然,更方便,開始菜單也變得更長,自由選擇吧
3、重新優(yōu)化了代碼,運行效率更高
=================================================
@echo off
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo PETools擴展目錄搜索安裝程序...........................
title 搜索加載PETOOLS
echo 程序功能:自動搜索加載外置\PETOOLS\下的程序,以快捷方式的形式,掛載到開始菜單,免除LINK命令的繁瑣
echo 默認搜索:自動搜索所有分區(qū)根目錄下 PETOOLS,以盤符區(qū)分
echo 特定掛載:帶指定目錄為參數,可以僅掛載該目錄下的程序,如 搜索加載PETOOLS.CMD D:\綠化工具
echo 特定掛載時,若再加參數 展開,如 D:\綠化工具 展開,則綠化工具下的程序將直接展開到開始菜單
echo PE\windows通用:本程序為獨立程序,可放于任意位置,支持XP\03\win7 PE,若有PECMD.exe,同時支持正?!INDOWS xp\w7 系統(tǒng)!
ECHO 在windows 下,如執(zhí)行:搜索加載PETOOLS.CMD D:\綠化工具,會將綠化工具 掛載到開始菜單(本程序目錄需有PECMD.EXE)
echo 本程序僅掛載 *.EXE\*.WIM\*.CMD\*說明*.TXT等程序,自動掛載PETOOLS及其下子目錄所有*EXE等可執(zhí)行文件
echo 過濾功能:若不想顯示某些文件及子目錄,僅需將該文件或子目錄 屬性設為:隱藏即可,不影響使用,快捷菜單更加簡潔
echo 注冊功能:能自動執(zhí)行PETOOLS及其下子目錄中的 _Setup.CMD,顯式執(zhí)行,如將綠化、注冊、RegDoc等更名為:_setup.CMD即可
echo 自定義圖標:圖標ICO文件與執(zhí)行文件名相同即可
echo.
echo 本程序在無憂高手的基礎上進行完美,真正的單文件,windows及PE通用,所掛軟件盡可能為綠色軟件
echo 無憂啟動 歌理 20120725
echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo.
PUSHD %~dp0
SET TP=%CD%
set LNKinidir=%temp%
set petoolsdir=%~1
set petools2=%2
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Call :PETOOLS_LNK
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if "%~1"=="" goto :eof
if not defined StartMenu goto :eof
if not exist "%~1" goto :eof
set PEdrv=%~d1
set 外置程序=PETools_%PEdrv::=%盤
SET 掛載位置=%%StartMenu%%\%外置程序%
if %petools2%#==展開# SET 掛載位置=%%StartMenu%%
if not "%掛載位置%"=="%%StartMenu%%" IF EXIST "%StartMenu%\%外置程序%" RD /S /Q "%StartMenu%\%外置程序%"
set petoolsexe=%LNKinidir%\petoolsexe.lst
set petoolslnk=%LNKinidir%\petoolslnk.INI
set petoolsetup=%LNKinidir%\petoolsetup.lst
:START
DEL "%petoolsexe%" 2>nul
DEL "%petoolslnk%" 2>nul
DEL "%petoolsetup%" 2>nul
PUSHD "%~F1"
>"%petoolsexe%" dir /s/b *.wim *.cmd *.bat *.exe readme*.txt *說明*.txt
POPD
for /f "usebackq delims=" %%i in ("%petoolsexe%") do CALL :MAKE_LINK "%%i"
PECMD LOAD %petoolslnk%
PUSHD "%~F1"
>"%petoolsetup%" dir /s/a/b _setup.CMD _setup.BAT 2>nul
if exist "%petoolsetup%" For /f "delims=" %%i in ('type "%petoolsetup%"') do (
PECMD EXEC =%%i
)
POPD
goto :eof
:MAKE_LINK
SETLOCAL
if "%~1"=="" goto :eof
set toolfile=%~1
if /i "%~n1"=="_setup" goto :eof
set myICO=
SET lnkname=%~dpn1
if exist "%lnkname%.ICO" set myICO=,,%lnkname%.ICO
call,set "lnkname=%%lnkname:%petoolsdir%\=%%"
>>"%PEtoolslnk%" echo.LINK %掛載位置%\%lnkname%,%toolfile%%myICO%
GOTO :EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:PETOOLS_LNK
IF NOT EXIST "%SystemRoot%\system32\PECMD.exe" if not EXIST "%TP%\PECMD.exe" echo 請將PECMD.EXE復制到本程序目錄下,再運行!&&pause&&exit
IF NOT EXIST "%SystemRoot%\system32\PECMD.exe" copy "%TP%\PECMD.exe" "%SystemRoot%\system32\PECMD.exe"
set CMDfile=%~F0
>"%LNKinidir%\PETOOLS_LNK.CMD" echo @echo off
TYPE "%CMDfile%"|FIND /v /i "PETOOLS_LNK">>"%LNKinidir%\PETOOLS_LNK.CMD"
echo 正在搜索 PETOOLS,請不要關閉本窗口,搜索完畢會自動關閉.......
echo .
if not "%petoolsdir%"#==""# PECMD EXEC ="%LNKinidir%\PETOOLS_LNK.CMD" "%petoolsdir%" %petools2%
set drv=C D E F G H I J K L M N O P Q R S T U V W X Y Z
if "%petoolsdir%"#==""# FOR %%a in (%drv%) do (
if exist "%%a:\PETOOLS" set petoolsdir=%%a:\PETOOLS
if exist "%%a:\PETOOLS" PECMD EXEC !="%LNKinidir%\PETOOLS_LNK.CMD" "%%a:\PETOOLS"
)
echo .
if exist "%petoolsdir%" PECMD KILl explorer.exe
if exist "%petoolsdir%" if not exist x:\ PECMD EXEC explorer.exe
if exist "%petoolsdir%" echo PETOOLS已經被裝載到了開始菜單!!!!!
if not exist "%petoolsdir%" ECHO 沒有搜索到 PETOOLS 文件夾!!!
del "%LNKinidir%\PETOOLS*.*" 2>nul
pecmd wait -3000
exit
GOTO :eof
--------------------------------------------------
貼兩個圖吧,自動搜索及展開對比圖
[ 本帖最后由 歌理 于 2012-7-26 00:11 編輯 ]
本站僅提供存儲服務,所有內容均由用戶發(fā)布,如發(fā)現有害或侵權內容,請
點擊舉報。