‘ Set the path of the picture used as background of the IE5/5.5 toolbar’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEToolbarPicture “E:WinNTGreenstone.bmp”‘ To remove the bitmap just pass an empty stringPublic Sub SetIEToolbarPicture(ByVal sPict As String) Const HKEY_CURRENT_USER =
‘ Set whether the IE Close menu item is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIECloseEnabled FalsePublic Sub SetIECloseEnabled(ByVal bEnabled As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions” ‘ if the Key
‘ Determine whether the IE Close menu item is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Close is enabled: ” & GetIECloseEnabledPublic Function GetIECloseEnabled() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetIECloseEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwarePoliciesMicrosoftInternet ExplorerRestrictions”, _ “NoBrowserClose”))End Function
‘ Hide/Show the Explorer’s (Windows Explorer and IE) File menu’ NOTE: this routine requires the SetRegistryValue,’ DeleteRegistryValue and CheckRegistryValue routines,’ that you can find in the CodeBank under the Windows section.” Example:’ ‘ hide the File menu (at the next execution of IE or Windows Explorer)’ ShowExplorerFileMenu False’ ‘ show
Private Declare Function DoFileDownload Lib “shdocvw.dll” (ByVal lpszFile As _ String) As Long’ download a file from Internet and open the IE dialogs that allow the user’ to choose where to save the file and to see the progress status’ Example:’ DownloadFile “http://www.vb2themax.com/images/logomini.gif”Public Sub DownloadFile(ByVal URL As String) DoFileDownload StrConv(URL,
‘ Clear the IE History’ Notes:’ This routine requires the DeleteRegistryKey and CreateRegistryKey routines,’ you can find them in the CodeBankPublic Sub ClearIEHistory() Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = “SoftwareMicrosoftInternet ExplorerTypedURLs” ‘ delete the key that contains the URLs the history DeleteRegistryKey HKEY_CURRENT_USER, sKey ‘ recreate
‘ Get the path of the picture used as background of IE 5/5.5 toolbar’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox GetIEToolbarPicturePublic Function GetIEToolbarPicture() As String Const HKEY_CURRENT_USER = &H80000001 GetIEToolbarPicture = GetRegistryValue(HKEY_CURRENT_USER, _ “SoftwareMicrosoftInternet ExplorerToolbar”, “BackBitmapIE5”)End Function