MrGRiM Posted November 23, 2013 Posted November 23, 2013 (edited) Aero Glass Configurator 3.02 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.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.exeBelow 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 vbsIf 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 IfEnable Aero Glass vbs scriptIf 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 IfDisable Aero Glass vbs scriptIf 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 IfEnable Bypass Theme Signature vbs scriptIf 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 IfDisable Bypass Theme Signature vbs scriptIf 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 January 22, 2014 by MrGRiM
Aloha Posted November 23, 2013 Posted November 23, 2013 Looks nice. I'll get it in case I'll change my mind and use Aero glass some day.
MagicAndre1981 Posted November 23, 2013 Posted November 23, 2013 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.
ace2 Posted November 23, 2013 Posted November 23, 2013 (edited) Yes please stop because you will just annoy the developer and give him more problems to deal with. Edited November 23, 2013 by ace2
MrGRiM Posted November 23, 2013 Author Posted November 23, 2013 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.
MagicAndre1981 Posted November 23, 2013 Posted November 23, 2013 we had this in the past (http://www.msfn.org/board/topic/162036-aero-glass-tweaker-gui-for-win8-v132/) and this tool only caused issues.
bphlpt Posted November 23, 2013 Posted November 23, 2013 (edited) 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 November 23, 2013 by bphlpt
SanicHegehog Posted November 24, 2013 Posted November 24, 2013 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.
MrGRiM Posted November 24, 2013 Author Posted November 24, 2013 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.htmlAs 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.
quanzi1507 Posted November 25, 2013 Posted November 25, 2013 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.
MrGRiM Posted November 25, 2013 Author Posted November 25, 2013 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.dllIf 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"/>
MrGRiM Posted December 5, 2013 Author Posted December 5, 2013 Updated to version 2.0 for Aero Glass RC1 with Text Glow Mode
m4570d0n Posted December 6, 2013 Posted December 6, 2013 (edited) 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 December 6, 2013 by m4570d0n
MrGRiM Posted December 6, 2013 Author Posted December 6, 2013 (edited) 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 December 6, 2013 by MrGRiM
MrGRiM Posted December 6, 2013 Author Posted December 6, 2013 Updated again with 2 new styles added and start sound removed.
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now