Skip to content

Instantly share code, notes, and snippets.

@maedaunderscore

maedaunderscore/IEのアドレスバーとかメニューを強制的に表示

Created January 19, 2012 13:57
Show Gist options
  • Save maedaunderscore/1640152 to your computer and use it in GitHub Desktop.
Save maedaunderscore/1640152 to your computer and use it in GitHub Desktop.
Download ZIP
IEのアドレスバーとかメニューを強制的に表示
Raw
IEのアドレスバーとかメニューを強制的に表示
Option Explicit
Dim OBJ_FSO
Dim OBJ_Browser
Dim STR_ProgramName
Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")
For Each OBJ_Browser In CreateObject("Shell.Application").Windows
STR_ProgramName = OBJ_FSO.GetFileName(OBJ_Browser.FullName)
If LCase(STR_ProgramName) = "iexplore.exe" Then
OBJ_Browser.AddressBar = True
OBJ_Browser.MenuBar = True
OBJ_Browser.ToolBar = True
OBJ_Browser.Statusbar = True
End If
Next
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment