Vez ou outra listamos todos os programas que estão sendo executados em nossa máquina.
Podemos disponibilizar tais informações aos usuários da nossa aplicação através da funcionalidade
abaixo, podemos saber todos os processo que estão rodando na máquina.
Function LoadInProcess()
Dim colProcessList
Dim objProcess
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process")
ListProcessNow.clear
For Each objProcess In colProcessList
ListProcessNow.additem objProcess.Name
Next
Set colProcessList = Nothing
Se você quiser detalhes sobre um proceso específico, poderá filtrá-los por processo.
Por exemplo, se desejar analisar ou finalisar o Iexplore.exe rodando na sua máquina, poderá tentar o código abaixo:
Let strProcess = "Iexplore.exe"
Dim colProcessList
Dim objProcess
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process where name = '" & strProcess & "'")
For Each objProcess In colProcessList
objProcess.Terminate
Next
Set colProcessList = Nothing
Queira aprofundar o seu conhecimento no link abaixo, afinal, foram eles que criaram o que podemos explorar hoje...
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_reference.asp
André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com
Nenhum comentário:
Postar um comentário