Sistem bip (beep) seslerini iptal edin

Sistem bip (beep) seslerini iptal edin
Bildiğiniz gibi Bilgisayarlarda dahili Hoparlör genellikle bilgisayarın ses sistemine de bağlandığından harici bir hoparlör olmasa bile bilgisayar beep seslerini çıkartabilir elbetteki bunun yapılma amacı

eski bilgisayarların genellikle Hoparlörsüz satılması ve bir sistem veya donanım hatası olduğunda bilgisayarın kullanıcıyı uyarmak için beep sesi çıkartmasıdır. Beep seslerinin tam olarak ne anlama geldiği BIOS çeşidine göre farklılık gösterebilir.Bip sesleri ve anlamları konusunda genel bir bilgi olması açısından aşağıdaki tablo örnek olarak verilmiştir.

Beep Kodlarının anlamları

Windows sürümlerine dahil edilmeye devam edilen bu tek mono Beep seslerine artık ihtiyaç duyulmamaktadır eğer bu sesler sizi rahatsız ediyor ve kapatmak istiyorsanız Burada vermiş olduğumuz Beep tonlarını kapatma registry kaydını Vbs şeklinde kodlayıp kullanabilirsiniz. Bip sesleri registryde aşağıdaki anahtarda yeralan Beep REG_SZ değerinde yazan Yes ile Açık, No ile Kapalı konuma gelmektedir.

HKEY_CURRENT_USER\Control Panel\Sound

Registryde Bip tonlarından sorumlu iki anahtar vardır.

Bilgisayar bip tonlarının regstrydeki yeri
Aşağıdaki Vbscript sadece Beep yazan REG_SZ anahtarı içerisine NO yazmaktadır.

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 = "Bip sesleri devre dışı bırakıldı." & vbCR
Title = Title & "Kullanıcı çıkışı/Girişi Yapmanız gerekebilir" & vbCR
MyBox = MsgBox(Title,4096,"www.sordum.net")

Eğer Registryde yeralan Hem Beep hemde ExtendedSounds REG_SZ Anahtar değerlerine NO yazdırmak istiyorsak bu durumda aşağıdaki gibi bir kodlama kullanabiliriz.

'www.sordum.net - 02.02.2021
Key1 = "HKEY_CURRENT_USER\Control Panel\Sound\Beep"
Key2 = "HKEY_CURRENT_USER\Control Panel\Sound\ExtendedSounds"
Set Sh = WScript.CreateObject("WScript.Shell")
St = Sh.RegRead(Key1)
If St = "Yes" Then
Sh.RegWrite Key1, "No", "REG_SZ"
Sh.RegWrite Key2, "No", "REG_SZ"
x=msgbox("Sistem Bip sesleri Kapatıldı" ,0, "www.sordum.net")
Else
Sh.RegWrite Key1, "Yes", "REG_SZ"
Sh.RegWrite Key2, "Yes", "REG_SZ"
x=msgbox("Sistem Bip sesleri Aktif edildi" ,0, "www.sordum.net")
End If

Key1 ve Key2 ile değiştireceğimiz registry anahtarlarını tanımladık ardından If St = "Yes" Then satırı ile Key1 anahtarını okuttuktan sonra eğer içerisinde Yes yazıyorsa NO , NO yazıyorsa Yes yazdırttık.

VBs ile sistem bip lerini kapat

Burada dikkat edilmesi gereken nokatalar ; REG_SZ mi yoksa REG_DWORD anahtarlarında mı işlem yapıldığı ve anahtara yazmak için Yönetici yetkisi gerekip gerekmediğidir. Örneğimizde Yönetici yetkisine gerek yoktur. Üstte verilen Vbscript kodlamasının hazır halini aşağıdaki indirme linkinde bulacaksınız.