Jump to content

System Beeps

MGadAllah
MGadAllah
in Windows XP Tutorials and Tips

Featured Replies

Posted 
Option Explicit
Dim WSHShell, n, MyBox, p, itemtype, Title


Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Sound\"
p = p & "Beep"
itemtype = "REG_SZ"
n= "No"

WSHShell.RegWrite p, n, itemtype
Title = "System Beeps are now Disabled." & vbCR
Title = Title & "You may need to Log off/Log on" & vbCR
MyBox = MsgBox(Title,4096,"Finished")

  • Quote

    • Join the conversation

    You can post now and register later. If you have an account, sign in now to post with your account.

    Guest
    Reply to this topic...
    Go to topic listing