Vbs popup penceresi herzaman en üstte kalsın


Vbs popup penceresi herzaman en üstte kalsın
Script dili olarak Vbs yi tercih ediyorum ve bunun kendimce birçok sebebi bulunuyor. başlıcalarını sayacak olursam öncelikle kodlama Visual basic programlama dili ile hemen hemen aynıdır zaten Visual basic

dediğimiz dil ise Basic programlama dilinin geliştirilmiş halidir. Bat scriptlerinden çok daha profesyonel diyalog kutusu imkanı sunar, Powershell den çok daha hızlıdır , Hibrit kodlamaya imkan sunar yani Vbs kodlamasının içerisinde bat veya Powershell kodlarını çalıştırabilirsiniz. Vbs de Popup penceresi açtırmak son derece kolaydır gel gelelim eğer aynı anda farklı bir pencere daha açılacaksa Vbs popup penceresi diğer pencere tarafından gizlenebilir. Konuyu bir örnekle açıklayacak olursak.

Vbs de basit bir popup penceresi

Aşağıdaki kodlar kullanıldığında Merhaba dünya yazan bir popup penceresi açılacaktır.

WScript.CreateObject("WScript.Shell").Popup "Merahaba Dünya", 0, "www.sordum.net"

Tek pencere olduğu için sorun çıkarma olasılığı hemen hemen hiç yok

Vbs de merhaba dünya

Gel gelelim kodları mesela bir popup ve birde Dosya gezgini açılacak şekilde düzenlersek aşağıdaki şekli alacaktır.

Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("shell:mycomputerfolder")
Set objShell = Nothing
WScript.CreateObject("WScript.Shell").Popup "Dosya gezgini açıldı", 0, "www.sordum.net"

Üstteki kodlarda sıkıntı başladı çünkü Dosya gezgininde bu bilgisayar kısmını açtıktan sonra Popup mesajı gelmeli ve ardından "Dosya gezgini açıldı" mesajını vermeliyiz. lakin kodlar bu hali ile çalıştırıldığında Dosya gezgininin açıldığını belirttiğimiz Popup penceresi gizlenmektedir (Popup penceresi arkada kalmaktadır).

Vbs de popup mesajı gizlendi

Çözüm olarak mesajın üste tutturulması (Topmost) gerekmektedir. peki ama sonradan gelen mesajın üstte kalmasını nasıl sağlayacağız ?

Vbs de popup mesajı herzaman en üstte kalsın

Popup mesajının en üstte kalması içn iki farklı yöntemi açıklamaya çalışacağım (farklı yöntemler varsa bile duymadım) bunlardan ilki vbSystemModal kullanmak diğeri ise kodların sonuna 4096 ilavesi yapmaktır.

1. Kodlara 4096 ilavesi
WScript.CreateObject("WScript.Shell").Popup "Dosya gezgini açıldı", 0, "www.sordum.net", 4096

2. vbSystemModal kullanımı
MsgBox "Dosya gezgini açıldı",0+ vbSystemModal, "www.sordum.net"

Üstteki yöntemlerde biri kullanıldığında Vbs ile oluşturduğumuz Popup mesajı herzaman en üstte kalmaktadır (Topmost)

Vbs de popup herzaman üstte

Aşağıdaki linkte üstteki örneklerin scriptleri yeralmaktadır buna göre ;

popup1.vbs : Normal bir popup penceresi
popup2.vbs : iki pencere açılmaktadır
popup3.vbs : 4096 kod ilavesi ile Popup penceresini üste tutturmak
popup4.vbs : vbSystemModal yöntemi ile Popup penceresini üste tutturmak

- vbs ile klasör gizleme , görünür yapma Burada

- Vbs de bir dosyanın varolup olmadığının kontrolü Burada

- Vbs ile bir registry anahtarını alt anahtarı ile silelim Burada

- Vbs Registry değerini düzgün okumuyor Burada

- Vbs ile windows sürüm numarasını bulmak Burada


4 Yorum Var

Yorum Ekle

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

Captcha