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-检测父进程本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
VB-检测父进程,检测父进程的父进程是否是EXPLORE的父进程,建立进程快照,搜索explorer.exe进程,并获得其ID,遍历第一个进程,获得PROCESSENTRY32结构,运行结果会告之是不是发现父进程。
VB检测进程名,进程名字检测,编写个函数方便调用,namex是要检测的程序名,小写,返回TRUE表示发现.
VB 检测文件是否存在 VB 检测文件是否存在
vb共享内存及检测系统进程示例
检测是否有QQ运行vb代码检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行检测是否有QQ运行
一个比较基础的VB例子,禁止Windows一次运行多个程序进程,与系统进程相关的开发源码,刚刚学习VB的朋友不妨下载看看。
可获取windows系统下系统进程进程名,PID及用户名。
VB 检测按键 VB 检测按键 VB 检测按键 VB 检测按键 VB 检测按键 VB 检测按键 VB 检测按键
这个源码的例子,用api函数来管理查看过滤进程,并对指定进程,直接杀死
VB根据PID得到进程路径,改了一段代码,可以获取进程的PID和路径: 在窗体设计器里放一个listbox,命名为process; 再放2个txtbox,一个名为ProcessID,用来显示PID; 另一个名为Path,用来显示进程路径; ...
VB.NET Winform窗口后台运行+防多开+开机后台自动启动示例 可用于制作一个开启自动启动的后台运行程序,并且自带窗口可唤出显示
按指定的名称关闭相应进程 关键代码如下: For Each TName In NameS If mName LCase TName Then List1 AddItem TName pid my th32ProcessID pname mName Dim mProcID As Long mProcID OpenProcess 1& 1&...
vb 做的 进程监视工具 可以后台监视进程 即时 结束 进程 获取其路径
vb 进程保护,防止进程被意外终止,防止有人恶意终止某些进程,隐藏指定进程
VB写隐藏进程 用VB写.. 病毒的特征....——————隐藏性
vb 纯代码实现NT下隐藏进程 在exe的form中: Private Sub Form_Load() App.TaskVisible = False Call HideCurrentProcess Option Explicit End Sub 这样就可以实现任务管理器的“应用程序”和“进程”的隐藏。
VB 将指定PID进程挂起或恢复 VB 将指定PID进程挂起或恢复 VB 将指定PID进程挂起或恢复 VB 将指定PID进程挂起或恢复