Jump to content

Aero Glass Cofigurator For Windows 8.1


MrGRiM

Recommended Posts

Aero Glass Configurator 3.0

27fzxux73b4w53qfg.jpg

2 New Styles Windowed and Light

gr36adv7d5ed6u9fg.jpg8f2aa7ne5dc3nrofg.jpg


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.

Updated version For Aero Glass for Win8.1 1.0 obsolete settings have been removed and new text glow size option has been added.

http://www.mediafire.com/download/e11zpdf8qd2dqj6/Aero_Glass_Configurator_v3.0.exe


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


Aero Glass Configurator HTA script


<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 = dwValueElseIf	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='http://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='http://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"/>



Stop DWM vbs


If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  objShell.ShellExecute "wscript.exe", Chr(34) & _  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1ElseSet WshShell = CreateObject("WScript.Shell")Set oExec=WshShell.Exec("taskkill /F /IM dwm.exe")Set oExec= NothingEnd If



Enable Aero Glass vbs script


If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1Else		const HKEY_LOCAL_MACHINE = &H80000002		strComputer = "."		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")		strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"		oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath		strValueName = "LoadAppInit_DLLs"		dwValue = 1		oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValueEnd If



Disable Aero Glass vbs script


If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1Else		const HKEY_LOCAL_MACHINE = &H80000002		strComputer = "."		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")		strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"		oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath		strValueName = "LoadAppInit_DLLs"		dwValue = 0		oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValueEnd If



Enable Bypass Theme Signature vbs script


If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1Else		const HKEY_LOCAL_MACHINE = &H80000002		strComputer = "."		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"		oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath		strValueName = "BypassThemeSignature"		dwValue = 1		oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValueEnd If



Disable Bypass Theme Signature vbs script


If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1Else		const HKEY_LOCAL_MACHINE = &H80000002		strComputer = "."		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")		strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"		oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath		strValueName = "BypassThemeSignature"		dwValue = 0		oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValueEnd If

Edited by MrGRiM
Link to comment
Share on other sites


Yes please stop because you will just annoy the developer and give him more problem to deal.

Stop being so childish, how old are you 12?

please don't always create tools to tweak Aero, they cause more issues than they solve. Let BM implement it, he knows which settings the DLL uses or not.

Please give an example of my tool causing anyone a problem, this is just a simple UI to set registry settings, all the values also have a clear button to remove any of the added values, it's the safest option I have seen anywhere and the easiest to use.

Link to comment
Share on other sites

I think what Andre means is that while Aero is still in development that it might actually be better to have to be a knowledgeable user in order to play with it. Tweaking tools might make it appear easy enough to use that some users will play with it that aren't really ready to do so, or they'll use a version of the tool that doesn't match the version of Aero that they're trying to adjust. They'll get themselves into trouble and then clog up the board with questions and complaints that so-and-so doesn't work right, when it was really their own fault. I'm sure that once Aero is finalized that all users will greatly appreciate your tweaking tool, and perhaps you and BM can jointly release it, ensuring that only documented and approved settings are adjusted, maybe even only over a set range to keep new users from "hurting" themselves. :) At least that's my two cents.

Cheers and Regards

Edited by bphlpt
Link to comment
Share on other sites

It would be nice if this application had a preview window showing what all these values actually do to the Aero Glass effect.

Another suggestion: some of the values (especially those ranging from 0 to 255) could use a slider for easier adjustment.

Link to comment
Share on other sites

It would be nice if this application had a preview window showing what all these values actually do to the Aero Glass effect.

Another suggestion: some of the values (especially those ranging from 0 to 255) could use a slider for easier adjustment.

If you want to know what the settings do then have a look at the official guide where I got all the registry settings from http://glass8.berlios.de/guide.html

As for having a slider, I have specified the values range and the recommended values, as far as I know HTA scripts don't support having a slider, I am not sure on that though, this was the first time I have ever made one, I just Googled everything I was trying to do, it was all just trial and error to get it where it is, it's totally Open Source though so if you want to alter it and maybe enhance it then be my guest, I mainly just made this tool for myself and thought others may find it handy.

Link to comment
Share on other sites

Would be more useful if you include which version of Aero Glass for Windows 8.1 this configurator works best on and which version is currently installed on the user's system (and maybe display a warning or disable the whole thing if the configurator is outdated), so that if BM were to decide to change some key name people would be less likely to run into problems.

Link to comment
Share on other sites

Would be more useful if you include which version of Aero Glass for Windows 8.1 this configurator works best on and which version is currently installed on the user's system (and maybe display a warning or disable the whole thing if the configurator is outdated), so that if BM were to decide to change some key name people would be less likely to run into problems.

