无忧启动论坛

标题: [原创]使用批处理实现GRLDR名称的更改和菜单路径的替换 [打印本页]

---

作者: HUNRYBECKY    时间: 2010-10-8 23:56
标题: [原创]使用批处理实现GRLDR名称的更改和菜单路径的替换
昨天的帖子，不知道为啥被删除了。至于2楼提到的有空格的路径不能正确执行的问题，我已经修改并在批处理中作了注释。现在增加了一个产生GRUB菜单密码的功能。
具体代码见下

1. @echo off
   
2. :top
   
3. pushd %~dp0
   
4. mode con cols=70 lines=20
   
5. COLOR 02
   
6. ECHO.
   
7. ECHO    ╔──────────────────────────────╗
   
8. ECHO    │                                                            │
   
9. ECHO    │                 鸿越GRLDR更名和设置工具                    │
   
10. ECHO    │              本程序由鸿越软件小布点编写制作                │
    
11. ECHO    │         本程序用于快速更名GRLDR 修改GRLDR内置菜单          │
    
12. ECHO    │     本程序可以自由复制,使用和发布,版权归作者本人所有       │
    
13. ECHO    │  QQ:9399100 QQ群号:29946542 E-MAIL:xiaobudian528@sina.com  │
    
14. ECHO    │                                                            │
    
15. ECHO    ╚──────────────────────────2010─㊣╝
    
16. ECHO.
    
17. IF DEFINED TIPS ECHO %TIPS%
    
18. echo  -------------------------------------------------------------------
    
19. echo    1.更改GRLDR名称(也同时更改GRLDR.MBR中的名称)
    
20. echo    2.导入内置GRLDR菜单内容(默认MENU.LST),建议先执行1再执行本步2
    
21. echo    3.获取GRLDR菜单项MD5加密密码
    
22. echo    Q.输入英文字母Q退出程序
    
23. echo  -------------------------------------------------------------------
    
24. echo.
    
25. set /p choice=请你选择操作的内容并回车(1,2,3):
    
26. if "%choice%"=="1" goto:1
    
27. if "%choice%"=="2" goto:2
    
28. if "%choice%"=="3" goto:3
    
29. if /i "%choice%"=="q" exit
    
30. goto:top
    
31. :1
    
32. cls
    
33. :: 对输入的我文件进行判断,非常注意的是如果路径参数带空格，系统会自动添加引号，而没有空格时间则无引号,所以要使用%~1来脱去引号，如是环境变量可使用%temp:"=%脱去(请参考批处理如何从用户传入的参数中去掉引号)
    
34. if not "%~1"=="" set g4d=%~1
    
35. if "%g4d%"=="" (set /p g4d=请拖入或输入GRLDR文件位置,直接回车则使用默认GRLDR:)
    
36. if not defined g4d set g4d=%cd%\grldr
    
37. set g4d=%g4d:"=%
    
38. if not exist "%g4d%" (cls&&echo 你输入路径有错或应把grldr和本工具放在同一文件夹,请更正后再使用本工具&&pause>nul&&exit)
    
39. call:ok "%g4d%"
    
40. goto:numstr
    
41. :ok
    
42. set strf=%~nx1
    
43. set strp=%~dp1
    
44. goto:eof
    
45. 
    
46. :numstr
    
47. cls
    
48. set /p  str=请输入新的文件名称,字符要求全部为小写的任意5个字符:
    
49. :: 对5个字符限制进行检测,并把原始输入保存到strx变量
    
50. if not defined str goto:numstr
    
51. set strx=%str%
    
52. set "str=%str:"= %"
    
53. :next
    
54. if not "%str%"=="" (
    
55.     set /a num+=1
    
56.     set "str=%str:~1%"
    
57.     goto next
    
58. )
    
59. if "%num%" neq "5" goto:numstr
    
60. :: 大小写转化,这里使goto:rar用更为方便的RAR来进行处理
    
61. if exist rar.exe goto:rar
    
62. set str=%strx%
    
63. set str1=abcdefghijklmnopqrstuvwxyz
    
64. set str2=ABCDEFGHIJKLMNOPQRSTUVWXYZ
    
65. for /l %%i in (0,1,25) do (
    
66.     call set char1=%%str1:~%%i,1%%
    
67.     call set char2=%%str2:~%%i,1%%
    
68.     call :change
    
69. )
    
