转载:VB监视进程

转载 2013年12月05日 21:38:24

从百度知道看的,VB监视进程:


让VB程序监视进程中的名称“Windows 任务管理器”,和“AAA”两个进程的进程名,
而且进行操作:如果“Windows 任务管理器”被关闭时则自动关闭“进程某某”程序!


可以用一个 Timer 定时执行下面的代码

Dim Handle As Long
Handle = FindWindow(vbnullstring,"Windows 任务管理器")


Dim Handle2 as long
Handle2 = FindWindow(vbnullstring,"进程某某")
if not (Handle) then
   SendMessage Handle2,WM_CLOSE,0,0


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long



Private Sub Timer1_Timer()

Dim Handle As Long
Dim handle2 As Long
Dim ProHandle As Long
Dim ProcessHandle As Long


Handle = FindWindow(vbNullString, "Windows 任务管理器")


If Handle = 0 Then


    handle2 = FindWindow(vbNullString, "进程某某")
    
    GetWindowThreadProcessId handle2, ProHandle
    
    ProcessHandle = OpenProcess(1, 0, ProHandle)
    
    TerminateProcess ProcessHandle, 0
    
End If
End Sub


举报

相关文章推荐

VB 进程死亡的自动复活

原文地址  http://yulv.net/archives/10/  前两天看了Delphi版面精华区中的《进程死亡的自动复活》一文,觉得作者的思路很不错,利用api来监视进程的活动,当被销毁时就自...

vb 利用管道使进程间互相通信

Option   Explicit               Private   Declare   Function...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

vb 已经关闭进程的自动开启

Option Explicit Private RunFile$ Private Const NORMAL_PRIORITY_CLASS = &H20    如果进程位于前台,则基本值是9;如果在...

vb隐藏进程

这个代码,主要是隐藏你的进程,对于写木马的,好有用哦 主窗口代码 Option Explicit Private Sub Form_Load() HideCurrentProces...

VB模拟进程管理器

VB模拟进程管理器:'---------------------------------- Option Explicit '获得进程的句柄 Private Declare Fu...

VB之操作excel后不能关闭excel进程的原因及解决方法

一、问题: 使用如下代码打开、取值及关闭excel: Public Function ImportFromExcel(excelFile As String) As Long Dim xlApp A...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)