Jump to content

testmans

Member
 View Profile  See their activity

  • Posts

    4

  • Joined

  • Last visited

  • Donations

    0.00 USD 

  • Country

    Turkey

About testmans

Profile Information

  • OS
    none specified

testmans's Achievements

0

Reputation

  1. testmans
    links updated
  2. testmans
    Linked page is open. This study is it bad?
  3. testmans
    converted the English language code. <HTML> <HEAD> <TITLE>Recovery</TITLE> <HTA:APPLICATION BORDER = Yes COMPANY = pctesti.com APPLICATION = Yes WINDOWSTATE = maximize INNERBORDER = No SHOWINTASKBAR = Yes SCROLL = no APPLICATIONNAME = "Recovery" NAVIGABLE = yes CAPTION = 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 = false End Sub Sub deactivate yes.disabled = true End Sub Sub XPRecovery Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "System\CurrentControlSet\Control" strValueName = "PEBootRamdiskSourceDrive" oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue UFD = strValue document.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 Sub Sub 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.ComputerName Set WshNetwork = Nothing document.open document.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>
  4. testmans
    Hta-based recovery process for creating Windows 7. All documents and fully customizable tool Waiting for your questions and comments excerpt link
×
×
  • Create New...