Board logo

标题: [系统增强] 批处理添加IE工具栏按钮 [打印本页]

作者: neorobin    时间: 2009-12-26 01:26     标题: 批处理添加IE工具栏按钮

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. :downloadUUIDGEN
  35. for /r %SystemDrive% %%b in (UUIDGEN.EXE) do (
  36.   if exist "%%~fb" (set UUIDGENPath="%%~fb")&(echo !UUIDGENPath!)&goto stopSch
  37. )
  38. :stopSch
  39. if not defined UUIDGENPath echo %SystemDrive% 盘没找到文件 UUIDGEN.exe, 按任意键打开下载链接... &(pause>nul)&(
  40.   start iexplore http://www.filediag.com/down.php?file_id=6813
  41.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=1
  42.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=2
  43.   start iexplore http://www.filediag.com/download.php?file_id=6813^&downid=3
  44. )&(echo 若文件已下载到 %SystemDrive% 盘, 请按任意键继续...)&(pause>nul)&call :downloadUUIDGEN
  45. exit /b
复制代码

作者: neorobin    时间: 2009-12-26 13:20

现在包含空格的路径拖入后 解析错误 的问题已 修正
作者: lxzzr    时间: 2009-12-26 16:01

能否兼容IE7、8?
作者: neorobin    时间: 2009-12-29 23:09     标题: 回复 3楼 的帖子

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2