批处理之家 - Powered by Discuz! Board

<title>备份还原快手2.0                     By: newxso</title>
<SCRIPT LANGUAGE="VBScript">
window.resizeTo 473, 190
window.moveTo(screen.width-500)/2,(screen.height-400)/2
Set objShell = CreateObject ("Wscript.Shell")
Sub BackupScript
objShell.Run("%comspec% /c start brgo.exe 1"),0 ,TRUE
Self.Close()
End Sub
Sub RestoreScript
objShell.Run("%comspec% /c start brgo.exe 2"),0 ,TRUE
Self.Close()
End Sub
Sub BootScript
objShell.Run("%comspec% /c start BootSet.hta"),0 ,TRUE
End Sub
Sub HddScript
objShell.Run("%comspec% /c start HddInfo.hta"),0 ,TRUE
End Sub
Sub HelpScript
objShell.Run("%comspec% /c notepad.exe 使用说明.txt"),0 ,TRUE
End Sub
</SCRIPT>
<body bgcolor="#DCDCDC">
<fieldset><legend>请用鼠标点击选择以下项目：</legend>
<td valign="top"><font color="#D200D2" size="2">
<marquee behavior="alternate" scrollamount="4">┏点击┓</marquee>
 <input id=runbutton class="button" type="button" value="备份系统" name="backup_button"
onClick="BackupScript">
<input id=runbutton class="button" type="button" value="还原系统" name="Restore_button"
onClick="RestoreScript">
<input id=runbutton class="button" type="button" value="引导模式" name="boot_button"
onClick="BootScript">
<input id=runbutton class="button" type="button" value="磁盘信息" name="hdd_button"
onClick="HddScript">
<input id=runbutton class="button" type="button" value="使用帮助" name="help_button"
onClick="HelpScript">
<BR>
<BR>
<BR>
<td valign="top"><font color="#FF60AF" size="2">
<marquee scrollamount="2" direction="left">背景音乐: 谭咏麟 - 无法不想你</marquee>
<fieldset>
<table border="0" cellspacing="1" width="100%">
<td valign="top"><font color="#01B468" size="2">
<marquee scrollamount="4" direction="left">备份还原快手是一个可以在Windows下完成Ghost备份还原的程序简单到你只需点一下鼠标即可                                                Made: newxso QQ:453623262 Email:aximail@126.com</marquee>
</table>
<body scroll="no">
<HTA:APPLICATION contextmenu="no" MaximizeButton="No" ICON="brgo.ico">
<BGSOUND SRC="无法不想你.wma" Loop="-1">
</BODY>

复制代码

WSH.echo CreateObject("WScript.Shell").Exec("mshta.exe ""about:<hta:application showintaskbar=no />" &_
"<title>提示</title><script>window.resizeTo(500, 150);" & _
"function f(a){document.getElementById('info').innerText=a.value;" & _
"new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(a.value.replace(/\D+/, ''));" & _
"setTimeout(function(){window.close()}, 1000)}</script>" & _
"<body style='text-align:center'><div><font style='color:#FF0000;'>点击其中一个按钮试试</font><br>" & _
"<input type='button' value='按钮1' onclick='f(this)'>  " & _
"<input type='button' value='按钮2' onclick='f(this)'>  " & _
"<input type='button' value='按钮3' onclick='f(this)'>  " & _
"<input type='button' value='按钮4' onclick='f(this)'>  " & _
"<input type='button' value='按钮5' onclick='f(this)'>  " & _
"<input type='button' value='按钮6' onclick='f(this)'>  " & _
"<input type='button' value='按钮7' onclick='f(this)'></div><br><div id='info'></div></body>""").StdOut.ReadAll

复制代码