`
toyota2006
  • 浏览: 551369 次
  • 性别: Icon_minigender_1
  • 来自: 石家庄
社区版块
存档分类
最新评论

vb检测某个进程是否运行

阅读更多
vb检测某个进程是否运行


在模块中加入如下代码:

Const TH32CS_SNAPHEAPLIST = &H1 
Const TH32CS_SNAPPROCESS = &H2 
Const TH32CS_SNAPTHREAD = &H4 
Const TH32CS_SNAPMODULE = &H8 
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) 
Const TH32CS_INHERIT = &H80000000 
Const MAX_PATH As Integer = 260 
Private Type PROCESSENTRY32 
dwSize As Long 
cntUsage As Long 
th32ProcessID As Long 
th32DefaultHeapID As Long 
th32ModuleID As Long 
cntThreads As Long 
th32ParentProcessID As Long 
pcPriClassBase As Long 
dwFlags As Long 
szExeFile As String * MAX_PATH 
End Type 
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long 
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long 
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long 
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) 
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long 



Function exitproc(ByVal exefile As String) As Boolean 
exitproc = False 
Dim hSnapShot As Long, uProcess As PROCESSENTRY32 
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) 
uProcess.dwSize = Len(uProcess) 
r = Process32First(hSnapShot, uProcess) 
Do While r 
If Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0)) = exefile Then 
exitproc = True 
Exit Do 
End If 
r = Process32Next(hSnapShot, uProcess) 
Loop 
End Function


示例如下:

Private Sub Command1_Click() 
If exitproc("QQ.exe") Then '检测QQ.exe进程是否存在
MsgBox "存在!" 
Else 
MsgBox "不存在!" 
End If 
End Sub



分享到:
评论

相关推荐

    VB查看进程是否运行

    在VB(Visual Basic)编程中,查看进程是否运行是一项常见的任务,这有助于程序根据系统当前的运行状态执行相应的操作。本篇文章将详细讲解如何利用VB实现这一功能,并提供相关代码示例。 首先,我们需要理解什么是...

    VB检测程序是否在运行

    在VB(Visual Basic)编程中,检测一个程序是否在运行或者一个文件是否正在被占用是一项常见的任务,这对于实现某些功能,比如防止多个实例同时运行、管理文件操作等至关重要。下面我们将详细探讨如何在VB中实现这些...

    VB进程保护、隐藏[含源码]

    在VB中,可以通过编写代码来实现这一目标,比如监听系统消息,当检测到试图关闭或修改目标进程时,程序会采取措施阻止这些操作。这通常涉及API调用,如Windows API中的`CreateToolhelp32Snapshot`和`Process32First/...

    vb 做的 进程监视工具

    它可以提供一个实时的进程列表,让用户了解哪些程序正在后台运行,这对于排查性能问题、检测潜在的恶意软件或者管理资源使用情况非常有用。 2. **即时结束进程**:除了查看进程,该工具还具备强制结束进程的能力。...

    VB6双进程守护源码

    在IT领域,进程守护是一种确保某个程序或服务持续运行的技术,即使在主应用程序崩溃或系统重启的情况下也能保持其运行状态。VB6(Visual Basic 6)是微软开发的一款经典编程环境,用于创建Windows桌面应用程序。在VB...

    监听进程是否已退出

    在编程领域,特别是涉及到系统级别的操作时,我们经常需要监控某个进程的状态,比如检查它是否已经退出。在VB(Visual Basic)中,这可以通过使用Windows API(应用程序接口)来实现。API提供了丰富的功能,让我们...

    系统进程监视器

    在信息技术领域,系统进程监视是至关重要的一个环节,它允许用户实时查看并管理计算机上运行的进程。本文将详细探讨一款用VB(Visual Basic)编写的“系统进程监视器”,并解析其背后的编程思想和技术要点。 VB,...

    vb.net限制指定程序一天只能运行一次

    1. **检测进程**:在程序启动时,首先检查当前是否有相同名称的进程正在运行。这可以通过遍历`Process.GetProcesses()`返回的进程列表并比较进程名称来完成。如果找到相同名称的进程,说明程序已经运行,需要提示...

    VB杀死指定进程,强制关闭程序

    这个标题“VB杀死指定进程,强制关闭程序”指的是如何使用VB代码来检测并结束系统中特定的进程。在这个场景下,VB开发者可能需要编写一段程序,以便在用户或者系统需要时,能够识别并终止某个应用程序的执行。 首先...

    服务器进程程序监测(可以发送邮件)

    监测服务器端或PC端某个程序是否在运行,如果没有运行则自动发送邮件(需要设置outlook),可以设置邮件的发送间隔。 (软件来自于Access技巧网(mdbtip.com),下载格式为.rar, 成功下载后去除.doc.

    进程监视器

    例如,当发现某个进程占用资源过高时,可以利用进程监视器来定位问题并采取相应措施。 其次,DLL查看功能是进程监视器的另一大亮点。它可以显示所有已加载的动态链接库(DLL)及其相关信息,帮助开发者追踪程序依赖...

    监控获取进程启动命令行.zip_ubuntu 命令行启动

    通过VB源代码,我们可以创建自定义的工具来监控和提取系统中运行进程的启动命令行。在这个案例中,`监控获取进程启动命令行.exe`很可能是编译后的可执行文件,可以直接在Windows环境中运行。而`XpStyles.RES`可能是...

    VB特征码码搜索

    - **内存保护检测**:检测目标进程的内存保护状态,避免因写入被保护内存导致的崩溃。 - **热键绑定**:允许用户通过键盘快捷键激活或关闭外挂功能。 - **日志记录**:记录搜索和修改过程,便于调试和优化。 6. ...

    结束进程工具

    结束进程意味着强制停止某个程序的运行,这通常需要管理员权限。 "指定时间循环检测指定进程"是指该工具会按照预先设定的时间间隔不断检查是否存在用户指定的进程。这种功能通常通过编程实现,例如使用Visual Basic...

    clsmn 监控万象 vb编写

    3. **通信机制**:当`svchost`运行后未检测到`clsmn.exe`进程时,监控工具会向服务端发送数据,报告异常情况。这种通信可能基于网络协议,如TCP/IP,通过发送特定的报文告知服务端客户端的状态。 4. **服务端响应**...

    精彩编程与编程技巧-监视程序的运行情况...

    这段代码展示了如何在一个循环中持续监控某个进程是否仍然运行。`While` 循环会一直执行直到 `StillRun` 函数返回 `False`,即进程不再运行为止。`DoEvents` 调用允许其他窗口事件在此循环中被处理,从而避免了程序...

    精彩编程与编程技巧-监视外部程序的运行情况...

    对于程序员来说,能够检测和控制进程是十分有用的技能,尤其是在需要确保某个任务持续运行或者需要监控系统状态的情况下。 #### 实现细节:使用API函数 在上述示例代码中,我们使用了Windows API中的几个函数来...

    只打开应用程序的一个实例

    2. **检查当前进程**:当检测到新启动事件时,检查是否已有相同进程在运行。可以使用`GetProcessById`或`EnumProcesses`函数来获取正在运行的进程列表。 3. **共享数据**:使用文件映射、注册表键或者其他共享存储来...

    ports端口扫描

    1. 安全审计:检测网络中是否存在未授权的服务,识别潜在的安全漏洞。 2. 网络测绘:了解网络结构,确定哪些服务正在运行,为渗透测试做准备。 3. 故障排查:检查服务是否正常工作,端口是否被阻塞。 描述中提到了...

    电脑蓝屏代码大全

    使用硬盘检测工具进行诊断,并根据需要替换硬盘。 ##### 0X000001A 指定的磁盘或磁片无法存取 磁盘或软盘无法正常读取时会触发此错误。检查磁盘是否有物理损伤,并确保磁盘驱动器工作正常。 ##### 0X000001B 磁盘...

Global site tag (gtag.js) - Google Analytics