Hallo,
ich möchte den Beep-Ton unter Win7 ausschalten.
Ich habe es mit
RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'no')
[/autoit]
versucht, aber es klappt nicht. Hier mein Code:
Spoiler anzeigen
#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)
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
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
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
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