'有问题请到作者官网咨询留言吧。http://www.huosinet.com
Public Enum INTERNETFEATURELIST
FEATURE_OBJECT_CACHING = 0
FEATURE_ZONE_ELEVATION = 1
FEATURE_MIME_HANDLING = 2
FEATURE_MIME_SNIFFING = 3
FEATURE_WINDOW_RESTRICTIONS = 4
FEATURE_WEBOC_POPUPMANAGEMENT = 5
FEATURE_BEHAVIORS = 6
FEATURE_DISABLE_MK_PROTOCOL = 7
FEATURE_LOCALMACHINE_LOCKDOWN = 8
FEATURE_SECURITYBAND = 9
FEATURE_RESTRICT_ACTIVEXINSTALL = 10
FEATURE_VALIDATE_NAVIGATE_URL = 11
FEATURE_RESTRICT_FILEDOWNLOAD = 12
FEATURE_ADDON_MANAGEMENT = 13
FEATURE_PROTOCOL_LOCKDOWN = 14
FEATURE_HTTP_USERNAME_PASSWORD_DISABLE = 15
FEATURE_SAFE_BINDTOOBJECT = 16
FEATURE_UNC_SAVEDFILECHECK = 17
FEATURE_GET_URL_DOM_FILEPATH_UNENCODED = 18
FEATURE_TABBED_BROWSING = 19
FEATURE_SSLUX = 20
FEATURE_DISABLE_NAVIGATION_SOUNDS = 21
FEATURE_DISABLE_LEGACY_COMPRESSION = 22
FEATURE_FORCE_ADDR_AND_STATUS = 23
FEATURE_XMLHTTP = 24
FEATURE_DISABLE_TELNET_PROTOCOL = 25
FEATURE_FEEDS = 26
FEATURE_BLOCK_INPUT_PROMPTS = 27
FEATURE_ENTRY_COUNT = 28
End Enum
Public Declare Function CoInternetSetFeatureEnabled _
Lib "urlmon.dll" (ByVal FeatureEntry As INTERNETFEATURELIST, _
ByVal dwFlags As Long, _
ByVal fEnable As Long) As Long
Const SET_FEATURE_ON_THREAD = 1
Const SET_FEATURE_ON_PROCESS = 2
Const SET_FEATURE_IN_REGISTRY = 4
Const SET_FEATURE_ON_THREAD_LOCALMACHINE = 8
Const SET_FEATURE_ON_THREAD_RANET = 10
Const SET_FEATURE_ON_THREAD_TRUSTED = 20
Const SET_FEATURE_ON_THREAD_ERNET = 40
Const SET_FEATURE_ON_THREAD_RESTRICTED = 80
Function WebBrowser静音(Optional ByVal 是否静音 As Boolean = True)
Call CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, 是否静音)
End Function
Public Enum INTERNETFEATURELIST
FEATURE_OBJECT_CACHING = 0
FEATURE_ZONE_ELEVATION = 1
FEATURE_MIME_HANDLING = 2
FEATURE_MIME_SNIFFING = 3
FEATURE_WINDOW_RESTRICTIONS = 4
FEATURE_WEBOC_POPUPMANAGEMENT = 5
FEATURE_BEHAVIORS = 6
FEATURE_DISABLE_MK_PROTOCOL = 7
FEATURE_LOCALMACHINE_LOCKDOWN = 8
FEATURE_SECURITYBAND = 9
FEATURE_RESTRICT_ACTIVEXINSTALL = 10
FEATURE_VALIDATE_NAVIGATE_URL = 11
FEATURE_RESTRICT_FILEDOWNLOAD = 12
FEATURE_ADDON_MANAGEMENT = 13
FEATURE_PROTOCOL_LOCKDOWN = 14
FEATURE_HTTP_USERNAME_PASSWORD_DISABLE = 15
FEATURE_SAFE_BINDTOOBJECT = 16
FEATURE_UNC_SAVEDFILECHECK = 17
FEATURE_GET_URL_DOM_FILEPATH_UNENCODED = 18
FEATURE_TABBED_BROWSING = 19
FEATURE_SSLUX = 20
FEATURE_DISABLE_NAVIGATION_SOUNDS = 21
FEATURE_DISABLE_LEGACY_COMPRESSION = 22
FEATURE_FORCE_ADDR_AND_STATUS = 23
FEATURE_XMLHTTP = 24
FEATURE_DISABLE_TELNET_PROTOCOL = 25
FEATURE_FEEDS = 26
FEATURE_BLOCK_INPUT_PROMPTS = 27
FEATURE_ENTRY_COUNT = 28
End Enum
Public Declare Function CoInternetSetFeatureEnabled _
Lib "urlmon.dll" (ByVal FeatureEntry As INTERNETFEATURELIST, _
ByVal dwFlags As Long, _
ByVal fEnable As Long) As Long
Const SET_FEATURE_ON_THREAD = 1
Const SET_FEATURE_ON_PROCESS = 2
Const SET_FEATURE_IN_REGISTRY = 4
Const SET_FEATURE_ON_THREAD_LOCALMACHINE = 8
Const SET_FEATURE_ON_THREAD_RANET = 10
Const SET_FEATURE_ON_THREAD_TRUSTED = 20
Const SET_FEATURE_ON_THREAD_ERNET = 40
Const SET_FEATURE_ON_THREAD_RESTRICTED = 80
Function WebBrowser静音(Optional ByVal 是否静音 As Boolean = True)
Call CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, 是否静音)
End Function