Code to toggle 2 themes

[Eustace]

A nice guy once provided me the following code that toggles 2 Windows XP
themes:

============================================

Set WshShell = WScript.CreateObject("WScript.shell")

Theme1="C:\My Stuff\My Files\My Themes\My Vista Theme.theme"
Theme2="C:\My Stuff\My Files\My Themes\My Dark Theme.theme"

'Theme names
Themename1=mid(Theme1,instrrev(Theme1,"\")+1)
Themename2=mid(Theme2,instrrev(Theme2,"\")+1)

'Check current theme
on error resume next
themekey = "HKEY_CURRENT_USER\Software\Microsoft\Plus!\Themes\Current\"
CurrentTheme = wshshell.regread(themekey)
Currentthemename=mid(CurrentTheme,instrrev(CurrentTheme,"\")+1)
on error goto 0

'Choose theme to apply
If trim(lcase(currentthemename))=trim(lcase(Themename1)) then
Theme=theme2
thememessage = left(Themename2,instrrev(Themename2,".")-1)
else
Theme=theme1
thememessage = left(Themename1,instrrev(Themename1,".")-1)
end if

'Apply the theme
runstring = chr(34) & Theme & chr(34)
WshShell.Run runstring

'Activate the window
counter = 600
activated = false
do
activated = WshShell.AppActivate("Display Properties")
wscript.sleep 100
counter = counter - 1
if counter = 0 then
wscript.quit
end if
loop until activated = true

wshshell.sendkeys "{ENTER}"

============================================

I had put it in a file and had a shortcut to it in the Quick Launch, so
I could easily change between these 2 themes. You see, I prefer white
text on dark background, and some application dialogs do not specify
both colors...

I tried to run the above code in Vista, but unfortunately, though it
does bring up the themes dialog, it does not change the themes
automatically.

How can I make it change the themes automatically in Vista?

Thanks,

emf

 

[Jon]

Hi Eustace

Try using the line

activated = WshShell.AppActivate("Theme Settings")

in place of the current line

activated = WshShell.AppActivate("Display Properties")

The title / caption of the themes dialog has changed with Vista, hence the
need for the change.