|
Opt("GUICloseOnESC", 0)
$msg = MsgBox(1, "天择网络自动系统恢复", "是否进行GHOST快速恢复系统?" & @CRLF & @CRLF & "说明:请确定景象位置e:\MaxBAK\Tz.gho," & @CRLF & "再把本程序和gho文件放在同一分区根目录下即可按确定。")
如何在20秒后不需要点确定自动运行下面代码。 然后重启。
需要高手改进。在线等/。
(If $msg = 1 Then
DirCreate("c:\ghos\")
FileSetAttrib("c:\ntldr", "-SHR")
FileSetAttrib("c:\grldr", "-SHR")
FileDelete("c:\ntldr")
FileDelete("c:\grldr")
FileInstall("menu.lst", "c:\ghos\", 1)
FileInstall("GHOSt.IMG", "c:\ghos\", 1)
FileInstall("memdisk.gz", "c:\ghos\", 1)
FileInstall("Ghost.exe", "c:\ghos\", 1)
FileInstall("GRLDR", "c:\", 1)
FileInstall("ntldr", "c:\", 1)
FileInstall("Ghost.exe", "e:\MaxBAK\", 1)
FileSetAttrib("c:\boot.ini", "-SHR")
IniWrite("c:\boot.ini", "boot loader", "timeout", "5")
IniWrite("c:\boot.ini", "boot loader", "default", "C:\grldr")
IniWrite("c:\boot.ini", "operating systems", "C:\grldr", Chr(34) & "系统恢复" & Chr(34))
$sure = MsgBox(1, "消息", "准备工作完毕,是否重新启动电脑?取消则稍候手动重启。")
If $sure = 1 Then
Shutdown(2)
EndIf
EndIf) |
|