Beep-Ton ausschalten unter Windows7

    Hallo,

    ich möchte den Beep-Ton unter Win7 ausschalten.
    Ich habe es mit

    [autoit]

    RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'no')

    [/autoit]


    versucht, aber es klappt nicht. Hier mein Code:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $an = RegRead('HKCU\Control Panel\Sound', 'Beep')

    [/autoit] [autoit][/autoit] [autoit]

    $gui = GUICreate("Beep-Ton",200,100)
    $bt_an = GUICtrlCreateButton("Beep aktivieren",10,20)
    $bt_aus = GUICtrlCreateButton("Beep deaktivieren",100,20)
    $bt_test = GUICtrlCreateButton("Test",85,60,30)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $gui_event_close
    Exit
    Case $bt_an
    _aktivieren()
    Case $bt_aus
    _deaktivieren()
    Case $bt_test
    Beep()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _aktivieren()
    if $an = "no" Then
    RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'yes')
    $an = RegRead('HKCU\Control Panel\Sound', 'Beep')
    if $an = "no" Then
    MsgBox(16,"Error!","Der Beep-Ton konnte nicht aktiviert werden!")
    Else
    MsgBox(0,"Erfolgreich aktiviert","Der Beep-Ton wurde aktiviert")
    EndIf
    Else
    MsgBox(48,"Achtung!","Der Beep-Ton ist schon aktiviert!")
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _deaktivieren()
    if $an = "yes" Then
    RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'no')
    $an = RegRead('HKCU\Control Panel\Sound', 'Beep')
    if $an = "yes" Then
    MsgBox(16,"Error!","Der Beep-Ton konnte nicht deaktiviert werden!")
    Else
    MsgBox(0,"Erfolgreich aktiviert","Der Beep-Ton wurde deaktiviert")
    EndIf
    Else
    MsgBox(48,"Achtung!","Der Beep-Ton ist schon deaktiviert!")
    EndIf
    EndFunc

    [/autoit]


    Wenn ich auf "deaktivieren" klicke, kommt die Meldung, dass der Beep-Ton deaktiviert ist, doch wenn ich auf "Test" klicke, höre ich ihn trotzdem.

    Hat jemand eine Idee?

    Danke im Voraus

    Danke für die schnellen Antworten!

    Ich habe das Script mit Admin-Rechten ausgeführt und den Computer neu gestartet, aber es hat nichts geändert.

    Woran könnte es noch liegen?

    Hast du mal im Microsoft Registry Editor nachgeschaut ob sich etwas im Schlüssel geändert hat oder ob alles gleich geblieben ist? Dann würden wir sehen obs an autoit liegt oder ob man vllt. noch etwas anderes ändern muss.

    Danke für die Antwort

    Die Registry "HKCU\Control Panel\Sound\Beep" gibt es noch.
    Sie hat den Wert "no", doch trotzdem sind die Beep-Töne noch zu hören.

    Im selben Ordner ist auch noch die Registry "Extended", sie hat ebenfalls den Wert "no".

    Demnach funktioniert mein Script, aber wiso kann man den Beep-Ton noch hören?

    Hi,

    Zitat

    nein ich glaub es muss no heißen, weil es heißt ja auch nicht True sondern "yes".


    Zumindest funktioniert nicht mit "false"

    Hi,

    muss ich alle Sound-Dateien in diesem Ordner austauschen oder nur eine bestimmte?


    Welche RKeys gibt es noch? Es war der erste den ich gefunden habe und wenn ich die Suche benutze kommt irgendwann die Meldung das die Suche abgeschlossen ist, aber es werden keine Ergebnisse angezeigt.

    Hallo,

    Gibt es noch eine andere Möglichkeit (ohne RegWrite und ohne die Sound-Dateien zu verschieben), die Beep-Töne zu deaktivieren?