Jump to content

How to change tab and other properties?


Go to solution Solved by 0xdefea7,

Recommended Posts

  • Moderators

Hi, SirDarknight1200. Something like this maybe?

Opt("WinTitleMatchMode", 4)

Run("control sysdm.cpl,,3")

WinWaitActive("classname=#32770")
$handle = WinGetHandle("active")
ControlClick("","","Button2")

WinWaitActive("classname=#32770")
ControlClick("","","Button3")

ControlClick("","","Button5")

WinWaitActive("handle="&$handle)
ControlClick("","","Button9")

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to post
Share on other sites
  • Solution

Just change the values in the registry directly if you are looking for automation. Here is how I set them (requires a reboot to take effect):

Func SetVisuals()

    If @OSVersion = "WIN_XP" Then
        RegWrite("HKCU\Control Panel\Desktop", "UserPreferenceMask", "REG_BINARY", 90120180)
        RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinAnimate", "REG_SZ", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ListviewAlphaSelect", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarAnimations", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ListviewWatermark", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ListviewShadow", "REG_DWORD", 1)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects", "VisualFXSetting", "REG_DWORD", 3)
    Else
        RegWrite("HKCU\Control Panel\Desktop", "UserPreferenceMask", "REG_BINARY", 9012018010000000)
        RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinAnimate", "REG_SZ", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ListviewAlphaSelect", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarAnimations", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects", "VisualFXSetting", "REG_DWORD", 3)
        RegWrite("HKCU\Software\Microsoft\Windows\DWM", "EnableAeroPeek", "REG_DWORD", 0)
        RegWrite("HKCU\Software\Microsoft\Windows\DWM", "CompositionPolicy", "REG_DWORD", 1)
        RegWrite("HKCU\Software\Microsoft\Windows\DWM", "ColorizationOpaqueBlend", "REG_DWORD", 1)
        RegWrite("HKCU\Software\Microsoft\Windows\DWM", "AlwaysHibernateThumbnails", "REG_DWORD", 0)
    EndIf

EndFunc   ;==>SetVisuals

This assumes that you are using XP or newer OS. Also, keep in mind that these settings are adjusted for my purposes. This does not set the options to "Best Performance", but rather changes the settings to adjust all but a few settings so that visual styles remain but are much less intrusive. It will keep Aero enabled on Vista and 7 as well.

Link to post
Share on other sites

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...