Aero Glass Cofigurator 2.0 For Windows 8.1

**Mr GRiM** · November 23rd, 2013 01:00 AM

Aero Glass Configurator 2.0

2 New Styles Windowed and Light

This tool is for Big Muscle's Aero Glass for Win8.1 and will let you configure nearly all of the settings for Aero Glass with ease.

Updated version for Aero Glass RC1, now includes the Text Glow mode and cleaned up the script a little bit.

Below are all the scripts used to make this tool, feel free to reuse or modify the code to your liking.

Spoiler!

Aero Glass Configurator HTA script

Spoiler!

Code:

<head>
<title>Aero Glass Blur Deviation</title>
<HTA:APPLICATION APPLICATIONNAME="Aero Glass Blur" BORDER="none" INNERBORDER="no" CONTEXTMENU="no" ICON="icon.ico" SCROLL="no"/>
<style type="text/css">
	BODY{
        background: url("background.png") repeat-x #000000;
		margin: 0;
		line-height: 13px;
	}

	td {
		padding: 0 18px;
	}
	
	.close-padding {
		padding: 0 7px;
	}
	
	.button{
		background: url("button.png") repeat-x #000000;
		vertical-align: middle;
		font-family: Arial;
		font-size: 14px;
		font-weight:bold;
		margin: 2px 2px 3px;
		border: none;
		padding: 1px 3px;
	}
	a:link .button, a:visited .button{color: #cc0000;}
	a:hover .button {background-color: #880000; color: #fff;}	
	
	.applybutton{
		background: url("button.png") repeat-x #880000;
		font-family: Arial;
		font-size: 14px;
		font-weight:bold;
		margin: 14px 3px 0;
		border: none;
		line-height: 18px;
		padding: 1px 2px 0;
	}
	a:link .applybutton, a:visited .applybutton {color: #ffffff;}
	a:hover .applybutton {background-color: #000000; color: #cc0000;}

	.closebutton{
		background: url("button.png") repeat-x #000000;
		font-family: Arial;
		font-size: 14px;
		font-weight:bold;
		margin: 3px 2px 0 0;
		border: none;
		padding: 0 5px 0 4px;
	}
	a:link .closebutton, a:visited .closebutton {color: #cc0000;}
	a:hover .closebutton {background-color: #880000; color: #ffffff;}

	.Inputs, .ImputsHover{
		font-family: Arial;
		font-size: 12px;
		margin: 6px 2px;
		border: none;
		padding: 3px 2px;
	}
	.Inputs{color: #ffffff; background: url("button.png") repeat-x #000000;}
	.ImputsHover{color: #ffffff; background: url("button.png") repeat-x #111111;}
</style>

<script language="vbscript">
	winWidth=600
	winHeight=500
	window.resizeto winWidth,winHeight
	centerX=(screen.width-winWidth)/2
	centerY=(screen.height-winHeight)/2
	window.moveto centerX,centerY
	posX=0
	posY=0
	move=0
	Function closeHTA()
		self.close
	End Function
	Function setPos()
		posX=window.event.screenX
		posY=window.event.ScreenY
		move=1
	End Function
	Function moving()
		If move=1 Then
		moveX=0
		moveY=0
		moveX=window.event.screenX-posX
		moveY=window.event.screenY-posY
		window.moveto(window.screenLeft+moveX),(window.screenTop+moveY)
		setPos()    
		End if
	End Function
	Function stopMoving()
		move=0
	End Function
 '-----------------------------Window onLoad---------------------------------- 
	Const HKEY_CURRENT_USER = &H80000001
	strComputer = "."
	Set wshell = CreateObject("WScript.Shell")
	sysdrive = wshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
	sFolder = Wshell.CurrentDirectory
	Sub Window_onLoad
		iTimerID = window.setInterval("getBlurDeviation", 300)
		iTimerID = window.setInterval("getRoundRectRadius", 300)
		iTimerID = window.setInterval("getCustomThemeAtlas", 300)
		iTimerID = window.setInterval("getCustomThemeReflection", 300)
		iTimerID = window.setInterval("getColorizationColorBalance", 300)
		iTimerID = window.setInterval("getColorizationColorBalanceInactive", 300)
		iTimerID = window.setInterval("getColorizationBlurBalance", 300)
		iTimerID = window.setInterval("getColorizationBlurBalanceInactive", 300)
		iTimerID = window.setInterval("getTextGlowMode", 300)
		iTimerID = window.setInterval("getColorizationGlassReflectionIntensity", 300)
		iTimerID = window.setInterval("getDisableGlassOnBattery", 300)
		iTimerID = window.setInterval("GetEnableAeroGlass", 300)
		iTimerID = window.setInterval("GetEnableLogging", 300)
		iTimerID = window.setInterval("GetBypassThemeSignature", 300)
	End Sub
 '---------------------------------Blur Deviation-----------------------------
	sub getBlurDeviation
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "BlurDeviation"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea1.InnerHTML = dwValue
	End Sub
	Sub SetBlurDeviation
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "BlurDeviation"
		dwValue = InputBox("Set Blur amount 10-40 Set 0 to Disable Blur", "Set Blur Amount", "")
	If  dwValue = "0-40" then
		dwValue = dwValue
ElseIf	dwValue = "" then dwValue = "30"
		End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
	Sub ClearBlurDeviation
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "BlurDeviation"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub	
 '---------------------------------Round Rect Radius---------------------------- 
	sub getRoundRectRadius
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "RoundRectRadius"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea2.InnerHTML = dwValue
	End Sub
	Sub SetRoundRectRadius
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "RoundRectRadius"
		dwValue = InputBox("Radius of rounded windows corners, Win8 = 0, Win7 = 12", "Radius of rounded windows corners", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
	Sub ClearRoundRectRadius
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "RoundRectRadius"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub	
	'----------------------------Colorization Color Balance-----------------------
	sub getColorizationColorBalance
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "ColorizationColorBalance"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea3.InnerHTML = dwValue
	End Sub
	Sub SetColorizationColorBalance
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "ColorizationColorBalance"
		dwValue = InputBox("Active Color intensity (0-100%)", "Color intensity", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
	Sub ClearColorizationColorBalance
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "ColorizationColorBalance"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub	
	'-----------------------Colorization Color Balance Inactive---------------------- 
	sub getColorizationColorBalanceInactive
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "ColorizationColorBalanceInactive"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea4.InnerHTML = dwValue
	End Sub
	Sub SetColorizationColorBalanceInactive
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "ColorizationColorBalanceInactive"
		dwValue = InputBox("Inactive Color intensity (0-100%)", "Color intensity", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
 	Sub ClearColorizationColorBalanceInactive
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "ColorizationColorBalanceInactive"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub
	'----------------------------Colorization Blur Balance-----------------------
	sub getColorizationBlurBalance
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "ColorizationBlurBalance"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea5.InnerHTML = dwValue
	End Sub
	Sub SetColorizationBlurBalance
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "ColorizationBlurBalance"
		dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Active Blur Balance", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
	Sub ClearColorizationBlurBalance
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "ColorizationBlurBalance"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub	
	'-----------------------Colorization Blur Balance Inactive---------------------- 
	sub getColorizationBlurBalanceInactive
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "ColorizationBlurBalanceInactive"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea6.InnerHTML = dwValue
	End Sub
	Sub SetColorizationBlurBalanceInactive
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "ColorizationBlurBalanceInactive"
		dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Inactive Blur Balance", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
 	Sub ClearColorizationBlurBalanceInactive
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "ColorizationBlurBalanceInactive"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub
	'--------------------------------------Text Glow Mode-------------------------------- 
	sub getTextGlowMode
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "TextGlowMode"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea15.InnerHTML = dwValue
	End Sub
	Sub SetTextGlowMode
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "TextGlowMode"
		dwValue = InputBox("Text Glow Mode (0=No glow effect, 1=Glow effect loaded from atlas, 2=Glow effect loaded from atlas and theme opacity is respected, 3=Composited glow effect using your theme settings)", "Text Glow Mode", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
 	Sub ClearTextGlowMode
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "TextGlowMode"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub
 	'-----------------------Colorization Glass Reflection Intensity---------------------- 
	sub getColorizationGlassReflectionIntensity
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "ColorizationGlassReflectionIntensity"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
		DataArea7.InnerHTML = dwValue
	End Sub
	Sub SetColorizationGlassReflectionIntensity
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "ColorizationGlassReflectionIntensity"
		dwValue = InputBox("Glass Reflection, Win8 = 0, Win7 = 50, (0-100%)", "Glass Reflection", "")
	If  dwValue = "" then dwValue = "" End If
		oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	End Sub
 	Sub ClearColorizationGlassReflectionIntensity
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strDWORDValueName = "ColorizationGlassReflectionIntensity"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
	End Sub
 '------------------------------Custom Theme Reflection------------------------- 
 	sub getCustomThemeReflection
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "CustomThemeReflection"
		oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
		DataArea8.InnerHTML = strValue
	End Sub
	Sub SetCustomThemeReflection
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "CustomThemeReflection"
		strValue = fileloader.value
		oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
	End Sub
	Sub ClearCustomThemeReflection
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strStringValueName = "CustomThemeReflection"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
	End Sub
	'------------------------------Custom Custom Theme Atlas------------------------- 
	sub getCustomThemeAtlas
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "CustomThemeAtlas"
		oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
		DataArea9.InnerHTML = strValue
	End Sub
	Sub SetCustomThemeAtlas
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
		strValueName = "CustomThemeAtlas"
		strValue = fileloader2.value
		oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
	End Sub
	Sub ClearCustomThemeAtlas
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strStringValueName = "CustomThemeAtlas"
		oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
	End Sub
	'--------------------------------Disable Glass On Battery----------------------- 
	sub getDisableGlassOnBattery
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "DisableGlassOnBattery"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	If		dwValue = "1" then
			DataArea10.InnerHTML = "Disabled On Battery"
	ElseIf	dwValue = "0" then
			DataArea10.InnerHTML = "Enabled On Battery"
			CheckBox1.Checked = True
	Else	DataArea10.InnerHTML = "Enabled On Battery Not Configured"
	End If
	End Sub
	Sub SetDisableGlassOnBattery
	If 		CheckBox1.Checked Then
			EnableGlassOnBattery
	Else 	
			DisableGlassOnBattery
	End If
	End Sub
	'---------------------------------Enable Aero Glass-------------------------- 
	Sub GetEnableAeroGlass
		const HKEY_LOCAL_MACHINE = &H80000002
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"
		strValueName = "LoadAppInit_DLLs"
		oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
	If		dwValue = "1" then
			DataArea11.InnerHTML = "Aero Glass Enabled"
			CheckBox2.Checked = True
	Else	DataArea11.InnerHTML = "Aero Glass Disabled"
	End If
	End Sub
	Sub SetEnableAeroGlass
	If 		CheckBox2.Checked Then
			Set objShell = CreateObject("Shell.Application")
			objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableAeroGlass.vbs")
	Else 	
			Set objShell = CreateObject("Shell.Application")
			objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableAeroGlass.vbs")

			Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &	strComputer & "\root\default:StdRegProv")
			strKeyPath = "Software\Microsoft\Windows\CurrentVersion\ThemeManager"
			oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
			strValueName = "DllName"
			strValue = "%SystemRoot%\resources\Themes\Aero\Aero.msstyles"
			oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue			
	End If
	End Sub
 '--------------------------------Enable Logging----------------------- 
	sub GetEnableLogging
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "EnableLogging"
		oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
	If		dwValue = "1" then
			DataArea12.InnerHTML = "Logging Enabled"
			CheckBox3.Checked = True
	ElseIf	dwValue = "0" then
			DataArea12.InnerHTML = "Logging Disabled"
	Else	DataArea12.InnerHTML = "Logging Not Configured"
	End If
	End Sub
	Sub SetEnableLogging
	If 		CheckBox3.Checked Then
			EnableLogging
	Else 	
			DisableLogging
	End If
	End Sub
 '---------------------------------Bypass Theme Signature-------------------------- 
	Sub GetBypassThemeSignature
		const HKEY_LOCAL_MACHINE = &H80000002
		strComputer = "."
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
		strValueName = "BypassThemeSignature"
		oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
	If		dwValue = "1" then
			DataArea13.InnerHTML = "Bypass Theme Signature Enabled"
			CheckBox4.Checked = True
	ElseIf	dwValue = "0" then	
			DataArea13.InnerHTML = "Bypass Theme Signature Disabled"
	Else	DataArea13.InnerHTML = "Bypass Theme Signature Not Configured"
	End If
	End Sub
	Sub SetBypassThemeSignature
	If 		CheckBox4.Checked Then
			Set objShell = CreateObject("Shell.Application")
			objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableBypassThemeSignature.vbs")
	Else 	
			Set objShell = CreateObject("Shell.Application")
			objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableBypassThemeSignature.vbs")
	End If
	End Sub
	'----------------------------------Browse File Reflection--------------------------------- 
	Sub BrowseFile
		innerHTML = fileloader.value
	End Sub
	'----------------------------------Browse File Theme Atlas--------------------------------- 
	Sub BrowseFile2
		innerHTML = fileloader2.value
	End Sub
 '--------------------------------------Apply Blur---------------------------------  
	Dim dtmStartTime	
	Sub ApplyBlur
		On Error Resume Next
		Set objShell = CreateObject("Shell.Application")
		objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
		dtmStartTime = Now 
		idTimer = window.setTimeout("RestartExplorer", 200, "VBScript")
	End Sub
	Sub RestartExplorer
		window.clearTimeout(idTimer)
		' Kill Explorer.exe
		strComputer = "."
		Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
			Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
		For Each objProcess in colProcessList
			objProcess.Terminate()
		Next
	End Sub
 '-----------------------------------Apply Blur Exit---------------------------- 
	Sub ApplyBlurExit
		On Error Resume Next
		Set objShell = CreateObject("Shell.Application")
		objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
		dtmStartTime = Now
		idTimer = window.setTimeout("RestartExplorerExit", 200, "VBScript")
	End Sub
	Sub RestartExplorerExit
		window.clearTimeout(idTimer)
		' Kill Explorer.exe
		strComputer = "."
		Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
			Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
		For Each objProcess in colProcessList
			objProcess.Terminate()
		Next
		self.close
	End Sub
	'------------------------------------------------------------------------------- 
	Sub OnMouseOver
		Set objItem = window.event.srcElement
		objItem.className="ImputsHover"
	End Sub
	Sub OnMouseOut
		Set objItem = window.event.srcElement
		objItem.className="Inputs"
	End Sub
</script>
<script language="JavaScript">
function writeInRegistry1(sRegEntry, sRegValue)
{
  var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
  var oWSS = new ActiveXObject("WScript.Shell");
  oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function DisableGlassOnBattery()
{
  writeInRegistry1("DisableGlassOnBattery", "1");
}
function EnableGlassOnBattery()
{
  writeInRegistry1("DisableGlassOnBattery", "0");
}

function writeInRegistry2(sRegEntry, sRegValue)
{
  var regpath = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\" + sRegEntry;
  var oWSS = new ActiveXObject("WScript.Shell");
  oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableGlass()
{
  writeInRegistry2("LoadAppInit_DLLs", "1");
}
function DisableGlass()
{
  writeInRegistry2("LoadAppInit_DLLs", "0");
}

function writeInRegistry3(sRegEntry, sRegValue)
{
  var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
  var oWSS = new ActiveXObject("WScript.Shell");
  oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableLogging()
{
  writeInRegistry3("EnableLogging", "1");
}
function DisableLogging()
{
  writeInRegistry3("EnableLogging", "0");
}

function writeInRegistry4(sRegEntry, sRegValue)
{
  var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
  var oWSS = new ActiveXObject("WScript.Shell");
  oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableBypassThemeSignature()
{
  writeInRegistry4("BypassThemeSignature", "1");
}
function DisableBypassThemeSignature()
{
  writeInRegistry4("BypassThemeSignature", "0");
}
</script>
</head>
<body onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()">
	<table width=100% cellspacing=0 cellpadding=0>
		<tr>
			<td class="close-padding" align="right"><a href="#"><input type="button" value="X" onClick="closeHTA" class="closebutton" /></a></td>
		</tr>
	</table>
	</br>
	<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
		<tr>
			<td><b>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearBlurDeviation"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetBlurDeviation"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Blur Deviation Amount: </font><font size=2 color='#cc0000' face='Arial'><span id = "DataArea1"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearRoundRectRadius"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetRoundRectRadius"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Radius of Windows Corners: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea2"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalance"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalance"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Active Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea3"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalanceInactive"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalanceInactive"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Inactive Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea4"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalance"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalance"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Active Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea5"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalanceInactive"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalanceInactive"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Inactive Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea6"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearTextGlowMode"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetTextGlowMode"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Text Glow Mode: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea15"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationGlassReflectionIntensity"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationGlassReflectionIntensity"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Glass Reflection Intensity: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea7"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeReflection"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeReflection"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Custom Theme Reflection: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea8"></span></font></br>
				<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeAtlas"/></a> 
				<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeAtlas"/></a> 
				<font size=2 color='#ffffff' face='Arial'>Custom Theme Atlas: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea9"></span></font></br></b>
			</td>
			</tr> 
	</table>
	<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
		<tr>
			<td>
				<font size='1' color='#ffffff' face='Arial'><b>Glass Reflection </b></font>
				<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader" onchange="BrowseFile" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
			</td>
		</tr>
		<tr>
			<td>
				<font size='1' color='#ffffff' face='Arial'><b>Custom Theme Atlas </b></font>
				<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader2" onchange="BrowseFile2" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
			</td>
		</tr> 
	</table>
	<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
	<tr>
			<td width=50%>
				<input type="checkbox" name="CheckBox1" value="Checkbox1" title="Disable Glass On Battery" onclick="SetDisableGlassOnBattery"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea10"></span></font>
				</br>
				<input type="checkbox" name="CheckBox2" value="Checkbox2" title="Enable Aero Glass" onclick="SetEnableAeroGlass"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea11"></span></font>
			</td>
			<td width=50%>
				<input type="checkbox" name="CheckBox3" value="Checkbox3" title="Enable Logging" onclick="SetEnableLogging"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea12"></span></font>
				</br>
				<input type="checkbox" name="CheckBox4" value="Checkbox4" title="Bypass Theme Signature" onclick="SetBypassThemeSignature"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea13"></span></font>
			</td>
		</tr> 
	</table>
	<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
		<tr>
			<td>
				<center>
				<a href="javascript: void(0)" ><input type="button" value="Donate" onClick="self.location='https://glass8.berlios.de/donate.html'" class="applybutton" /></a>
				<a href="javascript: void(0)" ><input type="button" value="Aero Glass for Windows 8" onClick="self.location='https://glass8.berlios.de'" class="applybutton" /></a>
				<a href="javascript: void(0)" ><input type="button" value="OK" onClick="ApplyBlurExit" class="applybutton" /></a>
				<a href="javascript: void(0)" ><input type="button" value="Close" onClick="closeHTA" class="applybutton" /></a>
				<a href="javascript: void(0)" ><input type="button" value="Apply" onClick="ApplyBlur" class="applybutton" /></a>
				</center>
			</td>
		</tr> 
	</table>
</body>
<embed src="Music.wav" autostart="true" hidden="true"/>