It is compatible with Windows 8.1 only as was stated in the thread title, it has been updated for the current BETA 4 version but will also work on all older builds, the only difference is the registry settings for the theme atlas as that setting wasn't needed on previous builds, also the reflection registry settings were not needed either as the reflection image was integrated with the DWMGlass.dll

If future changes are made to Aero Glass that will mean changes to registry values then I will then release an updated version of the configurator and specify what version it works best on.

There is nothing complicated about this configurator, so please don't overcomplicate things, I am not a programer and this tool is nothing more then a simple script, as I have already mentioned, this was the first time I have even made a HTA script, I used Google to teach me how, if you want to make your own version then feel free.

Main HTA scrip below

<head><META HTTP-EQUIV="MSThemeCompatible" CONTENT="Yes"><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.jpg") repeat-x scroll 0 0 #000000;        margin-top: 1px;`        margin-left: 20px;        margin-right: 20px;        margin-bottom: 5px;		Vertical-Align:Top;		line-height: 14px;	}	a:link .button, a:visited .button{color: #ff0000;}	.button{		font-family: Arial;		font-size: 14px;		font-weight:bold;        margin-top: 3px;`        margin-left: 0px;        margin-right: 0px;        margin-bottom: 3px;		background: url("button.png") repeat-x scroll 0 0 #000000;		border: 0px;		line-height: 18px;		padding: 1px 5px;	}	a:hover *.button {background-color: #880000; color: #fff;}	a:link .applybutton, a:visited .applybutton {color: #ffffff;}	.applybutton{		font-family: Arial;		font-size: 14px;		font-weight:bold;		margin: 4px 3px;		background: url("button.png") repeat-x scroll 0 0 #880000;		border: 0px;		line-height: 18px;		padding: 1px 2px;	}	a:hover *.applybutton {background-color: #000000; color: #ff0000;}	.Inputs, .ImputsHover{		font-family: Arial;		font-size: 12px;		margin: 4px 1px;		border: 0px;		line-height: 16px;		padding: 3px 2px;	}	.Inputs{color: #ff0000; background: url("button.png") repeat-x scroll 0 0 #000000;}	.ImputsHover{color: #ffffff; background: url("button.png") repeat-x scroll 0 0 #880000;}</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("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 = dwValueElseIf	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 	'-----------------------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 width=100% border=0 onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()">	<table width=100% border=0 cellspacing=0 cellpadding=0>		<tr>			<td align="right"><a href="#"><input type="button" value="X" onClick="closeHTA" class="button" /></a></td>		</tr>	</table>	</br>	<table  width=100% border=0 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='#ff0000' 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='#ff0000' 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='#ff0000' 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='#ff0000' 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='#ff0000' 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='#ff0000' face='Arial' ><span id = "DataArea6"></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='#ff0000' 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='#ff0000' 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='#ff0000' face='Arial'><span id = "DataArea9"></span></font></br></b>			</td>		</tr> 	</table>	<table width=100% border=0 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% border=0 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% border=0 cellspacing=7 cellpadding=0 onmousemove="VBScript:Call stopMoving()">		<tr>			<td width=100% align=bottom>				<center>				<a href="javascript: void(0)" ><input type="button" value="Donate" onClick="self.location='http://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='http://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"/>
Link to comment
Share on other sites

  • 2 weeks later...

Seems to work well. The UI is pretty gross though, and also looks like it was make for Windows 95. Additionally, the cheesy startup sound should be removed and never heard again, ever.

I noticed that if you have a value set already and click on "set" to open up the popup window to enter the value, but then click "cancel" it does not actually cancel, but instead erases the value that was already set and replaces it with a value of zero.

For example, if it said I had the Active Color Balance set to "22" and then click on the "set" button, and then click on the "cancel" button on the popup window, it will now show that the Active Color Balance is set to "0", not "22".

Edited by m4570d0n
Link to comment
Share on other sites

Seems to work well. The UI is pretty gross though, and also looks like it was make for Windows 95. Additionally, the cheesy startup sound should be removed and never heard again, ever.

I noticed that if you have a value set already and click on "set" to open up the popup window to enter the value, but then click "cancel" it does not actually cancel, but instead erases the value that was already set and replaces it with a value of zero.

For example, if it said I had the Active Color Balance set to "22" and then click on the "set" button, and then click on the "cancel" button on the popup window, it will now show that the Active Color Balance is set to "0", not "22".

2 New styles added and sound removed.

As for the cancel button, well tbh I could not figure out how to change it from putting a value of -2147483647 I have no idea where this value comes from but that's what it does, the only way round that I could find was to have a fall back value so if nothing was entered or if you hit cancel it reverted to a default value.

Edited by MrGRiM
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...