makro ile görev yöneticisinden prog.sonlandırma

[turk4545]

herkese mrb.başlıkdada yazdığım gibi görev yöneticisindeki iexplore.exe yi sonlandırmak istiyorum.makro ile mümkünmüdür.araştırma yaptım bir sonuca varamadım..

 

[turk4545]

sanırım bi çozüm yolu yok.aslında forumda exceli görev yöneticisinden kapatan makroyu buldum ancan iexplore.exe ye uygulayamadım..


http://www.excel.web.tr/showthread.php?t=71153&highlight=g%F6rev+y%F6neticisi

 

[Zeki Gürsoy]

Merhaba,

Neyi amaçladığınızı belirtseniz belki daha uygun çözüm bulunabilir. Komut satırlarından "taskkill" isteğinizi karşılar. Bunun yanında belirli bir pencereyi kapatabilmeniz mümkün.

Aşağıdaki kodu amacınıza göre düzenleyin.

Sub IE_Pencereleri()
Dim Shel As Object, w As Object, x As String
Set Shel = CreateObject("Shell.Application")

    For Each w In Shel.Windows
        [COLOR=DarkGreen]'IE uyg. ise,[/COLOR]
        If TypeName(w.Document) = "HTMLDocument" Then
            x = "Pencere Başlığı  = " & w.LocationName & Chr(13) & Chr(13)
            x = x & "Gezinti Adresi    = " & w.LocationURL
            MsgBox x
            w.Quit
        Else [COLOR=DarkGreen]'Windows gezgini ise[/COLOR]
            w.Quit
        End If
    Next

Set Shel = Nothing
End Sub

 

[turk4545]

sayın hocam elinize sağlık..görev yöneticisinden iexplore.exe yi kapatmak mümkünmüdür.

 

[turk4545]

aradığım sorunun cevabını

http://www.neowin.net/forum/topic/469576-end-task-explorerexe/

da buldum..



Sub kapat()
On Error Resume Next
For Each Process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='iexplore.exe'")
Process.Terminate (0)
Next
End Sub