Vbs ile bir program kapatılabilir mi?

Yazılım Genel

Son Cevaplar gön: Ugur DEMIR 14 yıl önce

4 Yazılar

3 Üyeler

0 Likes

2,335 Görüntüleme

RSS

Ender AKAR

(@EnderAKAR)

Gönderiler: 115

Estimable Member

Konu başlatıcı

Vbs kodları ile bir çok işimi kolayca halledebiliyorum yine böyle istediğim bir programı kapatabilir miyim mesela notepad.exe programı çalışıyor işim bitti fakat bilgisayardaki yoğunluktan kapat kısmına gelemiyorum ve geriliyorum ozaman böyle bir vbs ihtiyacım olmuyor değil. Bu konuda yönlendirme yapabilecek arkadaşlara şimdiden teşekkürler.

Gönderildi : 01/08/2010 16:14

Ufuk TATLIDIL

(@ufuktatlidil)

Gönderiler: 5718

Illustrious Member

Merhaba ;

Burda ki sorun notepad.exe'yi mouse tıklayarak kapatmaya zamanınız olmadığımıdır?

Sorunuzun cevabı evetse vbs içinde aynı performansı göstermeyecek misiniz [:)]

İstediğiniz script ;

ProcessToKill = "notepad.exe"
Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
For Each Process in WMI
    If process.name = ProcessToKill Then
        Process.terminate
    End If
Next

Gönderildi : 02/08/2010 17:38

Ender AKAR

(@EnderAKAR)

Gönderiler: 115

Estimable Member

Konu başlatıcı

Verdiğiniz bilgi için teşekkür ederim.

Notepad bir örnek idi sadece 🙂 yoksa onu kapatmak dediğiniz gibi daha kolay

Gönderildi : 03/08/2010 14:24

Ugur DEMIR

(@ugurdemir)

Gönderiler: 9888

Illustrious Member

Merhaba,

Araştırmalarım sonucu bulduklarımı paylaşıyorum.

Sub Script_3
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "notepad.exe"
Msgbox "Did Notepad Open?"

End Sub

Sub Script_4
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "explorer.exe"
Msgbox "Did Windows Explorer Open?"
End Sub

Keyifli çalışmalar.

Gönderildi : 03/08/2010 14:28