Bilgisayar Ekranını TV'ye Yansıtma [.vbs + Kısayol]

Bilgisayar Ekranını TV'ye Yansıtma [.vbs + Kısayol]

Ekranı yansıtmak için ya sağ köşede yer alan bildirim çubuğundan veya da Klavyedeki (fn) + MM tuşlarından birisini kullanarak yaparız.Eğer sizde benim gibi sık kullanıyorsanız bu işlemi masaüstünüze kısayol olarak atayabilir veya bir tıkla çalışacak şekilde masaüstünüze bir komut dosyası atabilirsiniz.

Masaüstüne sağtıklayıp Yeni / Kısayol dedikten sonra Öğenin konumuna DisplaySwitch.exe yazıp ileri diyelim bir isim verip kaydedin.

 

Bu işlemde bilgisayar ekranınızı hariçi ekrana aktarmanız için açılan menü açılacaktır.Yani Yalnız 1. ekran , Çoğalt , Yalnız 2. ekran , Genişlet Seçenekleri çıkan menü çıkacaktır.

Bu durumda bu 4 farklı komutu ayrı ayrı veya isteğinize göre masaüstünüze kısayol yapabilirsiniz.Resimde gördüğünüz gibi DisplaySwitch.exe den sonra bir boşluk bırakıp

/external       ------> sadece 1. ekran

/external       ------> sadece 2. ekran

/extend         ------>genişletme (uzatma)

/clone           ------>Çoğaltma (çift ekran)

yazarak kaydederseniz uğraşmadan direk istediğiniz seçimi yapmış olursunuz.

Eğer yaptığımız kısayola simge atamak istersek,Yaptığımız kısayola sağ tıklayıp Özellikler / Simge Değiştir diyerek kısayol simgemizi değiştirebiliriz.

Bu komutları .vbs komutlarıyla da yapmak mümkündür.

Alttaki komutları bir not belgesine kaydedin ve belgenin .txt olan uzantısını .vbs olarak değiştirin,

 

Sadece 1. Ekran

Dim objShell

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("DisplaySwitch.exe /internal")

Set objShell = Nothing

 

Sadece 2. Ekran

Dim objShell

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("DisplaySwitch.exe /external")

Set objShell = Nothing

 

Ekran Çoğaltma [Çift Ekran]

Dim objShell

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("DisplaySwitch.exe /clone")

Set objShell = Nothing

 

Ekran Genişletme [Uzatma]

Dim objShell

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("DisplaySwitch.exe /extend")

Set objShell = Nothing

 

Kodların Hazır şeklini Buradan indirebilirsiniz

 

- Bu makale Farklı bir kaynaktan derlenmiştir. -