Herkesin başına gelmiştir Bilgisyarınızda çok sevdiğiniz bir müziği sesini sonuna kadar açıp dinlemiş ve o şekilde bilgisyarı kapatmışsınızdır sonrada varsayalım dışarıya çıktınız eve gece yarısı döndüğünüzde
1. Otomatik ses ayarı için NirCmd yazılımını veya hemen hemen aynı işi yapan SoundVolumeView yazılımlarından birini indirmemiz gerek (Konumuz Nircmd olduğundan onu kullanacağım)
2. NirCmd yi herhangi bir dizine veya klasör içerisine çıkartalım mesela (D:\Nircmd), bu exe dosyası arayüzü olmayan ve belirli komutlarla kullanılabilen bir araçtır mesela açılışta Hoparlör ses seviyemizin %50 olmasını istiyorsak aşağıdaki komutu bat dosyası içerisinde kullanabiliriz.
@Echo Off D:\nircmd.exe setsysvolume 32768 Exit
Elbette siz "D:\" yerine NirCmd nin bulunduğu dizin veya klasör yolunu belirtmelisiniz, ben NirCmd yi direkt D dizinime attığım için kodları üstteki şekilde kullandım. Peki sesin %100 açık olduğu değer nedir derseniz : "65535" değeridir , değeri "0" yaparsak sesi kapatır yani sessize alır , bazılarınız sağ hoparlör ayrı ses seviyesinde olsun soldaki ayrı olsun şeklinde bir istekte bulunabilir bu durumda aşağıdaki kod işinizi görecektir
@Echo off nircmd.exe setvolume 0 32768 32768 Exit
NirCmd nin web sayfasından kodların ayrıntıları hakkında bilgi edinebilirisniz , üstteki kodları not defterine yapıştırıp mesela ses.bat şeklinde kaydedelim.
3. KLavyemizdeki Windows ve R tuşlarına birlikte basalım ve açılan ekrana aşağıdaki komutu yazıp tamam diyelim
shell:startup
Böylece başlangıç klasörünü açmış olduk üstte oluşturduğumuz ses.bat dosyasını bunun içerisine atalım
Artık windowsu her açtığınızda bu ses.bat dosyası devreye girecek ve ses seviyenizi otomatik olarak %50 seviyesine getirecektir , elbette üstteki anlatım ses seviyesini ayarlamanın en kolay yoluydu ses.bat dosyasını zamanlanmış görevlerle de otomatik çalışacak çekilde ayarlayabilirdik diğer otomatik başlatma yöntemleri için bakınız
Evet bu yapılabilir diye tahmin ediyorum , ama deneme yapmak gerek
Peki hocam vbs ile inputbox a gireceğimiz 0-65535 arası düzeyde ses ayarı yapabilir miyiz? Dediğim gibi aşağıdaki script ile denedim ama olmuyor.
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
sees = InputBox ("Ses Degeri girin 0- 65535 Arasi")
oShell.run "D:\nircmd.exe setsysvolume" & sees , 0 , True
Set oShell = Nothing