vbs de işlemden önce onay penceresi


vbs de işlemden önce onay

Geçenlerde sayfamıza yorum yazan bir arkadaş , vbs ile aynı anda birden fazla işlemi ve/veya programı sonlandırmak istediğini ama sonlandırmadan önce bir onay ekranı ile eylemi gerçekleştirme veya vazgeçme

opsiyonu sunulmasını istemişti , elbette sitemizde bu konu ile ilgili önceden bir paylaşım bulunduğundan linkini verdim Burada fakat işlemden önce onay konusu aslında herzaman gerekli olabilecek bir özellik olduğundan basit birkaç kod ile nasılı konusunda birşeyler yazmayı da gerekli gördüm.

Önceki verdiğimiz örnek üzerinden gidelim (yani bir tıkla not defteri ve Hesap makinasını kapatalım) önceden vbs de mesaj kutuları konusunda bazı örenkler paylaşmıştık Burada bunları kullanıp üstte verdiğimiz kapatma kodlarını bunlarla birleştireceğiz

1. Hayır butonuna basıldığında “İşlem ipat edildi” desin

' www.sodum.net - Velociraptor (23.03.2016)
result = MsgBox ("Programlar sonlandırılacak ?", vbYesNo, "Sordum.net")

Select Case result
Case vbYes
'Buraya sonlandırma kodları gelecek
Case vbNo
    MsgBox("İşlem iptal edildi")
End Select

Üstteki kodlarda “Buraya sonlandırma kodları gelecek” kısmına – vbs ile birden çok programı sonlandıralım başlığımızdaki kodları birebir kopyalayalım

program sonlandır

2. Hayır butonuna basıldığında işlem iptal edildi uyarısı çıkmasın (Aynı işi yapan benzeri kodlar)

' www.sodum.net - Velociraptor (23.03.2016)
Set WshShell = CreateObject("WScript.Shell")
x = WshShell.Popup("Her iki programı da kapatmak istiyormusuz ?",5,"Sordum.net",4)
If x = vbNo Then Wscript.Quit(0)
If x = VbYes Then
'Buraya sonlandırma kodları gelecek
End If

Üstteki kodlar kulanıldığında ise aşağıdaki gibi bir sonlandırma uyarı ekranı gelmeyecektir

islem iptal onayı

Elbette her iki kodlamanında iptal onaylı ve iptal onaysız hallerini aşağıdaki linkte sunduk , ilaveten “Buraya sonlandırma kodları gelecek” kısmına da gerekli kodları ilave ettik. genelde ben sonlandırma onay kodunu kullanmamayı tercih ediyorum indirdiğiniz dosya ; Not defteri ve hesap makinası nı sonlandırmaktadır kodda kill1 = “‘calc.exe'” ve hemen altında yeralan kill2 = “‘notepad.exe'” kısımlarını editleyip kendi sonlandırmak istediğiniz program isimlerini yazabilirsiniz.

Downlaod



Yorum Ekle

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

CAPTCHA