70. call set str=%str%
    
71. goto:str
    
72. :change
    
73. call set "str=%%str:%char1%=%char2%%%"
    
74. goto :eof
    
75. :rar
    
76. :: 利用RAR来转化大小写更加简单方便,获取的结果变量STRX为小写，STR为大写
    
77. copy /y "%g4d%" "%temp%\%strx%">nul
    
78. rar.exe a -r -inul -ep "%temp%\%strx%.rar" "%temp%\%strx%"
    
79. del /q/f "%temp%\%strx%">nul
    
80. rar.exe e -o+ -inul -cu "%temp%\%strx%.rar" "%temp%"
    
81. for /f "delims=" %%i in ('dir /a/b "%temp%\%strx%"') do call set str=%%i
    
82. del /q/f "%temp%\%strx%">nul
    
83. rar.exe x -o+ -inul -cl "%temp%\%strx%.rar" "%temp%"
    
84. for /f "delims=" %%i in ('dir /a/b "%temp%\%strx%"') do call set strx=%%i
    
85. copy /y "%g4d%.mbr" "%temp%\%strx%.mbr">nul
    
86. :str
    
87. cls
    
88. str.exe "%temp%\%str%" 0 0 /R /ASC:GRLDR /ASC:%str% /A
    
89. str.exe "%temp%\%str%" 0 0 /R /ASC:grldr /ASC:%strx% /A
    
90. str.exe "%temp%\%str%.mbr" 0 0 /R /ASC:GRLDR /ASC:%str% /A
    
91. str.exe "%temp%\%str%.mbr" 0 0 /R /ASC:grldr /ASC:%strx% /A
    
92. copy /y "%temp%\%strx%" "%strp%">nul
    
93. copy /y "%temp%\%strx%.mbr" "%strp%">nul
    
94. del /q/f "%temp%\%strx%.*">nul
    
95. set ng4d=%strp%\%strx%
    
96. SET TIPS=  已经成功更名为%strx%和%strx%.mbr,你可以选择其他操作
    
97. goto:top
    
98. :2
    
99. cls
    
100. if exist "%ng4d%" goto:strmenu
     
101. set /p ng4d=请拖入或输入要导入菜单的GRLDR文件,直接回车则使用默认GRLDR:)
     
102. if not defined ng4d set ng4d=%cd%\grldr
     
103. set ng4d=%ng4d:"=%
     
104. :strmenu
     
105. cls
     
106. set /p ng4dm=请拖入或输入要导入菜单的GRLDR菜单文件,直接回车则使用MENU.LST:
     
107. if not defined ng4dm set ng4dm=%cd%\menu.lst
     
108. set ng4dm=%ng4dm:"=%
     
109. if exist "%ng4dm%" grubmenu import "%ng4d%" "%ng4dm%"
     
110. SET TIPS=  已经成功导入GRLDR菜单,你可以继续选择其他操作
     
111. goto:top
     
112. :3
     
113. cls
     
114. set /p md5p=请输入要加密GRUB菜单的密码,默认为9399100:
     
115. if "%md5p%"=="" set md5p=9399100
     
116. echo %md5p%>"%temp%\temp.txt"
     
117. MD5.EXE "%temp%\temp.txt" "%temp%\%md5p%.txt"
     
118. PING 127.0.0.1 -n 3 >NUL
     
119. START "" "%temp%\%md5p%.txt"
     
120. SET TIPS=  已经成功制作菜单密码,请记住你的密码%md5p%
     
121. goto:top

复制代码

[ 本帖最后由 HUNRYBECKY 于 2010-10-9 13:41 编辑 ]

Grub4dos.part1.rar

2010-10-8 23:56 上传

点击文件名下载附件

下载积分: 无忧币 -2

103.28 KB, 下载次数: 238, 下载积分: 无忧币 -2

Grub4dos.part2.rar

2010-10-8 23:56 上传

点击文件名下载附件

下载积分: 无忧币 -2

103.28 KB, 下载次数: 201, 下载积分: 无忧币 -2

Grub4dos.part3.rar

2010-10-8 23:56 上传

点击文件名下载附件

下载积分: 无忧币 -2

84.12 KB, 下载次数: 203, 下载积分: 无忧币 -2

---

作者: yanglin    时间: 2010-10-9 17:37
你这个啊  呵呵 我 借鉴了你的 这个 str文件  又将 自己制作的
GRLDR名称 体积变小 有些 代码 借鉴你的 就是 使用你的那个str工具代码 使用了一下  呵呵

比你小多了 功能也比你好一点点   谢谢诶了。。。。

具体帖子位置：第10帖子

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=160280


好了 不说了。。。

---

作者: HUNRYBECKY    时间: 2010-10-11 09:16

原帖由 yanglin 于 2010-10-9 17:37 发表
你这个啊  呵呵 我 借鉴了你的 这个 str文件  又将 自己制作的
GRLDR名称 体积变小 有些 代码 借鉴你的 就是 使用你的那个str工具代码 使用了一下  呵呵

比你小多了 功能也比你好一点点   谢谢诶了。。。。 ...

不错。继承并发展。。。

---

作者: HUNRYBECKY    时间: 2010-10-11 11:49
10楼好象不是你的帖子。哈哈。看来我要看下你的代码，再把我整合一下就完美了。
看了下兄的代码，FR命令很强大呀，收藏了

[ 本帖最后由 HUNRYBECKY 于 2010-10-11 21:43 编辑 ]

---

作者: HUNRYBECKY    时间: 2010-10-12 10:47
参考x9tian兄弟的代码，我整合了下，基本上可以完成GRUB的一些功能。
1.更改GRLDR名称(也同时更改GRLDR.MBR中的名称)
2.编辑内置GRUB菜单内容(默认MENU.LST),建议先执行1再执行本步2
3.制作GRUB启动背景,原图要求640x480的14色深图片
4.设置MESSAGE相关信息(直接调用x9tian的批处理)
5.创建GRLDR菜单项MD5加密密码
下载地址:http://u.115.com/file/f73e6a5ea5

1. 
   
2. @echo off
   
3. set path=%cd%;%path%
   
4. pushd %~dp0
   
5. :top
   
6. set choice=
   
7. mode con cols=70 lines=25
   
8. COLOR 02
   
9. ECHO.
   
10. ECHO    ╔──────────────────────────────╗
    
11. ECHO    │                                                            │
    
12. ECHO    │                 鸿越GRLDR更名和设置工具                    │
    
13. ECHO    │              本程序由鸿越软件小布点编写制作                │
    
14. ECHO    │         本程序用于快速更名GRLDR 修改GRLDR内置菜单          │
    
15. ECHO    │     本程序可以自由复制,使用和发布,版权归作者本人所有       │
    
16. ECHO    │  QQ:9399100 QQ群号:29946542 E-MAIL:xiaobudian528@sina.com  │
    
17. ECHO    │                                                            │
    
18. ECHO    ╚──────────────────────────2010─㊣╝
    
19. ECHO.
    
20. IF DEFINED TIPS CALL ECHO   %TIPS%
    
21. echo  -------------------------------------------------------------------
    
22. echo    1.更改GRLDR名称(也同时更改GRLDR.MBR中的名称)
    
23. echo    2.编辑内置GRUB菜单内容(默认MENU.LST),建议先执行1再执行本步2
    
24. echo    3.制作GRUB启动背景,原图要求640x480的14色深图片
    
25. echo    4.设置MESSAGE相关信息(直接调用x9tian的批处理)
    
26. echo    5.创建GRLDR菜单项MD5加密密码
    
27. echo    Q.输入英文字母Q退出程序
    
28. echo  -------------------------------------------------------------------
    
29. echo.
    
30. set /p choice=请你选择操作的内容并回车(1,2,3,4,5)
    
31. if "%choice%"=="1" goto:1
    
32. if "%choice%"=="2" goto:2
    
33. if "%choice%"=="3" goto:3
    
34. if "%choice%"=="4" goto:4
    
35. if "%choice%"=="5" goto:5
    
36. if /i "%choice%"=="Q" EXIT
    
37. goto:top
    
38. 
    
39. :1
    
40. cls
    
41. :: 对输入的我文件进行判断,非常注意的是如果路径参数带空格，系统会自动添加引号，而没有空格时间则无引号,所以要使用%~1来脱去引号，如是环境变量可使用%temp:"=%脱去(请参考批处理如何从用户传入的参数中去掉引号)
    
