Çalışan programları listelemek

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
436
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Görev yöneticisinde Uygulamalar bölümünde görünen (çalışan) programları/dosyaları nasıl listeleyebiliriz. Bu sitede araştırma yaptım. aşağıdaki koddan yararlanmaya çalıştım ama yapamadım. yardımlarınızı bekliyorum. (listelemek olmayabilir. Uygulama çalışıyor, Yada kapalı mesaj vermesi yeterli)

Kod:
Sub word_kapat()
On Error Resume Next
Set wrd = GetObject(, "word.Application")
If Err.Number <> 0 Then
MsgBox "Dosya kapalı.", vbInformation
Else:
MsgBox "Açık"
End If
End Sub
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
C#:
Sub Test()
'   Haluk - 16/10/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim strComputer As String, objWMI As Object
    Dim objItem As Object, colItems As Variant, i As Integer
    
    Range("A1:B" & Rows.Count) = ""
    
    Range("A1:B1") = Array("Process ID", "Program")
    strComputer = "."

    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_Process", , 48)

    i = 2
    For Each objItem In colItems
         ActiveSheet.Cells(i, 1).Value = objItem.ProcessId
         ActiveSheet.Cells(i, 2).Value = objItem.Name
         i = i + 1
    Next
End Sub
.
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
436
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Teşekkür ederim
 
Üst