Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As LongPrivate Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA” (ByVal _ hWnd1 As Long, ByVal hWnd2 As
‘ Set whether the desktop is visible’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Note 2: the setting does not take effect until Explorer is restarted’ Example:’ SetDesktopVisible FalsePublic Sub SetDesktopVisible(ByVal bVisible As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As
‘ Determine whether the desktop is visible’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “desktop is visible: ” & GetDesktopVisiblePublic Function GetDesktopVisible() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetDesktopVisible = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer”, _ “NoDesktop”))End Function
‘ Determine whether the IE Favorites menu item is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Favorites menu item is enabled: ” & GetIEFavoritesEnabledPublic Function GetIEFavoritesEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIEFavoritesEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _ “NoFavorites”))End Function
‘ Set whether the IE Favorites menu item is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEFavoritesEnabled FalsePublic Sub SetIEFavoritesEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the Key
‘ Set the IE’s window title’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIETitle “MY IE”‘ To set the default title, just pass an empty stringPublic Sub SetIETitle(ByVal sTitle As String) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey
‘ Get the IE’s window title’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox GetIETitlePublic Function GetIETitle() As String Const HKEY_CURRENT_USER = &H80000001 GetIETitle = GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwareMicrosoftInternet ExplorerMain”, “Window Title”) If GetIETitle = “” Then GetIETitle = “Microsoft Internet Explorer”End Function
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long’ Show the source code of any page by sending a command to the