42. if not "%~1"=="" set g4d=%~1
    
43. if "%g4d%"=="" (set /p g4d=请拖入或输入GRLDR文件位置,直接回车则使用默认GRLDR:)
    
44. if not defined g4d set g4d=%cd%\grldr
    
45. set g4d=%g4d:"=%
    
46. if not exist "%g4d%" (cls&&echo 你输入路径有错或应把grldr和本工具放在同一文件夹,请更正后再使用本工具&&pause>nul&&exit)
    
47. call:ok "%g4d%"
    
48. goto:numstr
    
49. 
    
50. :ok
    
51. :: 获取变量路径的文件名和路径,可以使用FOR命令更简单For /f "usebackq tokens=*" %%i In ('type %temp%\path') do  set "name=%%~nxi"&SET "n=%%~ni"&SET "TP=%%~dpi"
    
52. set strf=%~nx1
    
53. set strp=%~dp1
    
54. goto:eof
    
55. 
    
56. :numstr
    
57. cls
    
58. set /p  str=请输入新的文件名称,字符要求全部为小写的任意5个字符:
    
59. :: 对5个字符限制进行检测,并把原始输入保存到strx变量
    
60. if not defined str goto:numstr
    
61. set strx=%str%
    
62. set "str=%str:"= %"
    
63. :next
    
64. if not "%str%"=="" (
    
65.     set /a num+=1
    
66.     set "str=%str:~1%"
    
67.     goto next
    
68. )
    
69. if "%num%" neq "5" goto:numstr
    
70. :: 大小写转化,这里使goto:rar用更为方便的RAR来进行处理
    
71. if exist rar.exe goto:rar
    
72. set str=%strx%
    
73. set str1=abcdefghijklmnopqrstuvwxyz
    
74. set str2=ABCDEFGHIJKLMNOPQRSTUVWXYZ
    
75. for /l %%i in (0,1,25) do (
    
76.     call set char1=%%str1:~%%i,1%%
    
77.     call set char2=%%str2:~%%i,1%%
    
78.     call :change
    
79. )
    
80. call set str=%str%
    
81. goto:str
    
82. :change
    
83. call set "str=%%str:%char1%=%char2%%%"
    
84. goto :eof
    
85. :rar
    
86. :: 利用RAR来转化大小写更加简单方便,获取的结果变量STRX为小写，STR为大写
    
87. copy /y "%g4d%" "%temp%\%strx%">nul
    
88. rar.exe a -r -inul -ep "%temp%\%strx%.rar" "%temp%\%strx%"
    
89. del /q/f "%temp%\%strx%">nul
    
90. rar.exe e -o+ -inul -cu "%temp%\%strx%.rar" "%temp%"
    
91. for /f "delims=" %%i in ('dir /a/b "%temp%\%strx%"') do call set str=%%i
    
92. del /q/f "%temp%\%strx%">nul
    
93. rar.exe x -o+ -inul -cl "%temp%\%strx%.rar" "%temp%"
    
94. for /f "delims=" %%i in ('dir /a/b "%temp%\%strx%"') do call set strx=%%i
    
95. copy /y "%g4d%.mbr" "%temp%\%strx%.mbr">nul
    
96. :str
    
97. :: 也可以使用白杨baiy.cn非常强大的查找和替换工具FR,如fr "%temp%\%str%" -f:GRLDR -t:%str%
    
98. cls
    
99. str.exe "%temp%\%str%" 0 0 /R /ASC:GRLDR /ASC:%str% /A
    
100. str.exe "%temp%\%str%" 0 0 /R /ASC:grldr /ASC:%strx% /A
     
101. str.exe "%temp%\%str%.mbr" 0 0 /R /ASC:GRLDR /ASC:%str% /A
     
102. str.exe "%temp%\%str%.mbr" 0 0 /R /ASC:grldr /ASC:%strx% /A
     
103. copy /y "%temp%\%strx%" "%strp%">nul
     
104. copy /y "%temp%\%strx%.mbr" "%strp%">nul
     
105. del /q/f "%temp%\%strx%.*">nul
     
106. set ng4d=%strp%\%strx%
     
107. SET TIPS=已经成功更名为%strx%和%strx%.mbr,你可以选择其他操作
     
108. goto:top
     
109. 
     
110. :2
     
111. cls
     
