VB 6 禁止WebBrowser网页跳转时发出的声音（ webbrowser控件里所有声音屏蔽）

原创于 2020-08-03 09:29:03 发布 · 477 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb6

VB6技术分享专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种在浏览器中禁用导航声音的方法，通过调用urlmon.dll中的CoInternetSetFeatureEnabled函数，设置FEATURE_DISABLE_NAVIGATION_SOUNDS特性，可以在进程级别实现浏览器静音。

'有问题请到作者官网咨询留言吧。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