1,502
社区成员
发帖
与我相关
我的任务
分享
'有问题请到作者官网咨询留言吧。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
Option Explicit
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
Private Const SET_FEATURE_ON_THREAD As Integer = &H1
Private Const SET_FEATURE_ON_PROCESS As Integer = &H2
Private Const SET_FEATURE_IN_REGISTRY As Integer = &H4
Private Const SET_FEATURE_ON_THREAD_LOCALMACHINE As Integer = &H8
Private Const SET_FEATURE_ON_THREAD_INTRANET As Integer = &H10
Private Const SET_FEATURE_ON_THREAD_TRUSTED As Integer = &H20
Private Const SET_FEATURE_ON_THREAD_INTERNET As Integer = &H40
Private Const SET_FEATURE_ON_THREAD_RESTRICTED As Integer = &H80
Private Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" (ByVal FeatureEntry As Integer, ByVal dwFlags As Long, ByVal fEnable As Long) As Long
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Dim savedVolume As Long
Private Sub Command1_Click() '静音
waveOutGetVolume 0, savedVolume
waveOutSetVolume 0, 0
End Sub
Private Sub Command2_Click() '取消静音
waveOutSetVolume 0, savedVolume
End Sub
Private Sub Form_Load()
CoInternetSetFeatureEnabled INTERNETFEATURELIST.FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, True
WebBrowser1.Navigate "https://www.uiu.cc/accompaniment/show/id/38715"
End Sub