修改一下这个搜索外挂PETOOLS的批，使其适应PE3.x

sunsea

1. 
   
2. ::petools扩展目录搜索安装程序 by chenall [url=http://www.chenall.com[url]http://www.chenall.com[/url][/color[/url]]
   
3. ::思路来源：[url=http://bbs.wuyou.net/forum.php?mod=viewthread&tid=140951[url]http://bbs.wuyou.net/forum.php?mod=viewthread&tid=140951[/url][/color[/url]]
   
4. ::调用方式
   
5. ::PETOOLS_LNK [PETOOLS目录]
   
6. ::PECMD调用例子,查找所有petools目录。
   
7. ::PECMD FORX @\PETOOLS,TOOLS,0,!EXEC CMD /C “PETOOLS_LINK %TOOLS%”
   
8. ::2009-12-22 第三版,2009-12-23,修改了执行SETUP.BAT/CMD的调用方式为START /W,解决碰到EXIT退出的问题.
   
9. ::2009-12-23,对于注册表文件只自动注册setup_reg.reg,其它的可以由setup.cmd来调用.以免重复执行
   
10. ::具体无忧专贴:[url]http://bbs.wuyou.net/forum.php?mod=viewthread&tid=158014[/url]
    
11. 
    
12. @echo off
    
13. if "%~1"=="" goto :eof
    
14. if not defined StartMenu goto :eof
    
15. if "%~1"=="merge" goto :merge
    
16. if not exist "%~1" goto :eof
    
17. SET "BASE_DIR=%~1"
    
18. SET "外置程序=外置程序_%~d1盘"
    
19. SET "外置程序=%StartMenu%\%外置程序::=%"
    
20. SET "_TF=%WinDir%\T_PETOOLS_%base_dir:~0,1%_"
    
21. IF EXIST "%外置程序%" RD /S /Q "%外置程序%" 2>nul
    
22. :START
    
23. DEL "%_TF%*.*" 2>nul
    
24. PUSHD "%~F1"
    
25. >%_TF%LST.lst dir /s/a/b *.wim *.cmd *.bat *.exe readme*.txt 使用说明*.txt
    
26. POPD
    
27. PUSHD "%WinDir%"
    
28. for /f "usebackq delims=" %%i in (%_TF%LST.lst) do CALL :MAKE_LINK "%%i"
    
29. ECHO.EXEC !%~F0 merge "%外置程序%" >>%_TF%LNK.INI
    
30. ECHO.FILE %_TF%LNK.INI>>%_TF%LNK.INI
    
31. START PECMD LOAD %_TF%LNK.INI
    
32. PUSHD "%~F1"
    
33. >"%_TF%REG.lst" dir /s/a/b SETUP_REG.REG 2>nul
    
34. >"%_TF%INF.lst" dir /s/a/b setup.inf 2>nul
    
35. POPD
    
36. if exist "%_TF%REG.LST" for /f "usebackq delims=" %%i in ("%_TF%REG.LST") do REGEDIT /S "%%i"
    
37. if exist "%_TF%INF.lst" for /f "usebackq delims=" %%i in ("%_TF%INF.lst") do RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 %%i
    
38. IF EXIST "%_TF%SETUP.LST" for /f "usebackq delims=" %%i in ("%_TF%SETUP.LST") do CALL :PETOOLS_SETUP %%i
    
39. DEL %_TF%*.lst
    
40. POPD
    
41. goto :eof
    
42. 
    
43. :MAKE_LINK
    
44. SETLOCAL
    
45. if "%~1"=="" goto :eof
    
46. if /i "%~n1"=="setup" (
    
47. echo.%1 >>"%_TF%SETUP.LST"
    
48. goto :eof
    
49. )
    
50. SET ".=%~1"
    
51. SET ".=%.:&=^&%"
    
52. SET "PETOOLS=%~dpn1"
    
53. call,SET "PETOOLS=%%PETOOLS:%BASE_DIR%=%外置程序%%%"
    
54. SET "PETOOLS=%PETOOLS:&=^&%"
    
55. echo.LINK %PETOOLS%,%.%>>%_TF%LNK.INI
    
56. GOTO :EOF
    
57. 
    
58. :PETOOLS_SETUP
    
59. ::为什么需要这些步骤呢,因为考虑到有一些批处理对执行目录的要求(编写时没有考虑到),所以才需要进入批处理目录执行.否则可能会出错.表面上是执行了,其实执行的结果是错误的.用PECMD调用同样会有这样的问题.
    
60. pushd "%~dp1"
    
61. PECMD EXEC !%~nx1
    
62. POPD
    
63. goto :eof
    
64. 
    
65. :merge
    
66. PUSHD %2||GOTO :EOF
    
67. for /d %%i in ("%~2\*") do call :merge_lnk "%%i"
    
68. POPD
    
69. goto :eof
    
70. 
    
71. :merge_lnk
    
72. CD /D %1||GOTO :EOF
    
73. for /d %%i in ("%~f1\*") do call %0 "%%i"
    
74. CD /D %1||GOTO :EOF
    
75. set n=
    
76. for /f %%i in ('dir /a/b') do (
    
77.     if defined n goto :eof
    
78.     set n=1
    
79. )
    
80. for /f "usebackq delims=" %%i in (`dir /a/b`) do move /y "%%i" ..\
    
81. cd..&&rd %1
    
82. goto :eof
    

复制代码

这个是chenall大的经典作品，具体见http://bbs.wuyou.net/forum.php?mod=viewthread&tid=140951
好像PE3.x下不能用，特此请教。
谢谢！

[ 本帖最后由 2011czmxbb52 于 2012-11-26 11:47 编辑 ]

水中流星

原帖由 <i>zhaohj</i> 于 2012-11-26 11:17 发表 <a href="http://bbs.wuyou.net/redirect.php?goto=findpost&pid=2624775&ptid=272256" target="_blank"><img src="http://bbs.wuyou.net/images/common/back.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" /></a><br />
简单一点，挂到程序下：<br />
<br />
ENVI TOOLS=PETOOLS<br />
ENVI NT6PATH=X:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs<br />
FORX @\%TOOLS%,PT,0,TEAM ENVI PTS=%PT%|CALL MAKELINK<br />
<br />
_SUB MAK ...

<br />
这个绝对好东西啊，简单易懂，感谢分享啊，我拿去了，哈哈

zhaohj

简单一点，挂到程序下：

ENVI TOOLS=PETOOLS
ENVI NT6PATH=X:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
FORX @\%TOOLS%,PT,0,TEAM ENVI PTS=%PT%|CALL MAKELINK

_SUB MAKELINK
FDRV DRVX=%PTS%
MSTR DRV=1,1,%DRVX%

LINK %NT6PATH%\%DRV% 盘 %TOOLS%\target,%PTS%
WRIT %NT6PATH%\%DRV% 盘 %TOOLS%\desktop.ini,+0,[.ShellClassInfo]
WRIT %NT6PATH%\%DRV% 盘 %TOOLS%\desktop.ini,+0,CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}
WRIT %NT6PATH%\%DRV% 盘 %TOOLS%\desktop.ini,+0,Flags=2
SITE %NT6PATH%\%DRV% 盘 %TOOLS%\desktop.ini,+A+S+H
SITE %NT6PATH%\%DRV% 盘 %TOOLS%\,+R+S

EXEC !%PTS%\REGDOC.CMD
_END

TEAM ENVI TOOLS=|ENVI DRVX=|ENVI DRV=|ENVI PTS=|ENVI NT6PATH=