|
|
我提供一个图形化的作参考,相关文件就不上传了。
CALL @Window1
_SUB Window1,W332H300,系统引导修复工具,,SHELL32.DLL#46
FDRV AllDrive=
GROU 分组框1,L12T5W300H220,选择操作
LABE 标签1,L25T240W145H40,请选择要修复的驱动器:
LIST 组合框1,L180T235W60H20,%AllDrive%,ENVI sysdir=%组合框1%,
RADI 单选框1,L25T20W226H20,修复 Microsoft Windows XP 引导文件,TEAM ENVI vl=1|ENVI @标签1=请选择要修复的驱动器:,0,0
RADI 单选框2,L25T50W246H20,修复 Microsoft Windows Vista 引导文件,TEAM ENVI vl=2|ENVI @标签1=请选择要修复的驱动器:,0,0
RADI 单选框3,L25T80W280H20,修复 Vista/WIN7/2008 引导文件,TEAM ENVI vl=3|ENVI @标签1=请选择引导文件所在分区:,0,0
RADI 单选框4,L25T110W240H20,修复 Microsoft Windows XP (NT52)引导,TEAM ENVI vl=4|ENVI @标签1=请选择引导文件所在分区:,0,0
RADI 单选框5,L25T140W255H20,修复 Microsoft Windows Vista (NT60)引导,TEAM ENVI vl=5|ENVI @标签1=请选择引导文件所在分区:,0,0
RADI 单选框6,L25T170W255H20,命令提示符,TEAM ENVI vl=6|ENVI @标签1=在本工具目录位置运行命令提示符。,0,0
RADI 单选框7,L25T200W255H20,重启计算机,TEAM ENVI vl=7|ENVI @标签1=重新启动计算机。,0,0
ITEM 按钮1,L242T234W70H22,确定,CALL fix,,0
_END
_SUB fix
IFEX $%vl%<1,MESS 请选择操作类型@信息#ok
IFEX $%vl%=1,CALL fixp
IFEX $%vl%=2,CALL fivista
IFEX $%vl%=3,CALL fiwin7
IFEX $%vl%=4,CALL nt52
IFEX $%vl%=5,CALL nt60
IFEX $%vl%=6, EXEC CMD.EXE /k @ECHO 控制启动管理器:BCDEdit 主启动代码更新:Bootsect 启动文件修复:bcdboot 注:bcdboot支持Vista以上系统
IFEX $%vl%=7,CALL CSHUT
_END
_SUB fixp
ENVI sysdir=%组合框1%
FIND $%sysdir%=,TEAM MESS 请选择目标分区。@ 选择分区#OK|EXIT
MESS 修复 %sysdir%\Windows 引导文件?@信息#YN
FIND $%YESNO%=NO,EXIT
IFEX %sysdir%\Windows,!TEAM MESS 目录%sysdir%\Windows不存在。@ 目录检查#OK|EXIT
IFEX %CurDir%\XP\boot.ini,!TEAM MESS 文件%CurDir%\XP\boot.ini不存在。@ 文件检查#OK|EXIT
IFEX %CurDir%\XP\ntldr,!TEAM MESS 文件%CurDir%\XP\ntld不存在。@ 文件检查#OK|EXIT
IFEX %CurDir%\XP\NTDETECT.COM,!TEAM MESS 文件%CurDir%\XP\NTDETECT.COM不存在。@ 目录检查#OK|EXIT
IFEX %CurDir%\XP\BOOTFONT.BIN!TEAM MESS 文件%CurDir%\XP\BOOTFONT.BIN不存在。@ 目录检查#OK|EXIT
EXEC !=attrib -s -h -r -a %sysdir%\boot.ini
EXEC !=attrib -s -h -r -a %sysdir%\ntldr
EXEC !=attrib -s -h -r -a %sysdir%\NTDETECT.COM
EXEC !=attrib -s -h -r -a %sysdir%\BOOTFONT.BIN
FILE %sysdir%\boot.ini
FILE %sysdir%\ntldr
FILE %sysdir%\NTDETECT.COM
FILE %sysdir%\BOOTFONT.BIN
FILE %CurDir%\XP\boot.ini=>%sysdir%\boot.ini
FILE %CurDir%\XP\ntldr=>%sysdir%\ntldr
FILE %CurDir%\XP\NTDETECT.COM=>%sysdir%\NTDETECT.COM
FILE %CurDir%\XP\BOOTFONT.BIN =>%sysdir%\BOOTFONT.BIN
EXEC =$%sysdir%\boot.ini
EXEC !=attrib +s +h +r %sysdir%\boot.ini
EXEC !=attrib +s +h +r %sysdir%\ntldr
EXEC !=attrib +s +h +r %sysdir%\NTDETECT.COM
EXEC !=attrib +s +h +r %sysdir%\BOOTFONT.BIN
MESS 操作完成!@信息#OK
_END
_SUB fivista
ENVI sysdir=%组合框1%
FIND $%sysdir%=,TEAM MESS 请选择目标分区。@ 选择分区#OK|EXIT
MESS 修复 %sysdir%\Windows 引导文件?@信息#YN
FIND $%YESNO%=NO,EXIT
IFEX %sysdir%\Windows,!TEAM MESS 目录%sysdir%\Windows不存在。@ 目录检查#OK|EXIT
IFEX %CurDir%\VISTA\bootmgr,!TEAM MESS 文件%CurDir%\VISTA\bootmgr不存在。@ 文件检查#OK|EXIT
IFEX %CurDir%\VISTA\BCD!TEAM MESS 文件%CurDir%\VISTA\BCD不存在。@ 文件检查#OK|EXIT
EXEC !=attrib -s -h -r -a %sysdir%\bootmgr
FILE %sysdir%\bootmgr
EXEC=!CMD.EXE /C "md %sysdir%\boot"
FILE %CurDir%\VISTA\bootmgr=>%sysdir%\bootmgr
FILE %CurDir%\VISTA\BCD=>%sysdir%\boot\BCD
EXEC !=attrib +s +h %sysdir%\boot\BCD
EXEC !=attrib +s +h %sysdir%\boot
EXEC !=attrib +s +h +r %sysdir%\bootmgr
MESS 操作完成!@信息#OK
_END
_SUB fiwin7
ENVI sysdir=%组合框1%
FIND $%sysdir%=,TEAM MESS 请选择目标分区。@ 选择分区#OK|EXIT
MESS 请确认引导分区为 %sysdir%@信息#YN
FIND $%YESNO%=NO,EXIT
BROW Tag,*%sysdir%\Windows,请选择Windows目录。
IFEX %Tag%,!TEAM MESS 目录不存在。@ 目录检查#OK|EXIT
EXEC =!bcdboot.exe %Tag% /s %sysdir%
MESS 操作完成!@信息#OK
_END
_SUB nt52
ENVI sysdir=%组合框1%
FIND $%sysdir%=,TEAM MESS 请选择目标分区。@ 选择分区#OK|EXIT
MESS 修复 %sysdir%\Windows 引导文件?@信息#YN
FIND $%YESNO%=NO,EXIT
EXEC =!bootsect.exe /nt52 %sysdir%
MESS 操作完成!@信息#OK
_END
_SUB nt60
ENVI sysdir=%组合框1%
FIND $%sysdir%=,TEAM MESS 请选择目标分区。@ 选择分区#OK|EXIT
MESS 修复 %sysdir%\Windows 引导文件?@信息#YN
FIND $%YESNO%=NO,EXIT
EXEC =!bootsect.exe /nt60 %sysdir%
MESS 操作完成!@信息#OK
_END
_SUB CSHUT
MESS 你确定马上重启计算机吗?@信息#YN
FIND $%YESNO%=NO,EXIT
SHUT R
_END |
|