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(Current Theme,"\")+1)
on error goto 0
'Choose theme to apply
If trim(lcase(currentthemename))=trim(lcase(Themename 1)) 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
--
It ain't THAT, babe! - A radical reinterpretation
http://www.geocities.com/itaintme_babe/itaintme.html
Linear Mode