112. if exist "%ng4d%" goto:strmenu
     
113. set /p ng4d=请拖入或输入要编辑菜单的GRLDR文件,直接回车则使用默认GRLDR:)
     
114. if not defined ng4d set ng4d=%cd%\grldr
     
115. set ng4d=%ng4d:"=%
     
116. :strmenu
     
117. cls
     
118. set ng4dm=
     
119. grubmenu.exe export "%ng4d%" "%temp%\menu.lst"
     
120. if "%errorlevel%"=="1" (set TIPS=你要编辑的文件不是标准的GRUB文件,请重新来过&&GOTO:TOP)
     
121. CLS
     
122. ECHO -----------------------------------------
     
123. ECHO 1.直接编辑内置菜单并导入输入Y并回车
     
124. ECHO 2.否则请拖入或输入自有GRUB菜单并回车
     
125. ECHO 3.如果直接回车则使用默认菜单MENU.LST
     
126. ECHO.
     
127. ECHO   如果仅查看菜单或返回主菜单请输入Q并回车
     
128. ECHO -----------------------------------------
     
129. ECHO 注:菜单编码将会自动转为UTF8格式
     
130. ECHO.
     
131. set /p ng4dm=请输入Y或者拖入GRUB菜单并回车(Q返回):
     
132. if /i "%ng4dm%"=="Q" (grubmenu.exe print "%ng4d%"&&ECHO 任意键返回主菜单&&PAUSE>NUL&&GOTO:TOP)
     
133. if /i "%ng4dm%"=="Y" set ng4dm=%temp%\menu.lst
     
134. if not defined ng4dm set ng4dm=%cd%\menu.lst
     
135. set ng4dm=%ng4dm:"=%
     
136. ECHO %ng4dm%
     
137. PAUSE
     
138. cls
     
139. echo 请编辑内置菜单,完成后退出记事本编辑器
     
140. start /wait notepad.exe "%ng4dm%"
     
141. if exist "%ng4dm%" A2U.exe "%ng4dm%"  "%temp%\menuUTF8.lst"
     
142. if exist "%temp%\menuUTF8.lst" grubmenu.exe import "%ng4d%" "%ng4dm%"
     
143. SET TIPS=已经成功导入GRLDR菜单,你可再次操作以查看操作结果
     
144. del /q/f "%temp%\menu*.lst"
     
145. goto:top
     
146. 
     
147. :3
     
148. ::本程序借鉴了x9tian的代码,详细参考[url]http://bbs.wuyou.net/forum.php?mod=viewthread&tid=160280[/url]
     
149. ::如果要手工制作的话可以先把图片使用XNVIEW转化为14色深XPM的
     
150. cls
     
151. echo 本程序可把各种位图转化成GRUB背景图XPM格式
     
152. echo 请把要转换的图片拖到本窗口来,或者直接输入一个路径
     
153. set/p m=
     
154. if not exist %m% goto:3
     
155. for %%i in (%m%) do cv "%%~i" -resize 640x480! -colors 14 "%%~dpni.xpm">nul 2>nul&&gzip -9 "%%~dpni.xpm">nul 2>nul&&cls&&set xpm=%%~ni.xpm.gz
     
156. SET TIPS=已经成功制作启动背景图,保存为原文件目录下的"%xpm%"
     
157. goto:top
     
158. 
     
159. :4
     
160. :: 直接调用x9tian兄的MSG批处理工具,只是把退出代码改成了GOTO:TOP,MSG相关工具放到bin目录中
     
161. cls
     
162. call msg.bat
     
163. SET TIPS=已经重新生成了%mc%文件,原文件备份为%mc%.bak
     
164. goto:top
     
165. 
     
166. :5
     
167. cls
     
168. set /p md5p=请输入要加密GRUB菜单的密码,默认为9399100:
     
169. if "%md5p%"=="" set md5p=9399100
     
170. echo %md5p%>"%temp%\temp.txt"
     
171. MD5.EXE "%temp%\temp.txt" "%temp%\%md5p%.txt"
     
172. PING 127.0.0.1 -n 3 >NUL
     
173. START "" "%temp%\%md5p%.txt"
     
174. SET TIPS=已经成功制作菜单密码,请记住你的密码%md5p%
     
175. goto:top
     

复制代码

---

欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/)

Powered by Discuz! X3.3