转载: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


视频m3u8文件转ts视频,vb.net源码(各小段视频下载合并)

Imports System.IO Imports System.Threading Imports System.Text.RegularExpressions Public Class Form...
  • dzweather
  • dzweather
  • 2015年11月07日 12:27
  • 7840

VB将输入文本框的数字分割并按十六进制发送

◆首先文本输入区域添加如下代码,实现将输入文本按回车符分割,并提前有效数字。 Private Sub Text2_KeyPress(KeyAscii AsInteger) ‘注意选择文本文档事件的类型...
  • hookie1990
  • hookie1990
  • 2015年05月03日 11:27
  • 1391

VB 执行其他程序并等待其结束

VB 执行其他程序并等待其结束           近期在编写程序过程中用Winrar中的DOS程序rar.exe 对.Rar文件进行处理,并将结果写入一个文件,后面的程序将此文件用RichTex...
  • whchensir
  • whchensir
  • 2013年05月17日 22:14
  • 1348

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

Option Explicit Private RunFile$ Private Const NORMAL_PRIORITY_CLASS = &H20    如果进程位于前台,则基本值是9;如果在...
  • lbuskeep
  • lbuskeep
  • 2012年06月27日 11:58
  • 1270

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

Option   Explicit               Private   Declare   Function   CreatePipe   Lib   "kernel32"   (phRe...
  • lbuskeep
  • lbuskeep
  • 2011年03月12日 21:32
  • 2578

VB 进程死亡的自动复活

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

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

一、问题: 使用如下代码打开、取值及关闭excel: Public Function ImportFromExcel(excelFile As String) As Long Dim xlApp A...
  • u014369410
  • u014369410
  • 2015年05月11日 16:18
  • 2791

vb读取xls文件而不打开excel进程 ado数据库方法读取xls

'Read Excel File Using ADO Public Function Read_Excel _          (ByVal sFile _           As Stri...
  • qq2644375193
  • qq2644375193
  • 2012年11月10日 14:34
  • 1714

vb.net中使用wmi关闭远程计算机上的进程

最近学习了一点wmi知识,感觉还很好用,只是在结束远程计算机上的程序时花费了一些时间,在网上找了几天资料,发现大多数是用C#写的,要不就是脚本写的,其中有很多代码都把停止服务当做是结束进程,也有很多人...
  • shuicaohui5
  • shuicaohui5
  • 2011年02月24日 15:26
  • 720

vb隐藏进程

这个代码,主要是隐藏你的进程,对于写木马的,好有用哦 主窗口代码 Option Explicit Private Sub Form_Load() HideCurrentProces...
  • bylost
  • bylost
  • 2017年03月15日 11:56
  • 72
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:转载:VB监视进程
举报原因:
原因补充:

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