Vbs de iptal butonu çalışmıyor sorunu ve çözümü


Vbs de iptal butonu çalışmıyor
Visual basic script dili Microsoft tarafından 1996 yılında hizmete sunulduğunda bünyesinde JScript i de kapsıyordu ve sadece web geliştiricileri hedeflenmişti sadece 2 yıl gibi kısa bir sürede v1.0 dan v2.0 a yükseldi


ve Bu süre zarfında 1980'lerin başında geliştirilen .bat dilinden daha güçlü bir otomasyon aracı isteyen Windows sistem yöneticilerinin desteğini aldı .NET framework'ün ortaya çıkmasıyla Vbs geliştirme ekibi bu dili web geliştiricileri için ASP.NET içerisinde geliştirmeye karar verdiler bu nedenledirki VBScript motorunun hiçbir yeni sürümü geliştirilmedi fakat hata düzeltmeleri ve güvenlik açıkları fixlenmeye devam etti Microsoft sistem yöneticilerine POwershell e geçmelerini önermektedir.
Eğer işlerinizi otomatikleştirmek için vbs dilini kullanıyor veya yeni öğreniyorsanız kullanıcının İptal butonuna bastığında eğerki kontrol kodları koymadıysanız scriptin sanki tamam butonuna basılmış gibi davrandığını farketmişsinizdir durumu daha iyi anlamak için bir örnek üzerinden gidecek olursak

xyz = InputBox("Lütfen İsminizi yazınız","www.sordum.net")
wscript.echo "Hoşgeldin - "&  xyz

Üstteki kodlar bize ismimizi soran bir arayüz oluşturmaktadır , eğer ismimizi yazıp tamam dersem Hoşgeldin "ismimiz" şeklinde bir mesaj oluşturmaktadır

vbs iptal hatası örnek

gel gelelim eğer iptal butonuna basarsak yine hoşgeldin mesajı çıkartmakta ve fakat herhangi bir isim girişi yapılmadığı için garip bir durum ortaya çıkmaktadır.

vbs iptal hatası

Bu hata mesela silme kodları vs. kullandıysak ciddi sonuçlara yolaçabileceğinden mutlaka kontrol kodları kullanmamız gerekmektedir öncelikle her bir durumu tespit edelim olası durumlar 3 tanedir :

1. Kullanıcı ismini yazar ve tamam der - Sorun yok
2. Kullanıcı simini yazmaz boş iken Tamam der - Kontrol kodu gerekli
3. Kullanıcı İptal butonuna basar - Kontrol kodu gerekli

xyz = InputBox("lütfen İsminizi yazınız","www.sordum.net")
 If IsEmpty(xyz) Then
     MsgBox "İptal butonuna tıkladınız"
 ElseIf Len(xyz) = 0 Then
     MsgBox "Kutuyu boş bıraktınız"
 Else
     MsgBox xyz
 End If

Üstteki kodlar kullanıldığında kullanıcı her neyaparsa yapsın tespit edip ekrana yansıtıyoruz ,elbetteki MsgBox yerine yaptırmak istediğimiz eylemin kodlarını girerek kodu istediğimiz şekilde editleyebiliriz mesela
MsgBox "İptal butonuna tıkladınız" yerine WScript.Quit kodunu girerek İptal butonuna tıklandığında scriptin kapanmasını sağlayabiliriz ki İptal butonu da zaten bu işe yaramaktadır. Üstte verdiğimiz tüm kodların hazır hallerini aşağıdaki indirme linkinden edinebilirsiniz.

Download


4 Yorum Var
  1. Avatar for ömer taha (Saygıyla)
  2. Avatar for ömer taha (Saygıyla)
  3. Avatar for Velociraptor
  4. Avatar for Necdet Karakuş

Yorum Ekle

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

Captcha