testmans Posted February 16, 2011 Share Posted February 16, 2011 Hta-based recovery process for creating Windows 7. All documents and fully customizable toolWaiting for your questions and commentsexcerpt link Link to comment Share on other sites More sharing options...
Kullenen_Ask Posted February 16, 2011 Share Posted February 16, 2011 where is download link,hta code or english explanation? please give more info Link to comment Share on other sites More sharing options...
testmans Posted February 16, 2011 Author Share Posted February 16, 2011 (edited) converted the English language code.<HTML><HEAD><TITLE>Recovery</TITLE><HTA:APPLICATIONBORDER = YesCOMPANY = pctesti.comAPPLICATION = YesWINDOWSTATE = maximizeINNERBORDER = NoSHOWINTASKBAR = YesSCROLL = noAPPLICATIONNAME = "Recovery"NAVIGABLE = yesCAPTION = No><STYLE> .1{color: #1B4A95; font-family: tahoma; font-size: 8pt; font-weight: bold}.2{color: #1B4A95; font-family: tahoma; font-size: 10pt; font-weight: bold}input.btn {color:#1B4A95; font-family: tahoma; font-size: 10pt; font-weight: bold; width: 220; background-color: #FFFFFF; border-color: #C0D4EF}.auto-style3 { color: #FF0000;}.auto-style5 { border: 1px solid #1B4A95; background-color: #C0D4EF;}.auto-style6 { border-style: solid; border-color: #1B4A95; background-color: #1B4A95;}.auto-style7 { color: #7D5757;}.auto-style8 { border-style: solid; border-color: #000000; background-image: url('background.jpg');}.auto-style9 { font-size: large; color: #093B64;}.auto-style10 { color: #e51f1f; font-weight: normal;}.auto-style11 { color: #000000;}.auto-style12 { text-align: left;}.auto-style13 { background-color: #1B4A95; color: #FFFFFF;}.auto-style14 { color: #FFFFFF;}</STYLE><link href="http://pctesti.com/"></HEAD><script language="VBScript">Sub activate yes.disabled = falseEnd SubSub deactivate yes.disabled = trueEnd SubSub XPRecoveryConst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv")strKeyPath = "System\CurrentControlSet\Control"strValueName = "PEBootRamdiskSourceDrive"oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValueUFD = strValuedocument.body.style.cursor = "wait"Set objShell = CreateObject("Wscript.Shell")blnAnswer = window.confirm("ALL DATA ON DRIVE C: will be deleted. Are you sure you want to continue?") If blnAnswer Then objShell.Run "diskpart.exe /s x:\sources\Recovery\Tools\Clean_part.txt",1,true objShell.Run "ISA.exe /apply c:\Recovery\windowsre\hdd.wim 1 d:",1,true Else End If blnAnswer = window.confirm("Prcess complated please OK button restart comuter.") If blnAnswer Then objShell.Run "wpeutil reboot",0,true Else End If End SubSub ExitHTA Self.Close()End Sub</script><BODY style="background-color: #1B4A95"><img alt="" height="39" src="logo.png" width="146"><br><BR><center><TABLE width="709" height="413" cellpadding="4" class="auto-style5"><TR><TD width="695" height="249" colspan="2" bgcolor="#FFFFFF" class="auto-style8" style="width: 707"><DIV class="2" align="center"> <p> </p> <p class="auto-style12"><strong><span class="auto-style9"></span></strong></p> <p align="right"> </p> <p class="auto-style10"> </p><p class="auto-style3"> </p></DIV></TD></TR><TR><TD colspan="2" class="auto-style6" style="width: 707px"><center class="1"><textarea name="eula" cols="85" readonly class="auto-style13" style="height: 71px">CAUTION: Do not cut the energy during the recovery process and do not close your computer. The recovery process is complete, the computer will restart automatically.So you can restore the factory settings you must agree to the above terms.Press Accept button click.</textarea> <br></TD></TR><TR><TD colspan="2" style="width: 707" class="auto-style13" ><DIV class="1"> <input type="Radio" name="eula" value="Accept Eula" onClick="activate"> <span class="auto-style14">I agree</span><BR> <input type="Radio" name="eula" value="Decline Eula" onClick="deactivate"> <span class="auto-style14">I do not accept</span></DIV> </TD></TR></TABLE><br><TABLE width="700"><TR><TD><center><input type="button" value="Start Recovery" name="yes" onClick="XPRecovery" disabled=true class="btn"></TD><TD> <center><input type="button" value="Exit" name="no" onClick="ExitHTA" class="btn"> </TD></TR></TABLE><a href="http://pctesti.com/"></script>pctesti</a><script language="VBScript">Set WshNetwork = CreateObject("WScript.Network")HostName = WshNetwork.ComputerNameSet WshNetwork = Nothingdocument.opendocument.write "<p><h3 align=center><font color='white' face='Century Gothic, Tahoma, Arial, Helvetica'>Disk kullanımı " & HostName & " </font></h3>"document.write "<div align=right> </div><hr size=1>"document.close</body></HTML> Edited February 16, 2011 by testmans Link to comment Share on other sites More sharing options...
jaclaz Posted February 16, 2011 Share Posted February 16, 2011 The reference site is in Turkish, but google translate does a fair job :http://translate.google.it/translate?u=http%3A%2F%2Fpctesti.com%2Frecovery-programlari%2Frecovery-partition-olusturmak%2Fadim-adim-recovery-partition-olusturma%2F&sl=tr&tl=en&hl=&ie=UTF-8jaclaz Link to comment Share on other sites More sharing options...
Tripredacus Posted February 16, 2011 Share Posted February 16, 2011 I'm not sure if it is clear on the linked page, but you can get any tool to appear as the 6th option on the Recovery app from here:Customizing the Windows RE Experience Link to comment Share on other sites More sharing options...
testmans Posted February 16, 2011 Author Share Posted February 16, 2011 Linked page is open. This study is it bad? Link to comment Share on other sites More sharing options...
testmans Posted February 17, 2011 Author Share Posted February 17, 2011 links updated Link to comment Share on other sites More sharing options...
Tripredacus Posted February 17, 2011 Share Posted February 17, 2011 Linked page is open. This study is it bad?What is the purpose for including the winre.wim in your download? Provide the files needed, and include instructions on how to put your files in the WIM, as I have done in my HTA thread in my signature. You are not allowed to redistribute the winre.wim. Also you cannot redistribute imagex.exe. I came across this after I saw it being extracted but couldn't find it. D:\Brute\msfn\Recovery>dir *.* /a:sh Volume in drive D is Data Volume Serial Number is F2B2-27A8 Directory of D:\Brute\msfn\RecoveryFile Not FoundD:\Brute\msfn\Recovery>cd recoveryD:\Brute\msfn\Recovery\Recovery>dir *.* /a:sh Volume in drive D is Data Volume Serial Number is F2B2-27A8 Directory of D:\Brute\msfn\Recovery\Recovery02/15/2011 02:43 PM 213,043,656 Winre.wim 1 File(s) 213,043,656 bytes 0 Dir(s) 73,616,080,896 bytes freeD:\Brute\msfn\Recovery\Recovery>attrib winre.wim -s -h +a -rD:\Brute\msfn\Recovery\Recovery>dir Volume in drive D is Data Volume Serial Number is F2B2-27A8 Directory of D:\Brute\msfn\Recovery\Recovery02/17/2011 08:49 AM <DIR> .02/17/2011 08:49 AM <DIR> ..02/15/2011 02:37 PM 9,287 Autounattend.xml07/14/2009 06:10 AM 481,680 imagex.exe01/02/2010 10:12 AM 4,166 Script.cmd10/13/2009 04:04 PM 2,575 unattend_re.xml02/17/2011 09:46 AM 213,043,656 Winre.wim 5 File(s) 213,541,364 bytes 2 Dir(s) 73,605,324,800 bytes freeD:\Brute\msfn\Recovery\Recovery> Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now