MrGRiM Posted September 18, 2013 Share Posted September 18, 2013 (edited) 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.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 September 18, 2013 by MrGRiM Link to comment Share on other sites More sharing options...
MagicAndre1981 Posted September 18, 2013 Share Posted September 18, 2013 thanks I'll try it later Link to comment Share on other sites More sharing options...
xpclient Posted September 18, 2013 Share Posted September 18, 2013 (edited) 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 September 19, 2013 by xpclient Link to comment Share on other sites More sharing options...
DosProbie Posted September 18, 2013 Share Posted September 18, 2013 Thanks GRiM! ... Seems Microsoft took the "Less is More" approach with Windows 8. Link to comment Share on other sites More sharing options...
MrGRiM Posted September 18, 2013 Author Share Posted September 18, 2013 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 More sharing options...
Aloha Posted October 18, 2013 Share Posted October 18, 2013 Many thanks! Like it because it's easy to change the icon spacing.Um... what do you mean by "border padding"? Link to comment Share on other sites More sharing options...
MagicAndre1981 Posted October 18, 2013 Share Posted October 18, 2013 is it also compatible with 8.1? Link to comment Share on other sites More sharing options...
MrGRiM Posted October 19, 2013 Author Share Posted October 19, 2013 is it also compatible with 8.1? Yes it will work with 8.1 Link to comment Share on other sites More sharing options...
Aloha Posted October 19, 2013 Share Posted October 19, 2013 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? Link to comment Share on other sites More sharing options...
MrGRiM Posted October 19, 2013 Author Share Posted October 19, 2013 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 More sharing options...
Aloha Posted October 20, 2013 Share Posted October 20, 2013 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 More sharing options...
sigil Posted May 24, 2014 Share Posted May 24, 2014 Is there source code per chance? Link to comment Share on other sites More sharing options...
bphlpt Posted May 24, 2014 Share Posted May 24, 2014 It's posted in the first post in the spoiler, I believe. Cheers and Regards Link to comment Share on other sites More sharing options...
martinv Posted July 3, 2014 Share Posted July 3, 2014 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 More sharing options...
AlyoshaCheetah Posted December 31, 2014 Share Posted December 31, 2014 What about Windows 10? Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now