casino explorer

[margaret2484]

Can you please tell me how to remove the "casino explorer?" I want the regular "internet explorer" back. I don't know how I got the casino explorer, but it is driving me crazy. Any help is greatly appreciated.

[reghakr]

What will they think of next. If you open Notepad and copy and paste the following between the lines and save the file as ShowBranding.vbs. Double-click on the file to restore the original. Credit goes to David Candy at serenitymacros site.

==========BEGIN CUT===========
'ShowBranding.vbs
'Displays and/or removes branding information for IE4 and IE5 and sets a user Window Title.
'
'Serenity Macros http://www.angelfire.com/biz/serenitymacros
'David Candy davidc@sia.net.au
'

strExplain="Lists any browser customisation registry settings" & vbCRLF & "Only values present are shown, some may be empty." & vbCRLF & vbCRLF
strBranding=""
strTitle=""

Dim Sh
Set Sh = WScript.CreateObject("WScript.Shell")

On Error Resume Next
strBranding=strBranding & "Window Title " & vbTab & Sh.RegRead("HKLM\Software\Microsoft\Internet Explorer\Main\Window Title") & vbCRLF
strBranding=strBranding & "SmallBitmap " & vbTab & Sh.RegRead("HKLM\Software\Microsoft\Internet Explorer\Main\SmallBitmap") & vbCRLF
strBranding=strBranding & "BigBitmap " & vbTab & Sh.RegRead("HKLM\Software\Microsoft\Internet Explorer\Main\BigBitmap") & vbCRLF
strBranding=strBranding & "BackBitmapIE5 " & vbTab & Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5") & vbCRLF
strBranding=strBranding & "BackBitmap (for IE4)" & vbTab & Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap") & vbCRLF
strBranding=strBranding & "SmBrandBitmap" & vbTab & Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap") & vbCRLF
strBranding=strBranding & "BrandBitmap " & vbTab & Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")

If strBranding="" then
strBranding= "No customisation present"
MsgBox strExplain & strBranding, vbInformation + vbOKOnly , "Show Branding Information"
Else
If MsgBox(strExplain & strBranding & vbcrlf & vbcrlf & "Remove customisation?", vbQuestion + vbYesNo + vbDefaultButton2, "Remove Branding Information") =6 Then
Sh.RegDelete("HKLM\Software\Microsoft\Internet Explorer\Main\Window Title")
Sh.RegDelete("HKLM\Software\Microsoft\Internet Explorer\Main\SmallBitmap")
Sh.RegDelete("HKLM\Software\Microsoft\Internet Explorer\Main\BigBitmap")
Sh.RegDelete("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapIE5")
Sh.RegDelete("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap")
Sh.RegDelete("HKCU\Software\Microsoft\Internet Explorer\Toolbar\SmBrandBitmap")
Sh.RegDelete("HKCU\Software\Microsoft\Internet Explorer\Toolbar\BrandBitmap")
End If
End If

strDefault=Sh.RegRead("HKLM\Software\Microsoft\Internet Explorer\Main\Window Title")
If strDefault="" then strDefault="Microsoft Internet Explorer"
strTitle=Inputbox("Do you want to set Internet Explorer's titlebar string." & vbCRLF & vbCRLF & "Use a space to set to nothing.", "Set Window Title", strDefault)
If strTitle <> strDefault then
If strTitle <> "" Then
Sh.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title",strTitle
End If
End If
===========END CUT===========

reghakr