Jump to content

Advanced Appearance Settings for Windows 8


MrGRiM

Recommended Posts

As we all know MS decided we didn't need the advanced appearance settings any longer, but I think I am not the only one when I say FU Microsoft we want it back.

So anyway I have been having a little play today and tried to make something to bring a few of those basic settings back, I will keep working on this and maybe add some tabs to it for setting window colors and maybe font size as well.

If anyone else wants to add their own bit of code feel free, I am only a noob with any of this stuff, I just used Google allot and figured it out from there.

Well I know it doesn't look like much and it probably could have been done a much better way but it works and will do for now.

i4cdq2c7z79e58lfg.jpg

After you apply the changes you will need to log off to take effect, sorry I don't know any way to refresh it other then that.

<html><META HTTP-EQUIV="MSThemeCompatible" CONTENT="Yes"><title>Advanced Appearance Settings</title><head><HTA:APPLICATIONAPPLICATIONNAME="Advanced Appearance Settings"SINGLEINSTANCE="yes"WINDOWSTATE="normal"Border = "thin"BorderStyle = "normal"INNERBORDER="no"CONTEXTMENU="no"ICON="themecpl.dll"SCROLL="no"NAVIGABLE = "Yes"SCROLLFLAT = "Yes"SELECTION = "No"/></head><style>.head { font-size:110%; font-weight:bold }.panel {  background-color: window;  border: solid 1px black;  height: 300px;  padding: 5px;  position: relative;  width: 440px;  z-index: 0;}BODY{background-color: buttonface;}.button{width: 80px;height: 25px;font-family: arial,sans-serif;font-size: 8pt;margin-left: 2px;margin-right:2px;}.button2{width: 50px;height: 22px;font-family: arial,sans-serif;font-size: 8pt;margin-left: 2px;margin-right:2px;}td{font-family: arial,sans-serif;font-size: 14pt;}.tabs {  border-collapse: collapse;  color: windowcolor;  cursor: pointer;  cursor: hand;  font-family: arial;  font-size: 9pt;  font-weight: bold;  margin-top: 4px;  padding: 2px 4px 0px 4px;  position: relative;  text-align: center;  text-decoration: none;  z-index: 1;}.tabsNotSelected {  background-color: buttonface;  border: solid 1px black;}.tabsSelected {  background-color: Window;  border-color: black black white black;  border-style: solid solid solid solid;  border-width: 1px 1px 1px 1px;}</style><script language="VBscript">     Dim sItem     Dim aPanels     Dim el     Dim iPanelCount     iPanelCount = 1     Private Sub Panel(tab)          For i = 1 To iPanelCount               If i = tab Then                    document.getElementById("tab" & i).className = "tabs tabsSelected"                    document.getElementById("panel" & i).style.display = "block"               Else                    document.getElementById("tab" & i).className = "tabs tabsNotSelected"                    document.getElementById("panel" & i).style.display = "none"               End If          Next     End Sub</script><SCRIPT LANGUAGE="VBScript">winWidth=500winHeight=500window.resizeto winWidth,winHeightcenterX=(screen.width-winWidth)/2centerY=(screen.height-winHeight)/2window.moveto centerX,centerYposX=0posY=0move=0Function closeHTA()  self.closeEnd FunctionFunction setPos()  posX=window.event.screenX  posY=window.event.ScreenY  move=1End FunctionSub Window_Onload  getCaptionHeight  getBorderWidth  getPaddedBorderWidth  getShellIconSize  getIconSpacing  getIconVerticalSpacing  getMenuHeight  getScrollHeightEnd Sub</script><SCRIPT LANGUAGE="VBScript">Const HKEY_CURRENT_USER = &H80000001strComputer = "."'-------------------------------------------------------------------------------sub getCaptionHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "CaptionHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea1.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea1.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea1.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea1.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea1.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea1.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea1.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea1.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea1.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea1.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea1.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea1.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea1.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea1.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea1.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea1.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea1.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea1.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea1.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea1.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea1.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea1.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea1.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea1.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea1.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea1.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea1.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea1.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea1.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea1.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea1.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea1.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea1.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea1.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea1.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea1.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea1.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea1.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea1.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea1.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea1.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea1.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea1.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea1.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea1.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea1.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea1.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea1.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea1.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea1.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea1.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea1.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea1.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea1.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea1.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea1.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea1.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea1.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea1.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea1.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea1.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea1.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea1.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea1.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea1.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea1.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea1.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea1.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea1.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea1.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea1.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea1.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea1.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea1.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea1.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea1.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea1.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea1.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea1.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea1.InnerHTML = "79"Else DataArea1.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getBorderWidth  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "BorderWidth"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea2.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea2.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea2.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea2.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea2.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea2.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea2.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea2.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea2.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea2.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea2.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea2.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea2.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea2.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea2.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea2.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea2.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea2.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea2.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea2.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea2.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea2.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea2.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea2.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea2.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea2.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea2.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea2.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea2.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea2.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea2.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea2.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea2.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea2.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea2.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea2.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea2.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea2.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea2.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea2.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea2.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea2.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea2.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea2.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea2.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea2.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea2.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea2.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea2.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea2.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea2.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea2.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea2.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea2.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea2.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea2.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea2.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea2.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea2.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea2.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea2.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea2.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea2.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea2.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea2.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea2.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea2.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea2.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea2.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea2.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea2.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea2.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea2.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea2.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea2.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea2.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea2.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea2.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea2.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea2.InnerHTML = "79"Else DataArea2.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getPaddedBorderWidth  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "PaddedBorderWidth"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea3.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea3.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea3.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea3.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea3.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea3.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea3.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea3.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea3.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea3.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea3.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea3.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea3.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea3.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea3.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea3.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea3.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea3.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea3.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea3.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea3.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea3.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea3.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea3.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea3.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea3.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea3.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea3.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea3.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea3.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea3.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea3.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea3.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea3.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea3.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea3.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea3.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea3.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea3.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea3.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea3.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea3.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea3.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea3.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea3.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea3.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea3.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea3.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea3.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea3.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea3.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea3.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea3.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea3.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea3.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea3.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea3.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea3.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea3.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea3.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea3.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea3.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea3.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea3.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea3.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea3.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea3.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea3.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea3.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea3.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea3.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea3.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea3.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea3.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea3.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea3.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea3.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea3.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea3.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea3.InnerHTML = "79"Else DataArea3.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getShellIconSize  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "Shell Icon Size"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  DataArea4.InnerHTML = strValueEnd Sub'-------------------------------------------------------------------------------sub getIconSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "IconSpacing"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea5.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea5.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea5.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea5.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea5.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea5.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea5.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea5.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea5.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea5.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea5.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea5.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea5.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea5.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea5.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea5.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea5.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea5.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea5.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea5.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea5.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea5.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea5.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea5.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea5.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea5.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea5.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea5.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea5.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea5.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea5.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea5.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea5.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea5.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea5.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea5.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea5.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea5.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea5.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea5.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea5.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea5.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea5.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea5.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea5.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea5.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea5.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea5.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea5.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea5.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea5.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea5.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea5.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea5.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea5.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea5.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea5.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea5.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea5.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea5.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea5.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea5.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea5.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea5.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea5.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea5.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea5.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea5.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea5.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea5.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea5.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea5.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea5.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea5.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea5.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea5.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea5.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea5.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea5.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea5.InnerHTML = "79"Else DataArea5.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getIconVerticalSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "IconVerticalSpacing"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea6.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea6.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea6.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea6.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea6.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea6.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea6.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea6.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea6.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea6.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea6.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea6.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea6.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea6.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea6.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea6.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea6.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea6.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea6.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea6.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea6.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea6.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea6.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea6.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea6.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea6.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea6.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea6.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea6.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea6.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea6.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea6.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea6.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea6.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea6.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea6.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea6.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea6.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea6.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea6.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea6.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea6.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea6.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea6.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea6.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea6.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea6.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea6.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea6.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea6.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea6.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea6.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea6.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea6.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea6.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea6.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea6.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea6.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea6.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea6.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea6.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea6.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea6.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea6.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea6.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea6.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea6.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea6.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea6.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea6.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea6.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea6.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea6.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea6.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea6.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea6.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea6.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea6.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea6.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea6.InnerHTML = "79"Else DataArea6.InnerHTML = "80"End IfEnd Sub'------------------------------------------------------------------------------- sub getMenuHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "MenuHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea7.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea7.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea7.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea7.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea7.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea7.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea7.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea7.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea7.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea7.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea7.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea7.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea7.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea7.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea7.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea7.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea7.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea7.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea7.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea7.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea7.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea7.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea7.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea7.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea7.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea7.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea7.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea7.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea7.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea7.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea7.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea7.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea7.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea7.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea7.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea7.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea7.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea7.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea7.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea7.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea7.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea7.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea7.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea7.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea7.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea7.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea7.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea7.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea7.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea7.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea7.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea7.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea7.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea7.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea7.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea7.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea7.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea7.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea7.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea7.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea7.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea7.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea7.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea7.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea7.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea7.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea7.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea7.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea7.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea7.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea7.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea7.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea7.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea7.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea7.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea7.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea7.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea7.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea7.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea7.InnerHTML = "79"Else DataArea7.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getScrollHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "ScrollHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea8.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea8.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea8.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea8.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea8.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea8.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea8.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea8.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea8.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea8.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea8.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea8.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea8.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea8.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea8.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea8.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea8.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea8.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea8.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea8.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea8.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea8.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea8.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea8.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea8.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea8.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea8.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea8.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea8.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea8.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea8.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea8.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea8.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea8.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea8.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea8.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea8.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea8.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea8.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea8.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea8.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea8.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea8.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea8.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea8.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea8.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea8.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea8.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea8.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea8.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea8.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea8.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea8.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea8.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea8.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea8.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea8.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea8.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea8.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea8.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea8.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea8.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea8.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea8.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea8.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea8.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea8.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea8.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea8.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea8.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea8.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea8.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea8.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea8.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea8.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea8.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea8.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea8.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea8.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea8.InnerHTML = "79"Else DataArea8.InnerHTML = "80"End IfEnd Sub'----------------------------------------------------------------------------- </script><SCRIPT LANGUAGE="VBScript">strComputer = "."Sub CaptionButtons  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "CaptionHeight"  strValue = DropDown1.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "CaptionWidth"  strValue = DropDown1.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getCaptionHeightEnd Sub'-------------------------------------------------------------------------------Sub WindowBorder  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "BorderWidth"  strValue = DropDown2.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getBorderWidth  End Sub 'WindowBorder'-------------------------------------------------------------------------------Sub BorderPadding  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "PaddedBorderWidth"  strValue = DropDown3.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getPaddedBorderWidth  End Sub 'BorderPadding'-------------------------------------------------------------------------------Sub Icon  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "Shell Icon Size"  strValue = DropDown4.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getShellIconSize  End Sub 'Icon'-------------------------------------------------------------------------------Sub IconSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "IconSpacing"  strValue = DropDown5.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getIconSpacing  End Sub 'IconSpacing'-------------------------------------------------------------------------------Sub IconSpacingVertical  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "IconVerticalSpacing"  strValue = DropDown6.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getIconVerticalSpacing  End Sub 'IconSpacingVertical'-------------------------------------------------------------------------------Sub Menu  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "MenuHeight"  strValue = DropDown7.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "MenuWidth"  strValue = DropDown7.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getMenuHeight  End Sub 'Menu'-------------------------------------------------------------------------------Sub Scrollbar  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "ScrollHeight"  strValue = DropDown8.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "ScrollWidth"  strValue = DropDown8.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getScrollHeight  End Sub 'Scrollbar'--------------------------------------Apply--------------------------------- Sub Apply  CaptionButtons  WindowBorder  BorderPadding  Icon  IconSpacing  IconSpacingVertical  Menu  ScrollbarEnd SubSub ApplyExit  Apply  self.closeEnd Sub</SCRIPT><body><table align="center" border="0" cellpadding="0" cellspacing="0" width="440"><tr valign="top">  <td colspan="2"><span class="tabs tabsSelected" id="tab1" onclick="panel(1)">System Metrics</span><div class="panel" id="panel1" style="display:block">  <table border=0 width=100%>   <tr>    <td width=52% valign=top align=Left><FONT SIZE=2><B><I>System Metrics</I></B></FONT><BR></td>    <td width=15% valign=top align=left><FONT SIZE=2><B><I>Current</I></B></FONT><BR></td>    <td width=20% valign=top align=left><FONT SIZE=2><B><I>New</I></B></FONT><BR></td>   </tr>  </table>  <HR color="buttonface"/>  <table border="0" width="100%">   <tr>    <td width=65% align=left valign=top bgcolor="window">     Caption Buttons: <br/><HR color="window"/>     Window Border: <br/><HR color="window"/>     Border Padding: <br/><HR color="window"/>     Icon: <br/><HR color="window"/>     Icon Spacing (Horizontal): <br/><HR color="window"/>     Icon Spacing (Vertical): <br/><HR color="window"/>     Menu: <br/><HR color="window"/>     Scrollbar Buttons:    </td>    <td width=15% align=center valign=top bgcolor="window">     <span id = "DataArea1"></span><br/><HR color="window"/>     <span id = "DataArea2"></span><br/><HR color="window"/>     <span id = "DataArea3"></span><br/><HR color="window"/>     <span id = "DataArea4"></span><br/><HR color="window"/>     <span id = "DataArea5"></span><br/><HR color="window"/>     <span id = "DataArea6"></span><br/><HR color="window"/>     <span id = "DataArea7"></span><br/><HR color="window"/>     <span id = "DataArea8"></span>    </td>    <td width=10% align=right valign=top bgcolor="window">     <select size="1" name="DropDown1">     <option></option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315" selected>21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown2">     <option></option>     <option value="0">0</option>     <option value="-15" selected>1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225" >15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown3">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60" selected>4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown4">     <option></option>     <option value="0">0</option>     <option value="1">1</option>     <option value="2">2</option>     <option value="3">3</option>     <option value="4">4</option>     <option value="5">5</option>     <option value="6">6</option>     <option value="7">7</option>     <option value="8">8</option>     <option value="9">9</option>     <option value="10">10</option>     <option value="11">11</option>     <option value="12">12</option>     <option value="13">13</option>     <option value="14">14</option>     <option value="15">15</option>     <option value="16">16</option>     <option value="17">17</option>     <option value="18">18</option>     <option value="19">19</option>     <option value="20">20</option>     <option value="30">30</option>     <option value="31">31</option>     <option value="32" selected>32</option>     <option value="33">33</option>     <option value="34">34</option>     <option value="35">35</option>     <option value="36">36</option>     <option value="37">37</option>     <option value="38">38</option>     <option value="39">39</option>     <option value="40">40</option>     <option value="41">41</option>     <option value="42">42</option>     <option value="43">43</option>     <option value="44">44</option>     <option value="45">45</option>     <option value="46">46</option>     <option value="47">47</option>     <option value="48">48</option>     <option value="49">49</option>        <option value="50">50</option>     <option value="51">51</option>     <option value="52">52</option>     <option value="53">53</option>     <option value="54">54</option>     <option value="55">55</option>     <option value="56">56</option>     <option value="57">57</option>     <option value="58">58</option>     <option value="59">59</option>        <option value="60">60</option>     <option value="61">61</option>     <option value="62">62</option>     <option value="63">63</option>     <option value="64">64</option>     <option value="65">65</option>     <option value="66">66</option>     <option value="67">67</option>     <option value="68">68</option>     <option value="69">69</option>        <option value="70">70</option>     <option value="71">71</option>     <option value="72">72</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown5">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     <option value="-765">51</option>     <option value="-780">52</option>     <option value="-795">53</option>     <option value="-810">54</option>     <option value="-825">55</option>     <option value="-840">56</option>     <option value="-855">57</option>     <option value="-870">58</option>     <option value="-885">59</option>     <option value="-900">60</option>     <option value="-915">61</option>     <option value="-930">62</option>     <option value="-945">63</option>     <option value="-960">64</option>     <option value="-975">65</option>     <option value="-990">66</option>     <option value="-1005">67</option>     <option value="-1020">68</option>     <option value="-1035">69</option>     <option value="-1050">70</option>     <option value="-1065">71</option>     <option value="-1080">72</option>     <option value="-1095">73</option>     <option value="-1110">74</option>     <option value="-1125" selected>75</option>     <option value="-1140">76</option>     <option value="-1155">77</option>     <option value="-1170">78</option>     <option value="-1185">79</option>     <option value="-1200">80</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown6">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     <option value="-765">51</option>     <option value="-780">52</option>     <option value="-795">53</option>     <option value="-810">54</option>     <option value="-825">55</option>     <option value="-840">56</option>     <option value="-855">57</option>     <option value="-870">58</option>     <option value="-885">59</option>     <option value="-900">60</option>     <option value="-915">61</option>     <option value="-930">62</option>     <option value="-945">63</option>     <option value="-960">64</option>     <option value="-975">65</option>     <option value="-990">66</option>     <option value="-1005">67</option>     <option value="-1020">68</option>     <option value="-1035">69</option>     <option value="-1050">70</option>     <option value="-1065">71</option>     <option value="-1080">72</option>     <option value="-1095">73</option>     <option value="-1110">74</option>     <option value="-1125" selected>75</option>     <option value="-1140">76</option>     <option value="-1155">77</option>     <option value="-1170">78</option>     <option value="-1185">79</option>     <option value="-1200">80</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown7">     <option></option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285" selected>19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown8">     <option></option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255" selected>17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select>    </td>    <td width=10% align=right valign=top bgcolor="window">    <input type="button" value="Apply" onClick="CaptionButtons" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="WindowBorder" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="BorderPadding" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Icon" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="IconSpacing" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="IconSpacingVertical" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Menu" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Scrollbar" class="button2"/>    </td>   </tr>  </table></div></td></tr></table><table width=100% border=0 cellspacing=0 cellpadding=7><tr>  <td width=100% valign=bottom align=right>   <input type="button" value="Apply and Exit" onClick="ApplyExit" class="button" />   <input type="button" value="Cancel" onClick="closeHTA" class="button" />   <input type="button" value="Apply All" onClick="Apply" class="button" />  </td></tr></table><table width=100% border=0 cellspacing=0 cellpadding=0><tr>  <td width=100% valign=bottom align=center>   <FONT SIZE=3><B>Dropdown shows Windows Default Values on load</B></FONT>  </td></tr></table></body>

