Mr GRiM
November 23rd, 2013, 01:00 AM
Aero Glass Configurator 2.0
65519
2 New Styles Windowed and Light
6554665547
This tool is for Big Muscle's Aero Glass for Win8.1 and will let you configure nearly all of the settings for Aero Glass with ease.
Updated version for Aero Glass RC1, now includes the Text Glow mode and cleaned up the script a little bit.
Below are all the scripts used to make this tool, feel free to reuse or modify the code to your liking.
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 = dwValue
ElseIf dwValue = "" then dwValue = "30"
End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearBlurDeviation
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "BlurDeviation"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'---------------------------------Round Rect Radius----------------------------
sub getRoundRectRadius
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "RoundRectRadius"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea2.InnerHTML = dwValue
End Sub
Sub SetRoundRectRadius
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "RoundRectRadius"
dwValue = InputBox("Radius of rounded windows corners, Win8 = 0, Win7 = 12", "Radius of rounded windows corners", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearRoundRectRadius
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "RoundRectRadius"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'----------------------------Colorization Color Balance-----------------------
sub getColorizationColorBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationColorBalance"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea3.InnerHTML = dwValue
End Sub
Sub SetColorizationColorBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationColorBalance"
dwValue = InputBox("Active Color intensity (0-100%)", "Color intensity", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationColorBalance
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationColorBalance"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Color Balance Inactive----------------------
sub getColorizationColorBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationColorBalanceInactive"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea4.InnerHTML = dwValue
End Sub
Sub SetColorizationColorBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationColorBalanceInactive"
dwValue = InputBox("Inactive Color intensity (0-100%)", "Color intensity", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationColorBalanceInactive
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationColorBalanceInactive"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'----------------------------Colorization Blur Balance-----------------------
sub getColorizationBlurBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationBlurBalance"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea5.InnerHTML = dwValue
End Sub
Sub SetColorizationBlurBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationBlurBalance"
dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Active Blur Balance", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationBlurBalance
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationBlurBalance"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Blur Balance Inactive----------------------
sub getColorizationBlurBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationBlurBalanceInactive"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea6.InnerHTML = dwValue
End Sub
Sub SetColorizationBlurBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationBlurBalanceInactive"
dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Inactive Blur Balance", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationBlurBalanceInactive
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationBlurBalanceInactive"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'--------------------------------------Text Glow Mode--------------------------------
sub getTextGlowMode
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "TextGlowMode"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea15.InnerHTML = dwValue
End Sub
Sub SetTextGlowMode
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "TextGlowMode"
dwValue = InputBox("Text Glow Mode (0=No glow effect, 1=Glow effect loaded from atlas, 2=Glow effect loaded from atlas and theme opacity is respected, 3=Composited glow effect using your theme settings)", "Text Glow Mode", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearTextGlowMode
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "TextGlowMode"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Glass Reflection Intensity----------------------
sub getColorizationGlassReflectionIntensity
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationGlassReflectionIntensity"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea7.InnerHTML = dwValue
End Sub
Sub SetColorizationGlassReflectionIntensity
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationGlassReflectionIntensity"
dwValue = InputBox("Glass Reflection, Win8 = 0, Win7 = 50, (0-100%)", "Glass Reflection", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationGlassReflectionIntensity
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationGlassReflectionIntensity"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'------------------------------Custom Theme Reflection-------------------------
sub getCustomThemeReflection
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "CustomThemeReflection"
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
DataArea8.InnerHTML = strValue
End Sub
Sub SetCustomThemeReflection
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "CustomThemeReflection"
strValue = fileloader.value
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End Sub
Sub ClearCustomThemeReflection
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strStringValueName = "CustomThemeReflection"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
End Sub
'------------------------------Custom Custom Theme Atlas-------------------------
sub getCustomThemeAtlas
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "CustomThemeAtlas"
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
DataArea9.InnerHTML = strValue
End Sub
Sub SetCustomThemeAtlas
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "CustomThemeAtlas"
strValue = fileloader2.value
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End Sub
Sub ClearCustomThemeAtlas
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strStringValueName = "CustomThemeAtlas"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
End Sub
'--------------------------------Disable Glass On Battery-----------------------
sub getDisableGlassOnBattery
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "DisableGlassOnBattery"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea10.InnerHTML = "Disabled On Battery"
ElseIf dwValue = "0" then
DataArea10.InnerHTML = "Enabled On Battery"
CheckBox1.Checked = True
Else DataArea10.InnerHTML = "Enabled On Battery Not Configured"
End If
End Sub
Sub SetDisableGlassOnBattery
If CheckBox1.Checked Then
EnableGlassOnBattery
Else
DisableGlassOnBattery
End If
End Sub
'---------------------------------Enable Aero Glass--------------------------
Sub GetEnableAeroGlass
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"
strValueName = "LoadAppInit_DLLs"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea11.InnerHTML = "Aero Glass Enabled"
CheckBox2.Checked = True
Else DataArea11.InnerHTML = "Aero Glass Disabled"
End If
End Sub
Sub SetEnableAeroGlass
If CheckBox2.Checked Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableAeroGlass.vbs")
Else
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableAeroGlass.vbs")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\ThemeManager"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "DllName"
strValue = "%SystemRoot%\resources\Themes\Aero\Aero.msstyles"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End If
End Sub
'--------------------------------Enable Logging-----------------------
sub GetEnableLogging
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "EnableLogging"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea12.InnerHTML = "Logging Enabled"
CheckBox3.Checked = True
ElseIf dwValue = "0" then
DataArea12.InnerHTML = "Logging Disabled"
Else DataArea12.InnerHTML = "Logging Not Configured"
End If
End Sub
Sub SetEnableLogging
If CheckBox3.Checked Then
EnableLogging
Else
DisableLogging
End If
End Sub
'---------------------------------Bypass Theme Signature--------------------------
Sub GetBypassThemeSignature
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "BypassThemeSignature"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea13.InnerHTML = "Bypass Theme Signature Enabled"
CheckBox4.Checked = True
ElseIf dwValue = "0" then
DataArea13.InnerHTML = "Bypass Theme Signature Disabled"
Else DataArea13.InnerHTML = "Bypass Theme Signature Not Configured"
End If
End Sub
Sub SetBypassThemeSignature
If CheckBox4.Checked Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableBypassThemeSignature.vbs")
Else
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableBypassThemeSignature.vbs")
End If
End Sub
'----------------------------------Browse File Reflection---------------------------------
Sub BrowseFile
innerHTML = fileloader.value
End Sub
'----------------------------------Browse File Theme Atlas---------------------------------
Sub BrowseFile2
innerHTML = fileloader2.value
End Sub
'--------------------------------------Apply Blur---------------------------------
Dim dtmStartTime
Sub ApplyBlur
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
dtmStartTime = Now
idTimer = window.setTimeout("RestartExplorer", 200, "VBScript")
End Sub
Sub RestartExplorer
window.clearTimeout(idTimer)
' Kill Explorer.exe
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Sub
'-----------------------------------Apply Blur Exit----------------------------
Sub ApplyBlurExit
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
dtmStartTime = Now
idTimer = window.setTimeout("RestartExplorerExit", 200, "VBScript")
End Sub
Sub RestartExplorerExit
window.clearTimeout(idTimer)
' Kill Explorer.exe
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
self.close
End Sub
'-------------------------------------------------------------------------------
Sub OnMouseOver
Set objItem = window.event.srcElement
objItem.className="ImputsHover"
End Sub
Sub OnMouseOut
Set objItem = window.event.srcElement
objItem.className="Inputs"
End Sub
</script>
<script language="JavaScript">
function writeInRegistry1(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function DisableGlassOnBattery()
{
writeInRegistry1("DisableGlassOnBattery", "1");
}
function EnableGlassOnBattery()
{
writeInRegistry1("DisableGlassOnBattery", "0");
}
function writeInRegistry2(sRegEntry, sRegValue)
{
var regpath = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableGlass()
{
writeInRegistry2("LoadAppInit_DLLs", "1");
}
function DisableGlass()
{
writeInRegistry2("LoadAppInit_DLLs", "0");
}
function writeInRegistry3(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableLogging()
{
writeInRegistry3("EnableLogging", "1");
}
function DisableLogging()
{
writeInRegistry3("EnableLogging", "0");
}
function writeInRegistry4(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableBypassThemeSignature()
{
writeInRegistry4("BypassThemeSignature", "1");
}
function DisableBypassThemeSignature()
{
writeInRegistry4("BypassThemeSignature", "0");
}
</script>
</head>
<body onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()">
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td class="close-padding" align="right"><a href="#"><input type="button" value="X" onClick="closeHTA" class="closebutton" /></a></td>
</tr>
</table>
</br>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td><b>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearBlurDeviation"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetBlurDeviation"/></a>
<font size=2 color='#ffffff' face='Arial'>Blur Deviation Amount: </font><font size=2 color='#cc0000' face='Arial'><span id = "DataArea1"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearRoundRectRadius"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetRoundRectRadius"/></a>
<font size=2 color='#ffffff' face='Arial'>Radius of Windows Corners: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea2"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalance"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalance"/></a>
<font size=2 color='#ffffff' face='Arial'>Active Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea3"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalanceInactive"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalanceInactive"/></a>
<font size=2 color='#ffffff' face='Arial'>Inactive Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea4"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalance"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalance"/></a>
<font size=2 color='#ffffff' face='Arial'>Active Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea5"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalanceInactive"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalanceInactive"/></a>
<font size=2 color='#ffffff' face='Arial'>Inactive Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea6"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearTextGlowMode"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetTextGlowMode"/></a>
<font size=2 color='#ffffff' face='Arial'>Text Glow Mode: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea15"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationGlassReflectionIntensity"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationGlassReflectionIntensity"/></a>
<font size=2 color='#ffffff' face='Arial'>Glass Reflection Intensity: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea7"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeReflection"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeReflection"/></a>
<font size=2 color='#ffffff' face='Arial'>Custom Theme Reflection: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea8"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeAtlas"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeAtlas"/></a>
<font size=2 color='#ffffff' face='Arial'>Custom Theme Atlas: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea9"></span></font></br></b>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td>
<font size='1' color='#ffffff' face='Arial'><b>Glass Reflection </b></font>
<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader" onchange="BrowseFile" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
</td>
</tr>
<tr>
<td>
<font size='1' color='#ffffff' face='Arial'><b>Custom Theme Atlas </b></font>
<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader2" onchange="BrowseFile2" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td width=50%>
<input type="checkbox" name="CheckBox1" value="Checkbox1" title="Disable Glass On Battery" onclick="SetDisableGlassOnBattery"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea10"></span></font>
</br>
<input type="checkbox" name="CheckBox2" value="Checkbox2" title="Enable Aero Glass" onclick="SetEnableAeroGlass"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea11"></span></font>
</td>
<td width=50%>
<input type="checkbox" name="CheckBox3" value="Checkbox3" title="Enable Logging" onclick="SetEnableLogging"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea12"></span></font>
</br>
<input type="checkbox" name="CheckBox4" value="Checkbox4" title="Bypass Theme Signature" onclick="SetBypassThemeSignature"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea13"></span></font>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td>
<center>
<a href="javascript: void(0)" ><input type="button" value="Donate" onClick="self.location='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", 1
Else
Set WshShell = CreateObject("WScript.Shell")
Set oExec=WshShell.Exec("taskkill /F /IM dwm.exe")
Set oExec= Nothing
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End If
65519
2 New Styles Windowed and Light
6554665547
This tool is for Big Muscle's Aero Glass for Win8.1 and will let you configure nearly all of the settings for Aero Glass with ease.
Updated version for Aero Glass RC1, now includes the Text Glow mode and cleaned up the script a little bit.
Below are all the scripts used to make this tool, feel free to reuse or modify the code to your liking.
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 = dwValue
ElseIf dwValue = "" then dwValue = "30"
End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearBlurDeviation
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "BlurDeviation"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'---------------------------------Round Rect Radius----------------------------
sub getRoundRectRadius
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "RoundRectRadius"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea2.InnerHTML = dwValue
End Sub
Sub SetRoundRectRadius
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "RoundRectRadius"
dwValue = InputBox("Radius of rounded windows corners, Win8 = 0, Win7 = 12", "Radius of rounded windows corners", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearRoundRectRadius
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "RoundRectRadius"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'----------------------------Colorization Color Balance-----------------------
sub getColorizationColorBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationColorBalance"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea3.InnerHTML = dwValue
End Sub
Sub SetColorizationColorBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationColorBalance"
dwValue = InputBox("Active Color intensity (0-100%)", "Color intensity", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationColorBalance
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationColorBalance"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Color Balance Inactive----------------------
sub getColorizationColorBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationColorBalanceInactive"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea4.InnerHTML = dwValue
End Sub
Sub SetColorizationColorBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationColorBalanceInactive"
dwValue = InputBox("Inactive Color intensity (0-100%)", "Color intensity", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationColorBalanceInactive
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationColorBalanceInactive"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'----------------------------Colorization Blur Balance-----------------------
sub getColorizationBlurBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationBlurBalance"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea5.InnerHTML = dwValue
End Sub
Sub SetColorizationBlurBalance
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationBlurBalance"
dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Active Blur Balance", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationBlurBalance
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationBlurBalance"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Blur Balance Inactive----------------------
sub getColorizationBlurBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationBlurBalanceInactive"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea6.InnerHTML = dwValue
End Sub
Sub SetColorizationBlurBalanceInactive
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationBlurBalanceInactive"
dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Inactive Blur Balance", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationBlurBalanceInactive
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationBlurBalanceInactive"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'--------------------------------------Text Glow Mode--------------------------------
sub getTextGlowMode
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "TextGlowMode"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea15.InnerHTML = dwValue
End Sub
Sub SetTextGlowMode
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "TextGlowMode"
dwValue = InputBox("Text Glow Mode (0=No glow effect, 1=Glow effect loaded from atlas, 2=Glow effect loaded from atlas and theme opacity is respected, 3=Composited glow effect using your theme settings)", "Text Glow Mode", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearTextGlowMode
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "TextGlowMode"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'-----------------------Colorization Glass Reflection Intensity----------------------
sub getColorizationGlassReflectionIntensity
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "ColorizationGlassReflectionIntensity"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
DataArea7.InnerHTML = dwValue
End Sub
Sub SetColorizationGlassReflectionIntensity
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "ColorizationGlassReflectionIntensity"
dwValue = InputBox("Glass Reflection, Win8 = 0, Win7 = 50, (0-100%)", "Glass Reflection", "")
If dwValue = "" then dwValue = "" End If
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
End Sub
Sub ClearColorizationGlassReflectionIntensity
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strDWORDValueName = "ColorizationGlassReflectionIntensity"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName
End Sub
'------------------------------Custom Theme Reflection-------------------------
sub getCustomThemeReflection
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "CustomThemeReflection"
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
DataArea8.InnerHTML = strValue
End Sub
Sub SetCustomThemeReflection
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "CustomThemeReflection"
strValue = fileloader.value
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End Sub
Sub ClearCustomThemeReflection
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strStringValueName = "CustomThemeReflection"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
End Sub
'------------------------------Custom Custom Theme Atlas-------------------------
sub getCustomThemeAtlas
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "CustomThemeAtlas"
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
DataArea9.InnerHTML = strValue
End Sub
Sub SetCustomThemeAtlas
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "CustomThemeAtlas"
strValue = fileloader2.value
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End Sub
Sub ClearCustomThemeAtlas
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strStringValueName = "CustomThemeAtlas"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName
End Sub
'--------------------------------Disable Glass On Battery-----------------------
sub getDisableGlassOnBattery
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "DisableGlassOnBattery"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea10.InnerHTML = "Disabled On Battery"
ElseIf dwValue = "0" then
DataArea10.InnerHTML = "Enabled On Battery"
CheckBox1.Checked = True
Else DataArea10.InnerHTML = "Enabled On Battery Not Configured"
End If
End Sub
Sub SetDisableGlassOnBattery
If CheckBox1.Checked Then
EnableGlassOnBattery
Else
DisableGlassOnBattery
End If
End Sub
'---------------------------------Enable Aero Glass--------------------------
Sub GetEnableAeroGlass
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"
strValueName = "LoadAppInit_DLLs"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea11.InnerHTML = "Aero Glass Enabled"
CheckBox2.Checked = True
Else DataArea11.InnerHTML = "Aero Glass Disabled"
End If
End Sub
Sub SetEnableAeroGlass
If CheckBox2.Checked Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableAeroGlass.vbs")
Else
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableAeroGlass.vbs")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\ThemeManager"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "DllName"
strValue = "%SystemRoot%\resources\Themes\Aero\Aero.msstyles"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
End If
End Sub
'--------------------------------Enable Logging-----------------------
sub GetEnableLogging
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "EnableLogging"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea12.InnerHTML = "Logging Enabled"
CheckBox3.Checked = True
ElseIf dwValue = "0" then
DataArea12.InnerHTML = "Logging Disabled"
Else DataArea12.InnerHTML = "Logging Not Configured"
End If
End Sub
Sub SetEnableLogging
If CheckBox3.Checked Then
EnableLogging
Else
DisableLogging
End If
End Sub
'---------------------------------Bypass Theme Signature--------------------------
Sub GetBypassThemeSignature
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\DWM"
strValueName = "BypassThemeSignature"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
If dwValue = "1" then
DataArea13.InnerHTML = "Bypass Theme Signature Enabled"
CheckBox4.Checked = True
ElseIf dwValue = "0" then
DataArea13.InnerHTML = "Bypass Theme Signature Disabled"
Else DataArea13.InnerHTML = "Bypass Theme Signature Not Configured"
End If
End Sub
Sub SetBypassThemeSignature
If CheckBox4.Checked Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableBypassThemeSignature.vbs")
Else
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableBypassThemeSignature.vbs")
End If
End Sub
'----------------------------------Browse File Reflection---------------------------------
Sub BrowseFile
innerHTML = fileloader.value
End Sub
'----------------------------------Browse File Theme Atlas---------------------------------
Sub BrowseFile2
innerHTML = fileloader2.value
End Sub
'--------------------------------------Apply Blur---------------------------------
Dim dtmStartTime
Sub ApplyBlur
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
dtmStartTime = Now
idTimer = window.setTimeout("RestartExplorer", 200, "VBScript")
End Sub
Sub RestartExplorer
window.clearTimeout(idTimer)
' Kill Explorer.exe
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Sub
'-----------------------------------Apply Blur Exit----------------------------
Sub ApplyBlurExit
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs")
dtmStartTime = Now
idTimer = window.setTimeout("RestartExplorerExit", 200, "VBScript")
End Sub
Sub RestartExplorerExit
window.clearTimeout(idTimer)
' Kill Explorer.exe
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
self.close
End Sub
'-------------------------------------------------------------------------------
Sub OnMouseOver
Set objItem = window.event.srcElement
objItem.className="ImputsHover"
End Sub
Sub OnMouseOut
Set objItem = window.event.srcElement
objItem.className="Inputs"
End Sub
</script>
<script language="JavaScript">
function writeInRegistry1(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function DisableGlassOnBattery()
{
writeInRegistry1("DisableGlassOnBattery", "1");
}
function EnableGlassOnBattery()
{
writeInRegistry1("DisableGlassOnBattery", "0");
}
function writeInRegistry2(sRegEntry, sRegValue)
{
var regpath = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableGlass()
{
writeInRegistry2("LoadAppInit_DLLs", "1");
}
function DisableGlass()
{
writeInRegistry2("LoadAppInit_DLLs", "0");
}
function writeInRegistry3(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableLogging()
{
writeInRegistry3("EnableLogging", "1");
}
function DisableLogging()
{
writeInRegistry3("EnableLogging", "0");
}
function writeInRegistry4(sRegEntry, sRegValue)
{
var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry;
var oWSS = new ActiveXObject("WScript.Shell");
oWSS.RegWrite(regpath, sRegValue, "REG_DWORD");
}
function EnableBypassThemeSignature()
{
writeInRegistry4("BypassThemeSignature", "1");
}
function DisableBypassThemeSignature()
{
writeInRegistry4("BypassThemeSignature", "0");
}
</script>
</head>
<body onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()">
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td class="close-padding" align="right"><a href="#"><input type="button" value="X" onClick="closeHTA" class="closebutton" /></a></td>
</tr>
</table>
</br>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td><b>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearBlurDeviation"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetBlurDeviation"/></a>
<font size=2 color='#ffffff' face='Arial'>Blur Deviation Amount: </font><font size=2 color='#cc0000' face='Arial'><span id = "DataArea1"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearRoundRectRadius"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetRoundRectRadius"/></a>
<font size=2 color='#ffffff' face='Arial'>Radius of Windows Corners: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea2"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalance"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalance"/></a>
<font size=2 color='#ffffff' face='Arial'>Active Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea3"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalanceInactive"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalanceInactive"/></a>
<font size=2 color='#ffffff' face='Arial'>Inactive Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea4"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalance"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalance"/></a>
<font size=2 color='#ffffff' face='Arial'>Active Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea5"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalanceInactive"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalanceInactive"/></a>
<font size=2 color='#ffffff' face='Arial'>Inactive Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea6"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearTextGlowMode"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetTextGlowMode"/></a>
<font size=2 color='#ffffff' face='Arial'>Text Glow Mode: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea15"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationGlassReflectionIntensity"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationGlassReflectionIntensity"/></a>
<font size=2 color='#ffffff' face='Arial'>Glass Reflection Intensity: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea7"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeReflection"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeReflection"/></a>
<font size=2 color='#ffffff' face='Arial'>Custom Theme Reflection: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea8"></span></font></br>
<a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeAtlas"/></a>
<a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeAtlas"/></a>
<font size=2 color='#ffffff' face='Arial'>Custom Theme Atlas: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea9"></span></font></br></b>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td>
<font size='1' color='#ffffff' face='Arial'><b>Glass Reflection </b></font>
<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader" onchange="BrowseFile" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
</td>
</tr>
<tr>
<td>
<font size='1' color='#ffffff' face='Arial'><b>Custom Theme Atlas </b></font>
<a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader2" onchange="BrowseFile2" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td width=50%>
<input type="checkbox" name="CheckBox1" value="Checkbox1" title="Disable Glass On Battery" onclick="SetDisableGlassOnBattery"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea10"></span></font>
</br>
<input type="checkbox" name="CheckBox2" value="Checkbox2" title="Enable Aero Glass" onclick="SetEnableAeroGlass"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea11"></span></font>
</td>
<td width=50%>
<input type="checkbox" name="CheckBox3" value="Checkbox3" title="Enable Logging" onclick="SetEnableLogging"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea12"></span></font>
</br>
<input type="checkbox" name="CheckBox4" value="Checkbox4" title="Bypass Theme Signature" onclick="SetBypassThemeSignature"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea13"></span></font>
</td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()">
<tr>
<td>
<center>
<a href="javascript: void(0)" ><input type="button" value="Donate" onClick="self.location='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", 1
Else
Set WshShell = CreateObject("WScript.Shell")
Set oExec=WshShell.Exec("taskkill /F /IM dwm.exe")
Set oExec= Nothing
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End 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", 1
Else
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,dwValue
End If