vbs Kapatma

[askm]

Kolay gelsin.

linkinde bulunan vbs dosyasını çalıştırdığım zaman görev yöneticisinde Microsoft Windows Based Script Host adı ile açık kalıyor. Bunu makro ile kapatma imkanı var mıdır.

 

[metehan8001]

Linki incelemedim ama yazdığınız yoruma göre aşağıdaki kodu dener misiniz ?

Sub Exceldestek()
Dim Serv As Object
Dim ProXD As Variant
Dim xdPro As Object

Set Serv = GetObject("winmgmts:")
Set ProXD = Serv.ExecQuery("Select * from Win32_Process")

For Each xdPro In ProXD

    'Aşağıdaki satırda "EXCEL.EXE" yerine sonlandırılması gereken işlemi yazın'
    'Not: Büyük Küçük harf duyarlıdır. Msgbox xdPro.name yaparak adını öğrenebilirsiniz.'

    If xdPro.Name = "EXCEL.EXE" Then
      xdPro.Terminate  ''kill exe
    End If
Next
End Sub

 

[askm]

Malesef olmadı.
Aşağıdaki şekilde de denedim ama sonuç alamadım.

Sub Exceldestek()
Dim Serv As Object
Dim ProXD As Variant
Dim xdPro As Object

Set Serv = GetObject("winmgmts:")
Set ProXD = Serv.ExecQuery("Select * from Win32_Process")

For Each xdPro In ProXD

    'Aşağıdaki satırda "EXCEL.EXE" yerine sonlandırılması gereken işlemi yazın'
    'Not: Büyük Küçük harf duyarlıdır. Msgbox xdPro.name yaparak adını öğrenebilirsiniz.'

    If InStr(1, xdPro.Name, "Based") > 0 Then
        xdPro.Terminate  ''kill exe
    End If
Next
End Sub

 

[metehan8001]

Peki döngüde ismi çıkıyor mu ?

Sub Exceldestek()
Dim Serv As Object
Dim ProXD As Variant
Dim xdPro As Object

Set Serv = GetObject("winmgmts:")
Set ProXD = Serv.ExecQuery("Select * from Win32_Process")

For Each xdPro In ProXD
Msgbox xdPro.name
Next
End Sub

 

[askm]

Aşağıdaki şekilde oldu. Çok teşekkür ederim.

Sub Exceldestek()
Dim Serv As Object
Dim ProXD As Variant
Dim xdPro As Object

Set Serv = GetObject("winmgmts:")
Set ProXD = Serv.ExecQuery("Select * from Win32_Process")

For Each xdPro In ProXD

    'Aşağıdaki satırda "EXCEL.EXE" yerine sonlandırılması gereken işlemi yazın'
    'Not: Büyük Küçük harf duyarlıdır. Msgbox xdPro.name yaparak adını öğrenebilirsiniz.'
kelime = xdPro.Name
    If InStr(1, xdPro.Name, "wscript.exe") > 0 Then
        xdPro.Terminate  ''kill exe
    End If
Next
End Sub