Advanced Appearance Settings.zip

Edited by MrGRiM
Link to comment
Share on other sites


Thank you! Someone gets it that some of these settings still applied to themes with visual styles so MS was foolish to delete the GUI for all of them. I do tweak the reg values directly but GUI always helps if I forgot or when I am lazy to do registry fiddling.

Edited by xpclient
Link to comment
Share on other sites

Glad you like it guys, just updated it a bit, I had the default values wrong on the icon spacing and I changed the registry values to the same ones you see in the drop down and what they would be in the old advanced appearance settings.

Link to comment
Share on other sites

  • 5 weeks later...

I know all the items on the screenshot except for "border padding", so I asked.

Does it take you guys much time to give a short reply?

Sorry I thought I did reply, it must have not posted for some reason, it's pretty much the same as window border, both settings will change the size of the border, not sure how they differ though.
Link to comment
Share on other sites

Er... I didn't mean to sound rude on that previous post! I thought you were only interested in replying to Andre!

OK, thanks for explaining about the settings of the windows border.

Link to comment
Share on other sites

  • 7 months later...
  • 1 month later...

Mr Grim,

 

This looks like a great idea and I have just downloaded the file to give it a try.

 

Unfortunately on My Mac Book Pro (Win 8.1 + Bootcamp) the Boarder constrains the Text and I can only access the menu as far down as "Icon Spacing Vertical". So cant access the full menu or the action Keys at the bottom.

 

Is there any chance you could modify the boarder so it could be drag able or simply increase the  length of the boarder by about double fro folks in the same position as me...?

 

Many thanks ...... Martin V (Australia)

Link to comment
Share on other sites

  • 5 months later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

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