注册 登录
编程论坛 VB6论坛

vb 如何循环检测进程

Heykuz 发布于 2014-06-09 20:54, 577 次点击
最好是简单一点的代码,越简单越好,循环执行。VB监控进程:
Private Sub Form_Load()
If exitproc("QQ.exe") = True Then       '假如QQ..exe存在
返回上面,重新开始检测。

Else     '假如不存在(直至到不存在),则执行下面代码
Call Shell("notepad.exe", 1)        '启动记事本
End If
End Sub
1 回复
#2
风吹过b2014-06-10 10:58
我知道的有三种方法。
1、API
'取进程映像
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
'取首进程
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
'取下一个进程
Private Declare Function Process32Next Lib "kernel32" (ByVal hSapshot As Long, lppe As PROCESSENTRY32) As Long

三个API ,然后搜索。具体代码你自己百度。


2、查询。代码丢了,关键命令忘了。
WINDOWS内部有一个数据表,这个表会记录系统的很多东西,包括当前进程,直接查询就是了。

3、使用 DOS 命令 tasklist 命令 + 管道进行查询。

------------
1 是王道。建议使用。
2 是............  。
3 是剑走偏锋,力求不使用API 去完成。
1