Vbs de klavye tuş kombinasyonları


Vbs de klavye tuş kombinasyonları
Visual Basic Script (VBScript) dilinde klavye tuş kombinasyonlarını uygulatmak mümkündür böylece mesela sanki bir klavye kısayoluna basılmış gibi o eylem gerçekleştirilebilir bu da bize klavye tuşlarına


gerçekte basmadan aynı işlemi yapma kolaylığı sağlar elbette Microsoft güvenlik amacıyla Ctrl + Alt +Del kullanımını kısıtlamıştır ve normalde tepki vermez , Klavye tuşlarını simule etmek için kullanılan yöntem SendKeys yöntemidir

Vbs de SendKeys metodu ile klavye tuş komutlarını uygulatın

Öncelikle kullanıma sunulmuş olan Klavye tuş kombinasyonlarını ve bunların vbs deki karşılıklarını bir liste halinde görelim.

vbs sendkey tablosu

Peki belirli karakter kombinasyonlarını kullanmak istersek mesela , Crlt , Alt ... gibi ? işte tablomuz.

belirli karakterler

Vbs de bunların kullanım örneklerini verecek olursak , mesela Windowsta görev yöneticisini açmak için Klavyedeki Ctrl + Shift + Esc tuşlarına birlikte basmamız gerekir yukarıdaki tabloda bunların komut karşılıklarını bulup kod içinde kullanırsak aşağıdaki gibi bir script elde etmiş oluruz.

set shell = CreateObject("Wscript.Shell") 
shell.SendKeys "^+{ESC}"

Görüldüğü gibi Ctrl + Shift + Esc = ^+{ESC} şeklinde komutta kullanıldı , üstteki scripti not defterine yapıştırıp bir isim verip uzantısı da vbs olacak şekilde kaydedip çalıştırırsak Görev yöneticisini açacaktır. Bilmem dikkatinizi çektimi ama Tabloda Windows tuşu yok , bunu açtırmak için şöyle bir kombinasyondan faydalanacağız eğer klavyedeki Ctrl + Esc (Crtl ve ESC) tuşlarına aynı anda basarsak Windows tuşuna basmış olacağımızdan tablodan bunların değerlerini kombine edersek aşağıdaki gibi bir script oluşacaktır

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}"

Uygulandığında Windows tuşuna basılmış etkisi yapar ve başlatı çalıştırır , son bir örnek yapıp gerisini sizlein hayal gücüne bırakalım , bu örneğimizde Not defterini açalım , selam millet ve altında da Sordum.net yazıp farklı kaydet penceresini açtırtalım.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad.exe", 9

WScript.Sleep 1500 

WshShell.SendKeys "Selam Millet!"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "Sordum.net"
WshShell.SendKeys "^s"

Sizde çok kullandığınız tuş kombinasyonlarını script haline getirip ister açılışta ister kapanışta çalışacak şekilde ayarlayabilirsiniz , belirli işlemlerin otomatikleştirilmesinde faydalı olacağına inanıyoruz. windows klavye kısayolları için bakınız , Aşağıdaki linkten üstteki örnekleri ve birkaç ekstra kullanım örneğini de içeren scriptleri indirebilirsiniz.

26 Şubat 2016 Tarihli başlık güncellendi


19 Yorum Var
  1. Avatar for Akhan
  2. Avatar for Velociraptor
  3. Avatar for Mehmet
  4. Avatar for Velociraptor
  5. Avatar for Mehmet
  6. Avatar for Velociraptor
  7. Avatar for Mert
  8. Avatar for Velociraptor
  9. Avatar for musdyergn
  10. Avatar for ßy W!p3X
  11. Avatar for velociraptor
  12. Avatar for maskem

Yorum Ekle

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha