.vbs ile birden çok programı sonlandıralım


vbs ile birden çok programı sonlandıralım

Bazen öylesi durumlar olurki bir tıkla birden fazla programı kapatmanız icabeder , elbetteki bunu yapmanın en kolay yolu bu işi yapacak bir script veya programdır , ben genelde ihtiyaçlarım

doğrultusunda script kullanmayı tercih ediyorum , işte aşağıdaki .vbs script kendisine ekleyeceğiniz ekstra satırlar ile , biden fazla programı bir tık ile kapatma işini oldukça güzel şekilde yerine getiriyor , bu script çeşitli durumlarda işimize yarayacaktır , mesela benim işime şu şekilde yaradı ; nadir bulunan bir oyun buldum gel gelelim kapatma fonksiyonu yoktu , Oyunu açıp oynuyorsunuz fakat her nedense kapanmıyor , mecburan kapatmak için bir yol bulmam gerekiyordu bende aşağıdaki kodu kullanmıştım , aşağıdaki kodu örnek olsun diye notepad ve hesapmakinasını kapatacak şekilde düzenledim

Dim myPC, kill1, kill2
myPC = "."
kill1 = "'calc.exe'"
kill2 = "'notepad.exe'"

kill(kill1)
kill(kill2)

sub Kill(stuff)
  Set z = GetObject("winmgmts:\\" & myPC & "\root\cimv2")
  Set x = z.ExecQuery("Select * from Win32_Process Where Name = " & stuff )
  For Each y in x
    y.Terminate()
  Next
end sub

Kapatmak istenen programlar kolayca ilave edilebiliyor , mesela aşağıdaki kod ile , hesap makinası , Notepad ve Chrome yi bir tıkla kapatıyorum

Dim myPC, kill1, kill2 , Kill3
myPC = "."
kill1 = "'calc.exe'"
kill2 = "'notepad.exe'"
kill3 = "'chrome.exe'"

kill(kill1)
kill(kill2)
kill(kill3)

sub Kill(stuff)
  Set z = GetObject("winmgmts:\\" & myPC & "\root\cimv2")
  Set x = z.ExecQuery("Select * from Win32_Process Where Name = " & stuff )
  For Each y in x
    y.Terminate()
  Next
end sub 

Farkedeceğiniz üzere sadece Kill3 ilaveleri ve Kill3 ün durduracağı program .exe sini eklemişim daha fazla program ilave etmek istesem sayısına göre Kill4 , Kill5 … diye gidecekti , kodları bir notepad e yapıştırıp Dosya – Farklı Kaydet… seçeneğine tıklayın

farkli_kaydet

Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın

farkli_kaydet2

Lütfen kaynak göstermeden başka yerrde yayımlamayınız



Yorum Ekle

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

CAPTCHA