Results 1 to 2 of 2
Threaded View
-
November 23rd, 2013 01:00 AM #1Administrator
- Join Date
- Aug 2009
- Location
- Sunshine Coast, Qeensland, Australia
- Posts
- 5,328
- Mentioned
- 6 Post(s)
- Tagged
- 837 Thread(s)
- Sex:
Aero Glass Cofigurator 2.0 For Windows 8.1
This tool is for Big Muscle's Aero Glass for Win8.1 and will let you configure nearly all of the settings for Aero Glass with ease.
Updated version for Aero Glass RC1, now includes the Text Glow mode and cleaned up the script a little bit.
Below are all the scripts used to make this tool, feel free to reuse or modify the code to your liking.
Spoiler!
Aero Glass Configurator HTA script
Spoiler!
Code:<head> <title>Aero Glass Blur Deviation</title> <HTA:APPLICATION APPLICATIONNAME="Aero Glass Blur" BORDER="none" INNERBORDER="no" CONTEXTMENU="no" ICON="icon.ico" SCROLL="no"/> <style type="text/css"> BODY{ background: url("background.png") repeat-x #000000; margin: 0; line-height: 13px; } td { padding: 0 18px; } .close-padding { padding: 0 7px; } .button{ background: url("button.png") repeat-x #000000; vertical-align: middle; font-family: Arial; font-size: 14px; font-weight:bold; margin: 2px 2px 3px; border: none; padding: 1px 3px; } a:link .button, a:visited .button{color: #cc0000;} a:hover .button {background-color: #880000; color: #fff;} .applybutton{ background: url("button.png") repeat-x #880000; font-family: Arial; font-size: 14px; font-weight:bold; margin: 14px 3px 0; border: none; line-height: 18px; padding: 1px 2px 0; } a:link .applybutton, a:visited .applybutton {color: #ffffff;} a:hover .applybutton {background-color: #000000; color: #cc0000;} .closebutton{ background: url("button.png") repeat-x #000000; font-family: Arial; font-size: 14px; font-weight:bold; margin: 3px 2px 0 0; border: none; padding: 0 5px 0 4px; } a:link .closebutton, a:visited .closebutton {color: #cc0000;} a:hover .closebutton {background-color: #880000; color: #ffffff;} .Inputs, .ImputsHover{ font-family: Arial; font-size: 12px; margin: 6px 2px; border: none; padding: 3px 2px; } .Inputs{color: #ffffff; background: url("button.png") repeat-x #000000;} .ImputsHover{color: #ffffff; background: url("button.png") repeat-x #111111;} </style> <script language="vbscript"> winWidth=600 winHeight=500 window.resizeto winWidth,winHeight centerX=(screen.width-winWidth)/2 centerY=(screen.height-winHeight)/2 window.moveto centerX,centerY posX=0 posY=0 move=0 Function closeHTA() self.close End Function Function setPos() posX=window.event.screenX posY=window.event.ScreenY move=1 End Function Function moving() If move=1 Then moveX=0 moveY=0 moveX=window.event.screenX-posX moveY=window.event.screenY-posY window.moveto(window.screenLeft+moveX),(window.screenTop+moveY) setPos() End if End Function Function stopMoving() move=0 End Function '-----------------------------Window onLoad---------------------------------- Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set wshell = CreateObject("WScript.Shell") sysdrive = wshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") sFolder = Wshell.CurrentDirectory Sub Window_onLoad iTimerID = window.setInterval("getBlurDeviation", 300) iTimerID = window.setInterval("getRoundRectRadius", 300) iTimerID = window.setInterval("getCustomThemeAtlas", 300) iTimerID = window.setInterval("getCustomThemeReflection", 300) iTimerID = window.setInterval("getColorizationColorBalance", 300) iTimerID = window.setInterval("getColorizationColorBalanceInactive", 300) iTimerID = window.setInterval("getColorizationBlurBalance", 300) iTimerID = window.setInterval("getColorizationBlurBalanceInactive", 300) iTimerID = window.setInterval("getTextGlowMode", 300) iTimerID = window.setInterval("getColorizationGlassReflectionIntensity", 300) iTimerID = window.setInterval("getDisableGlassOnBattery", 300) iTimerID = window.setInterval("GetEnableAeroGlass", 300) iTimerID = window.setInterval("GetEnableLogging", 300) iTimerID = window.setInterval("GetBypassThemeSignature", 300) End Sub '---------------------------------Blur Deviation----------------------------- sub getBlurDeviation Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "BlurDeviation" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea1.InnerHTML = dwValue End Sub Sub SetBlurDeviation Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "BlurDeviation" dwValue = InputBox("Set Blur amount 10-40 Set 0 to Disable Blur", "Set Blur Amount", "") If dwValue = "0-40" then dwValue = dwValue ElseIf dwValue = "" then dwValue = "30" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearBlurDeviation strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "BlurDeviation" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '---------------------------------Round Rect Radius---------------------------- sub getRoundRectRadius Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "RoundRectRadius" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea2.InnerHTML = dwValue End Sub Sub SetRoundRectRadius Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "RoundRectRadius" dwValue = InputBox("Radius of rounded windows corners, Win8 = 0, Win7 = 12", "Radius of rounded windows corners", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearRoundRectRadius strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "RoundRectRadius" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '----------------------------Colorization Color Balance----------------------- sub getColorizationColorBalance Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "ColorizationColorBalance" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea3.InnerHTML = dwValue End Sub Sub SetColorizationColorBalance Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "ColorizationColorBalance" dwValue = InputBox("Active Color intensity (0-100%)", "Color intensity", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearColorizationColorBalance strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "ColorizationColorBalance" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '-----------------------Colorization Color Balance Inactive---------------------- sub getColorizationColorBalanceInactive Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "ColorizationColorBalanceInactive" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea4.InnerHTML = dwValue End Sub Sub SetColorizationColorBalanceInactive Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "ColorizationColorBalanceInactive" dwValue = InputBox("Inactive Color intensity (0-100%)", "Color intensity", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearColorizationColorBalanceInactive strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "ColorizationColorBalanceInactive" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '----------------------------Colorization Blur Balance----------------------- sub getColorizationBlurBalance Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "ColorizationBlurBalance" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea5.InnerHTML = dwValue End Sub Sub SetColorizationBlurBalance Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "ColorizationBlurBalance" dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Active Blur Balance", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearColorizationBlurBalance strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "ColorizationBlurBalance" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '-----------------------Colorization Blur Balance Inactive---------------------- sub getColorizationBlurBalanceInactive Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "ColorizationBlurBalanceInactive" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea6.InnerHTML = dwValue End Sub Sub SetColorizationBlurBalanceInactive Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "ColorizationBlurBalanceInactive" dwValue = InputBox("The amount of the opacity of the windows frames (0-100%)", "Inactive Blur Balance", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearColorizationBlurBalanceInactive strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "ColorizationBlurBalanceInactive" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '--------------------------------------Text Glow Mode-------------------------------- sub getTextGlowMode Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "TextGlowMode" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea15.InnerHTML = dwValue End Sub Sub SetTextGlowMode Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "TextGlowMode" dwValue = InputBox("Text Glow Mode (0=No glow effect, 1=Glow effect loaded from atlas, 2=Glow effect loaded from atlas and theme opacity is respected, 3=Composited glow effect using your theme settings)", "Text Glow Mode", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearTextGlowMode strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "TextGlowMode" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '-----------------------Colorization Glass Reflection Intensity---------------------- sub getColorizationGlassReflectionIntensity Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "ColorizationGlassReflectionIntensity" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue DataArea7.InnerHTML = dwValue End Sub Sub SetColorizationGlassReflectionIntensity Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "ColorizationGlassReflectionIntensity" dwValue = InputBox("Glass Reflection, Win8 = 0, Win7 = 50, (0-100%)", "Glass Reflection", "") If dwValue = "" then dwValue = "" End If oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue End Sub Sub ClearColorizationGlassReflectionIntensity strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strDWORDValueName = "ColorizationGlassReflectionIntensity" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName End Sub '------------------------------Custom Theme Reflection------------------------- sub getCustomThemeReflection Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "CustomThemeReflection" oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue DataArea8.InnerHTML = strValue End Sub Sub SetCustomThemeReflection Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "CustomThemeReflection" strValue = fileloader.value oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue End Sub Sub ClearCustomThemeReflection strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strStringValueName = "CustomThemeReflection" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName End Sub '------------------------------Custom Custom Theme Atlas------------------------- sub getCustomThemeAtlas Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "CustomThemeAtlas" oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue DataArea9.InnerHTML = strValue End Sub Sub SetCustomThemeAtlas Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "CustomThemeAtlas" strValue = fileloader2.value oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue End Sub Sub ClearCustomThemeAtlas strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strStringValueName = "CustomThemeAtlas" oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName End Sub '--------------------------------Disable Glass On Battery----------------------- sub getDisableGlassOnBattery Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "DisableGlassOnBattery" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = "1" then DataArea10.InnerHTML = "Disabled On Battery" ElseIf dwValue = "0" then DataArea10.InnerHTML = "Enabled On Battery" CheckBox1.Checked = True Else DataArea10.InnerHTML = "Enabled On Battery Not Configured" End If End Sub Sub SetDisableGlassOnBattery If CheckBox1.Checked Then EnableGlassOnBattery Else DisableGlassOnBattery End If End Sub '---------------------------------Enable Aero Glass-------------------------- Sub GetEnableAeroGlass const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows" strValueName = "LoadAppInit_DLLs" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue If dwValue = "1" then DataArea11.InnerHTML = "Aero Glass Enabled" CheckBox2.Checked = True Else DataArea11.InnerHTML = "Aero Glass Disabled" End If End Sub Sub SetEnableAeroGlass If CheckBox2.Checked Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableAeroGlass.vbs") Else Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableAeroGlass.vbs") Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\ThemeManager" oReg.CreateKey HKEY_CURRENT_USER,strKeyPath strValueName = "DllName" strValue = "%SystemRoot%\resources\Themes\Aero\Aero.msstyles" oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue End If End Sub '--------------------------------Enable Logging----------------------- sub GetEnableLogging Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "EnableLogging" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = "1" then DataArea12.InnerHTML = "Logging Enabled" CheckBox3.Checked = True ElseIf dwValue = "0" then DataArea12.InnerHTML = "Logging Disabled" Else DataArea12.InnerHTML = "Logging Not Configured" End If End Sub Sub SetEnableLogging If CheckBox3.Checked Then EnableLogging Else DisableLogging End If End Sub '---------------------------------Bypass Theme Signature-------------------------- Sub GetBypassThemeSignature const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\DWM" strValueName = "BypassThemeSignature" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue If dwValue = "1" then DataArea13.InnerHTML = "Bypass Theme Signature Enabled" CheckBox4.Checked = True ElseIf dwValue = "0" then DataArea13.InnerHTML = "Bypass Theme Signature Disabled" Else DataArea13.InnerHTML = "Bypass Theme Signature Not Configured" End If End Sub Sub SetBypassThemeSignature If CheckBox4.Checked Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\EnableBypassThemeSignature.vbs") Else Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\DisableBypassThemeSignature.vbs") End If End Sub '----------------------------------Browse File Reflection--------------------------------- Sub BrowseFile innerHTML = fileloader.value End Sub '----------------------------------Browse File Theme Atlas--------------------------------- Sub BrowseFile2 innerHTML = fileloader2.value End Sub '--------------------------------------Apply Blur--------------------------------- Dim dtmStartTime Sub ApplyBlur On Error Resume Next Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs") dtmStartTime = Now idTimer = window.setTimeout("RestartExplorer", 200, "VBScript") End Sub Sub RestartExplorer window.clearTimeout(idTimer) ' Kill Explorer.exe strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next End Sub '-----------------------------------Apply Blur Exit---------------------------- Sub ApplyBlurExit On Error Resume Next Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", (sysdrive + "\AeroGlass\AeroGlassConfigurator\StopDWM.vbs") dtmStartTime = Now idTimer = window.setTimeout("RestartExplorerExit", 200, "VBScript") End Sub Sub RestartExplorerExit window.clearTimeout(idTimer) ' Kill Explorer.exe strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next self.close End Sub '------------------------------------------------------------------------------- Sub OnMouseOver Set objItem = window.event.srcElement objItem.className="ImputsHover" End Sub Sub OnMouseOut Set objItem = window.event.srcElement objItem.className="Inputs" End Sub </script> <script language="JavaScript"> function writeInRegistry1(sRegEntry, sRegValue) { var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry; var oWSS = new ActiveXObject("WScript.Shell"); oWSS.RegWrite(regpath, sRegValue, "REG_DWORD"); } function DisableGlassOnBattery() { writeInRegistry1("DisableGlassOnBattery", "1"); } function EnableGlassOnBattery() { writeInRegistry1("DisableGlassOnBattery", "0"); } function writeInRegistry2(sRegEntry, sRegValue) { var regpath = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\" + sRegEntry; var oWSS = new ActiveXObject("WScript.Shell"); oWSS.RegWrite(regpath, sRegValue, "REG_DWORD"); } function EnableGlass() { writeInRegistry2("LoadAppInit_DLLs", "1"); } function DisableGlass() { writeInRegistry2("LoadAppInit_DLLs", "0"); } function writeInRegistry3(sRegEntry, sRegValue) { var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry; var oWSS = new ActiveXObject("WScript.Shell"); oWSS.RegWrite(regpath, sRegValue, "REG_DWORD"); } function EnableLogging() { writeInRegistry3("EnableLogging", "1"); } function DisableLogging() { writeInRegistry3("EnableLogging", "0"); } function writeInRegistry4(sRegEntry, sRegValue) { var regpath = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\DWM\\" + sRegEntry; var oWSS = new ActiveXObject("WScript.Shell"); oWSS.RegWrite(regpath, sRegValue, "REG_DWORD"); } function EnableBypassThemeSignature() { writeInRegistry4("BypassThemeSignature", "1"); } function DisableBypassThemeSignature() { writeInRegistry4("BypassThemeSignature", "0"); } </script> </head> <body onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()"> <table width=100% cellspacing=0 cellpadding=0> <tr> <td class="close-padding" align="right"><a href="#"><input type="button" value="X" onClick="closeHTA" class="closebutton" /></a></td> </tr> </table> </br> <table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()"> <tr> <td><b> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearBlurDeviation"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetBlurDeviation"/></a> <font size=2 color='#ffffff' face='Arial'>Blur Deviation Amount: </font><font size=2 color='#cc0000' face='Arial'><span id = "DataArea1"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearRoundRectRadius"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetRoundRectRadius"/></a> <font size=2 color='#ffffff' face='Arial'>Radius of Windows Corners: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea2"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalance"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalance"/></a> <font size=2 color='#ffffff' face='Arial'>Active Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea3"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationColorBalanceInactive"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationColorBalanceInactive"/></a> <font size=2 color='#ffffff' face='Arial'>Inactive Color Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea4"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalance"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalance"/></a> <font size=2 color='#ffffff' face='Arial'>Active Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea5"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationBlurBalanceInactive"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationBlurBalanceInactive"/></a> <font size=2 color='#ffffff' face='Arial'>Inactive Blur Balance: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea6"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearTextGlowMode"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetTextGlowMode"/></a> <font size=2 color='#ffffff' face='Arial'>Text Glow Mode: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea15"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearColorizationGlassReflectionIntensity"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetColorizationGlassReflectionIntensity"/></a> <font size=2 color='#ffffff' face='Arial'>Glass Reflection Intensity: </font><font size=2 color='#cc0000' face='Arial' ><span id = "DataArea7"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeReflection"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeReflection"/></a> <font size=2 color='#ffffff' face='Arial'>Custom Theme Reflection: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea8"></span></font></br> <a href="javascript: void(0)" ><input class="button" type="button" value="Clear" onClick="ClearCustomThemeAtlas"/></a> <a href="javascript: void(0)" ><input class="button" type="button" value="Set" onClick="SetCustomThemeAtlas"/></a> <font size=2 color='#ffffff' face='Arial'>Custom Theme Atlas: </font><font size=1 color='#cc0000' face='Arial'><span id = "DataArea9"></span></font></br></b> </td> </tr> </table> <table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()"> <tr> <td> <font size='1' color='#ffffff' face='Arial'><b>Glass Reflection </b></font> <a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader" onchange="BrowseFile" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a> </td> </tr> <tr> <td> <font size='1' color='#ffffff' face='Arial'><b>Custom Theme Atlas </b></font> <a href="javascript: void(0)" ><input type="file" class="Inputs" id="fileloader2" onchange="BrowseFile2" onMouseOver="OnMouseOver" onMouseOut="OnMouseOut" style="width: 100%;"/></a> </td> </tr> </table> <table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()"> <tr> <td width=50%> <input type="checkbox" name="CheckBox1" value="Checkbox1" title="Disable Glass On Battery" onclick="SetDisableGlassOnBattery"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea10"></span></font> </br> <input type="checkbox" name="CheckBox2" value="Checkbox2" title="Enable Aero Glass" onclick="SetEnableAeroGlass"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea11"></span></font> </td> <td width=50%> <input type="checkbox" name="CheckBox3" value="Checkbox3" title="Enable Logging" onclick="SetEnableLogging"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea12"></span></font> </br> <input type="checkbox" name="CheckBox4" value="Checkbox4" title="Bypass Theme Signature" onclick="SetBypassThemeSignature"> <font size=2 color='#ffffff' face='Arial'><span id = "DataArea13"></span></font> </td> </tr> </table> <table width=100% cellspacing=0 cellpadding=0 onmousemove="VBScript:Call stopMoving()"> <tr> <td> <center> <a href="javascript: void(0)" ><input type="button" value="Donate" onClick="self.location='https://glass8.berlios.de/donate.html'" class="applybutton" /></a> <a href="javascript: void(0)" ><input type="button" value="Aero Glass for Windows 8" onClick="self.location='https://glass8.berlios.de'" class="applybutton" /></a> <a href="javascript: void(0)" ><input type="button" value="OK" onClick="ApplyBlurExit" class="applybutton" /></a> <a href="javascript: void(0)" ><input type="button" value="Close" onClick="closeHTA" class="applybutton" /></a> <a href="javascript: void(0)" ><input type="button" value="Apply" onClick="ApplyBlur" class="applybutton" /></a> </center> </td> </tr> </table> </body> <embed src="Music.wav" autostart="true" hidden="true"/>
Stop DWM vbs
Spoiler!
Code: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
Spoiler!
Code: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
Spoiler!
Code: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
Spoiler!
Code: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
Spoiler!
Code: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
Last edited by Mr GRiM; December 6th, 2013 at 11:03 PM.
«
Previous Thread
|
Next Thread
»
Thread Information
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)
Similar Threads
-
Aero Glass for Windows 10 RS1+
By Mr GRiM in forum General Windows 10 CustomizationReplies: 137Last Post: June 9th, 2022, 12:46 AM -
Looking for Pro skinner to port WindowBlinds Dark Aero Glass theme to Windows 8.1.1
By mkanet in forum Windows 8 & 8.1 Theme Help & SupportReplies: 8Last Post: December 27th, 2015, 02:31 PM -
How To Enable Aero Glass-Style Transparency in Windows 8
By razorsedge in forum Tips and TricksReplies: 0Last Post: December 15th, 2012, 06:07 AM -
Enable Aero Glass in Windows Virtual PC
By razorsedge in forum Setup TutorialsReplies: 0Last Post: July 28th, 2010, 11:45 PM
This is my rig. I'm currently in the process of getting it upgraded. (Don't mind the messy room, I'm poor asf so I live in a dump, lmao) Current Specs Model: Dell Optiplex 755
Show Us Your Rig