Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
IE Titlebar Changer
' Based on column by Walter Mossberg <>. Check out his
' page at
Dim strName
Dim WshShell
Dim strOldTitle
Dim strNewTitle
Dim intTemp
' Display first box
strName = "IE Titlebar Changer v1.00"
MsgBox "This little VB script changes the titlebar for Internet Explorer.", vbOKOnly, strName
' Get key
Set WshShell = Wscript.GetObject("","Wscript.Shell")
on error resume next
strOldTitle = WshShell.RegRead("HKLM\Software\Microsoft\Internet Explorer\Main\Window Title")
' check if the titlebar exists
If Err.Number <> 0 Then
intTemp = MsgBox("You do not have the Internet Explorer titlebar set in your computer. Do you wish to set it?", vbYesNo, strName)
If intTemp = vbNo Then
MsgBox "Not in the mood today? Alrighty then, see ya!", vbOKOnly, strName
End If
intTemp = MsgBox("Do you wish to remove the Internet Explorer titlebar?", vbYesNo, strName)
If intTemp = vbYes then
WshShell.RegDelete "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
MsgBox "Some things just gotta go... See ya!", vbOKOnly, strName
End If
End If
' Ask the user to change it
strNewTitle = InputBox("Change the title of Internet Explorer to what you want and click OK", strName, strOldTitle)
' If the user changed it, verify it and change it.
If strNewTitle <> "" Then
intTemp = MsgBox("Are you sure you want to change the titlebar?", vbYesNo, strName)
If intTemp = vbYes then
WshShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", strNewTitle
MsgBox "Titlebar changed to " & strNewTitle & ". See ya!"
MsgBox "Guess you changed your mind! See ya!", vbOKOnly, strName
End If
End If
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment