title image


Smiley Du könntest die laufenden Prozesse auswerten...
Z. B. mittels WMI. Da ich keine Ahnung habe, wie der passende Prozess heißt, musst du natürlich anpassen:



Option Explicit





Private Sub Command1_Click()



Dim strComputer As String

Dim objWMIService As Object

Dim colProcesses As Object

Dim objProcess As Object

Dim McAffee As String

Dim blMcAffee As Boolean



McAffee="mcaffee.exe" 'Keine Ahnung, benutze so etwas nicht!



strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")



Set colProcesses = objWMIService.ExecQuery( _

"select * from win32_process")



For Each objProcess In colProcesses



If McAffee=objProcess.Caption Then

blMcAffee=True

End if



MsgBox "McAffee ist gestartet: " & blMcAffee



Next



End Sub

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: