批处理添加IE工具栏按钮

neorobin

IE 默认工具栏上有 前进, 后退, 收藏, 历史等按钮, 这些按钮带来一些方便, MS 也给我们提供了在 IE 工具栏上I添加 自定义 按钮的途径, 而且操作不是很繁琐, 这里用 批处理来实现这种目的. 按钮的目标文件可以是 EXE 文件, BAT, CMD 批处理文件, 以及普通的任何一个有关联程序的文档, 如文本, 音乐, 视频, 图片等等. 不同的按钮可采用不同的图标.

1. @echo off&setlocal enabledelayedexpansion
   
2. :begin
   
3. if not exist "%windir%\UUIDGEN.EXE" (call :downloadUUIDGEN
   
4.   copy /y !UUIDGENPath! "%windir%\UUIDGEN.EXE")
   
5. for /f %%d in ('"%windir%\UUIDGEN.EXE" -n1') do (set GUID=%%d)
   
6. if "!GUID!"=="" (echo "%windir%\UUIDGEN.EXE" 无效, 重新下载)& del /f /q "%windir%\UUIDGEN.EXE" & goto begin
   
7. echo GUID:%GUID%
   
8. set /p scptPath=请输入要添加IE工具栏按钮的执行文件全路径(可将文件直接拖入此窗口再回车):
   
9. for %%f in (!scptPath!) do (set scptPath=%%~f)
   
10. echo {!scptPath!}
    
11. set /p Icon=请输入按钮的图标文件(.ICO)全路径(可将文件直接拖入此窗口再回车, 直接回车=使用默认齿轮图标):
    
12. if "!Icon!"=="" (
    
13.   set Icon=%windir%\system32\SHELL32.dll,274
    
14.   set HotIcon=%windir%\system32\SHELL32.dll,274
    
15. ) else (
    
16.   for %%f in (!Icon!) do (set Icon=%%~f)
    
17.   echo {!Icon!}
    
18.   (set HotIcon=!Icon!)
    
19. )
    
20. for %%f in ("%scptPath%") do (set bttnText="%%~nf")
    
21. (set keyPath=HKLM\Software\Microsoft\Internet Explorer\Extensions\{%GUID%})
    
22. reg add "!keyPath!"
    
23. reg add "!keyPath!" /v ButtonText /t reg_sz /d %bttnText%
    
24. reg add "!keyPath!" /v HotIcon /t reg_sz /d "%HotIcon%"
    
25. reg add "!keyPath!" /v Icon /t reg_sz /d "%Icon%"
    
26. reg add "!keyPath!" /v "Default Visible" /t reg_sz /d Yes
    
27. reg add "!keyPath!" /v ToolTip /t reg_sz /d %bttnText%
    
28. reg add "!keyPath!" /v CLSID /t reg_sz /d {1FBA04EE-3024-11D2-8F1F-0000F87ABD16}
    
29. reg add "!keyPath!" /v Exec /t reg_sz /d "%scptPath%"
    
30. echo 新工具栏按钮注册表设置已完成, 请手工自定义 IE 工具栏添加 %bttnText% 按钮.
    
31. start iexplore about:blank
    
32. pause
    
33. exit /b
    
34. 
    
35. :downloadUUIDGEN
    
36. for /r %SystemDrive% %%b in (UUIDGEN.EXE) do (
    
37.   if exist "%%~fb" (set UUIDGENPath="%%~fb")&(echo !UUIDGENPath!)&goto stopSch
    
38. )
    
39. :stopSch
    
40. if not defined UUIDGENPath echo %SystemDrive% 盘没找到文件 UUIDGEN.exe, 按任意键打开下载链接... &(pause>nul)&(
    
41.   start iexplore http://www.filediag.com/down.php?file_id=6813
    
42.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=1
    
43.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=2
    
44.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=3
    
45. )&(echo 若文件已下载到 %SystemDrive% 盘, 请按任意键继续...)&(pause>nul)&call :downloadUUIDGEN
    
46. exit /b

复制代码

neorobin

现在包含空格的路径拖入后 解析错误 的问题已 修正

lxzzr

能否兼容IE7、8？

neorobin

没及时回复你, 没用 IE 7,8 真不知道