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ştirlebilir 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ı uygulatmak

Ö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 , msela 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 edrsek 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şlemlein 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 indirebilirisiniz

Download



7 Yorum Var

Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA