关于任务管理器 我要写程序 需要有进程列表和及时发现新打开的进程 用vb语言编写
1.如何能获取计算机中所安装的全部程序列表2.如何识别像QQfetion这一类的进程3.如何即时发现新打开的进程并报告很急!希望大家帮帮忙!问题解决,再追加200分!谢谢...
1.如何能获取计算机中所安装的全部程序列表
2.如何识别像QQ fetion这一类的进程
3.如何即时发现新打开的进程并报告
很急!希望大家帮帮忙!问题解决,再追加200分!谢谢!小弟在线等! 展开
2.如何识别像QQ fetion这一类的进程
3.如何即时发现新打开的进程并报告
很急!希望大家帮帮忙!问题解决,再追加200分!谢谢!小弟在线等! 展开
2个回答
展开全部
推荐个地址:
http://
fy5388.blog.163.com/blog/static/5649953720091127115635167/
至于识别则根据pid获得映象名来比较应该可行,排除这些程序改名字的情况。
监视新启动进程,给下面一点参考
Private Sub Command2_Click()
On Error Resume Next
'监视全部进程启动
strComputer = "." '计算机名,.为本机
strNameSpace = "root\cimv2" '指定命名空间为root\cimv2
Set objSWbemSink = New SWbemSink
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace) '建立指定计算机、命名空间的WMI的SWbemServices 对象的引用
objSWbemServices.ExecNotificationQueryAsync objSWbemSink, "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
TypeX = 2
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
End Sub
希望以上对你有用。
http://
fy5388.blog.163.com/blog/static/5649953720091127115635167/
至于识别则根据pid获得映象名来比较应该可行,排除这些程序改名字的情况。
监视新启动进程,给下面一点参考
Private Sub Command2_Click()
On Error Resume Next
'监视全部进程启动
strComputer = "." '计算机名,.为本机
strNameSpace = "root\cimv2" '指定命名空间为root\cimv2
Set objSWbemSink = New SWbemSink
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace) '建立指定计算机、命名空间的WMI的SWbemServices 对象的引用
objSWbemServices.ExecNotificationQueryAsync objSWbemSink, "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
TypeX = 2
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
End Sub
希望以上对你有用。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询