TweakUi did a number on my icons

  • Thread starter Thread starter Andy
  • Start date Start date
A

Andy

I used the rebuild icons of TweakUi but it set my icons to be something like 256 colors.

I have tried several fixes like icon spacing and BPP set to 12, but nothing has worked.

Any other ideas ?

Thanks.
 
I used the rebuild icons of TweakUi but it set my icons to be something like 256 colors.

I have tried several fixes like icon spacing and BPP set to 12, but nothing has worked.

Any other ideas ?

Screenshot?
 
I found a fix. I had to delete some registry keys for HP Share to
Web.

Won't you tell the group so someone with the same problem can find a
solution? Please don't be secretive.
 
Won't you tell the group so someone with the same problem can find a

solution? Please don't be secretive.

Please chill out.
Save with .vbs extension.


'© Kelly Theriot
'Kelly's Korner http://www.kellys-korner-xp.com/xp_tweaks.htm


Dim WSHShell, n, MyBox, p, itemtype, Title

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Cached\"
p = p & "{A4DF5659-0801-4A60-9607-1C48695EFDA9} {000214E6-0000-0000-C000-000000000046} 0x401"
itemtype = "REG_DWORD"
n = 1

WSHShell.RegWrite p, n, itemtype

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='Verclsid.exe'")
Process.terminate(0)

Next

MsgBox "Finished." & vbcr & vbcr & "© Kelly Theriot", 4096, "Done"
 
Andy said:
Can you give the Kelly's name or number for this fix?

Did it not work for you ?

I posted the link for Kelly.

Andy


Email addresses detected in message

Found the following email addresses:

(e-mail address removed)

P.S.

Can I stop these messages ?

These email addresses will be viewable by everyone who visits this group oris subscribed to
 
Andy said:
Did it not work for you ?

I posted the link for Kelly.

Andy

Yes, but there are ~800 fixes on the XP page.
Don't know how many are related to icons.
 
Easiest way to search that is to type "icon" in "Find on this page" (see

IE's edit menu option), and you can rapidly scroll through those related

items, until you find it.

Please save this as a .vbs script.

I hope this can help many.

Andy

'© Kelly Theriot
'Kelly's Korner http://www.kellys-korner-xp.com/xp_tweaks.htm


Dim WSHShell, n, MyBox, p, itemtype, Title

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Cached\"
p = p & "{A4DF5659-0801-4A60-9607-1C48695EFDA9} {000214E6-0000-0000-C000-000000000046} 0x401"
itemtype = "REG_DWORD"
n = 1

WSHShell.RegWrite p, n, itemtype

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='Verclsid.exe'")
Process.terminate(0)

Next

MsgBox "Finished." & vbcr & vbcr & "© Kelly Theriot", 4096, "Done"
 
Back
Top