Jump to content
Sign in to follow this  
SirDarknight1200

How to change tab and other properties?

Recommended Posts

SirDarknight1200

As an example,If I want my script to open in Win 7

Control PanelSystem and SecuritySystem>Advanced System Settings>Performance>Settings>Adjust for best performance

 

Which variables I need to use?

Share this post


Link to post
Share on other sites
JLogan3o13

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")

√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
SirDarknight1200

Thanks a lot!I'll let u know if it works

Share this post


Link to post
Share on other sites
0xdefea7

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.

Share this post


Link to post
Share on other sites
SirDarknight1200

Hmm... That's good. Thanks

Share this post


Link to post
Share on other sites
0xdefea7

Hmm... That's good. Thanks

 

Please mark your question as answered if you have what you need :)

Share this post


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
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.