Is there anny way to turn off webbrowser navigation sound???
-
i spent 2 days, 48 hours on this to disable the sound but there is nooooooooooo fu***** solution i am crazy anymore!! :mad: i to do with registry and than refresh explorer [NOTHING] i tried rename file before navigation start and rename after [NOTHING] i tried move and delete file [NOTHING] i tried to delete all strings in registry with "Windows XP Start.wav" [NOTHING] i tried even this:
Imports System Imports Microsoft.Win32 Imports System.Runtime.InteropServices Module [aclickdisabler] Dim HisSoundO, HisSoundM As String Private Sub readKey() On Error Resume Next Dim oReg As RegistryKey Dim tmpS As String oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current") tmpS = oReg.GetValue("", "").ToString '%SystemRoot%\media\Windows XP Start.wav oReg.Close() If tmpS = "" Then Else If tmpS.Contains(":\") Then Else tmpS = "C:\WINDOWS\Media\" + tmpS End If HisSoundO = tmpS HisSoundM = System.IO.Path.GetDirectoryName(HisSoundO) & "\" & System.IO.Path.GetFileNameWithoutExtension(HisSoundO) & ".blocked" End If End Sub Public Sub ED_Navigate_Sound(ByVal Enabled As Boolean) 'On Error Resume Next Dim oReg As RegistryKey oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Default", True) oReg.SetValue("", "C:\Windows\fuckin_non_exsisting_file.wav") oReg.Close() readKey() 'MsgBox(HisSoundO + "-" + HisSoundM) If Enabled = True Then System.IO.File.Move(HisSoundM, HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundM, HisSoundO) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", HisSound, RegistryValueKind.ExpandString) 'oReg.Close() ElseIf Enabled = False Then System.IO.File.Move(HisSoundO, HisSoundM) 'Kill(HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundO, HisSoundM) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", "", RegistryValueKind.ExpandString) -
i spent 2 days, 48 hours on this to disable the sound but there is nooooooooooo fu***** solution i am crazy anymore!! :mad: i to do with registry and than refresh explorer [NOTHING] i tried rename file before navigation start and rename after [NOTHING] i tried move and delete file [NOTHING] i tried to delete all strings in registry with "Windows XP Start.wav" [NOTHING] i tried even this:
Imports System Imports Microsoft.Win32 Imports System.Runtime.InteropServices Module [aclickdisabler] Dim HisSoundO, HisSoundM As String Private Sub readKey() On Error Resume Next Dim oReg As RegistryKey Dim tmpS As String oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current") tmpS = oReg.GetValue("", "").ToString '%SystemRoot%\media\Windows XP Start.wav oReg.Close() If tmpS = "" Then Else If tmpS.Contains(":\") Then Else tmpS = "C:\WINDOWS\Media\" + tmpS End If HisSoundO = tmpS HisSoundM = System.IO.Path.GetDirectoryName(HisSoundO) & "\" & System.IO.Path.GetFileNameWithoutExtension(HisSoundO) & ".blocked" End If End Sub Public Sub ED_Navigate_Sound(ByVal Enabled As Boolean) 'On Error Resume Next Dim oReg As RegistryKey oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Default", True) oReg.SetValue("", "C:\Windows\fuckin_non_exsisting_file.wav") oReg.Close() readKey() 'MsgBox(HisSoundO + "-" + HisSoundM) If Enabled = True Then System.IO.File.Move(HisSoundM, HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundM, HisSoundO) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", HisSound, RegistryValueKind.ExpandString) 'oReg.Close() ElseIf Enabled = False Then System.IO.File.Move(HisSoundO, HisSoundM) 'Kill(HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundO, HisSoundM) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", "", RegistryValueKind.ExpandString)Suddenly i created new project inserted webbrowser and put on load navigate to Google and guess what no sound no "čing čing" :) then i started my original application and yeeeeeeee :) no sound, hope it will work forewer! :) so solution is up there if someone need's it. :-\
FeRtoll Software.net ------------ E-Mail me WebPage
-
i spent 2 days, 48 hours on this to disable the sound but there is nooooooooooo fu***** solution i am crazy anymore!! :mad: i to do with registry and than refresh explorer [NOTHING] i tried rename file before navigation start and rename after [NOTHING] i tried move and delete file [NOTHING] i tried to delete all strings in registry with "Windows XP Start.wav" [NOTHING] i tried even this:
Imports System Imports Microsoft.Win32 Imports System.Runtime.InteropServices Module [aclickdisabler] Dim HisSoundO, HisSoundM As String Private Sub readKey() On Error Resume Next Dim oReg As RegistryKey Dim tmpS As String oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current") tmpS = oReg.GetValue("", "").ToString '%SystemRoot%\media\Windows XP Start.wav oReg.Close() If tmpS = "" Then Else If tmpS.Contains(":\") Then Else tmpS = "C:\WINDOWS\Media\" + tmpS End If HisSoundO = tmpS HisSoundM = System.IO.Path.GetDirectoryName(HisSoundO) & "\" & System.IO.Path.GetFileNameWithoutExtension(HisSoundO) & ".blocked" End If End Sub Public Sub ED_Navigate_Sound(ByVal Enabled As Boolean) 'On Error Resume Next Dim oReg As RegistryKey oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Default", True) oReg.SetValue("", "C:\Windows\fuckin_non_exsisting_file.wav") oReg.Close() readKey() 'MsgBox(HisSoundO + "-" + HisSoundM) If Enabled = True Then System.IO.File.Move(HisSoundM, HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundM, HisSoundO) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", HisSound, RegistryValueKind.ExpandString) 'oReg.Close() ElseIf Enabled = False Then System.IO.File.Move(HisSoundO, HisSoundM) 'Kill(HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundO, HisSoundM) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", "", RegistryValueKind.ExpandString)me again :) two more things to do to be sure it will work always just edit this two:
FeRtoll wrote:
tmpS = "C:\WINDOWS\Media\" + tmpS
tmpS = System.Environment.ExpandEnvironmentVariables("%WinDir%") + "\Media\" + tmpSandFeRtoll wrote:
'On Error Resume Next
On Error Resume NextFeRtoll Software.net ------------ E-Mail me WebPage
-
i spent 2 days, 48 hours on this to disable the sound but there is nooooooooooo fu***** solution i am crazy anymore!! :mad: i to do with registry and than refresh explorer [NOTHING] i tried rename file before navigation start and rename after [NOTHING] i tried move and delete file [NOTHING] i tried to delete all strings in registry with "Windows XP Start.wav" [NOTHING] i tried even this:
Imports System Imports Microsoft.Win32 Imports System.Runtime.InteropServices Module [aclickdisabler] Dim HisSoundO, HisSoundM As String Private Sub readKey() On Error Resume Next Dim oReg As RegistryKey Dim tmpS As String oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current") tmpS = oReg.GetValue("", "").ToString '%SystemRoot%\media\Windows XP Start.wav oReg.Close() If tmpS = "" Then Else If tmpS.Contains(":\") Then Else tmpS = "C:\WINDOWS\Media\" + tmpS End If HisSoundO = tmpS HisSoundM = System.IO.Path.GetDirectoryName(HisSoundO) & "\" & System.IO.Path.GetFileNameWithoutExtension(HisSoundO) & ".blocked" End If End Sub Public Sub ED_Navigate_Sound(ByVal Enabled As Boolean) 'On Error Resume Next Dim oReg As RegistryKey oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Default", True) oReg.SetValue("", "C:\Windows\fuckin_non_exsisting_file.wav") oReg.Close() readKey() 'MsgBox(HisSoundO + "-" + HisSoundM) If Enabled = True Then System.IO.File.Move(HisSoundM, HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundM, HisSoundO) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", HisSound, RegistryValueKind.ExpandString) 'oReg.Close() ElseIf Enabled = False Then System.IO.File.Move(HisSoundO, HisSoundM) 'Kill(HisSoundO) 'My.Computer.FileSystem.RenameFile(HisSoundO, HisSoundM) 'Dim oReg As RegistryKey 'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True) 'oReg.SetValue("", "", RegistryValueKind.ExpandString)