[TyHi]

So I have my login system set up using a browser and its hidden. Is there any possable way to stop the browser click noise? Here's what kind of code Im using:

        WebBrowser1.Document.GetElementById("login").SetAttribute("value", user.Text)
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", password.Text)
        If WebBrowser1.Document.GetElementById("submit").InvokeMember("click") Then
        End If
        DelayApp()
        If WebBrowser1.DocumentText.Contains("Welcome") Then
            MsgBox("logged in")
            RibbonTabItem3.Text = user.Text
            Online.Select
        Else
            MsgBox("Error")
            WebBrowser1.Navigate("WWW.WEBSITEHERE.COM/LOGIN.PHP")
        End If

Thanks for your time.

[FC Barcelona]

Use webrequest. don't use webbrowser.

[TyHi]

Thanks!

If you have time could you help me convert my old script to webrequest? If not it's ok!

[CLK]

You can't disable the click because it's a component of Internet Explorer. The user would need to disable the click noise globally themselves.

Disable Click Sound from IE in Vista and Windows 7

[Cheater912]

Mute their speakers without them knowing.

[TyHi]

This is what I ended up using: (Enable Sound after disable)

 Public Sub EnableSound()
        Dim keyValue As String
        keyValue = "%SystemRoot%\Media\"
        If Environment.OSVersion.Version.Major = 5 AndAlso Environment.OSVersion.Version.Minor > 0 Then
            keyValue += "Windows XP Start.wav"
        ElseIf Environment.OSVersion.Version.Major = 6 Then
            keyValue += "Windows Navigation Start.wav"
        Else
            Return
        End If
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("AppEvents\Schemes\Apps\Explorer\Navigating\.Current", True)
        key.SetValue(Nothing, keyValue, RegistryValueKind.ExpandString)
    End Sub

So then on form load it would be:

DisableSound()

This is to disable the sound:

Public Sub DisableSound()
        Dim keyValue As String
        keyValue = "%SystemRoot%\Media\"
        If Environment.OSVersion.Version.Major = 5 AndAlso Environment.OSVersion.Version.Minor > 0 Then
            keyValue += "Windows XP Start.wav"
        ElseIf Environment.OSVersion.Version.Major = 6 Then
            keyValue += "Windows Navigation Start.wav"
        Else
            Return
        End If
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("AppEvents\Schemes\Apps\Explorer\Navigating\.Current", True)
        key.SetValue(Nothing, "", RegistryValueKind.ExpandString)
    End Sub