查找程序是否已经运行的三种方法:

PirateNOX 2020-07-25 05:21:25
查找程序是否已经运行的三种方法: 1. If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProsseName))>0 then messagebox.show("程序正在运行!") end if 2. Dim ps As new Process For Each ps In Diagnostics.Process.GetProcesses If pro.ProcessName = "进程名称" Then messagebox.show("程序正在运行!") End If Next 3. '写一个功能。 Function FindProcess(ProcessName) As Boolean Dim ps '枚举进程 For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程 If UCase(ps.Name) = UCase(ProcessName) Then FindProcess = True Exit Function End If Next End Function ,=以下调用过程 If FindProcess("xxxx.exe") Then '在此修改为你要找的程序名 MsgBox.show ("该程序正在运行!") Else MsgBox .show("该程序不正在运行!") End If
...全文
3217 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
PirateNOX 2020-07-27
  • 打赏
  • 举报
回复
在哪里?哈哈,我随便发的
X-i-n 2020-07-26
  • 打赏
  • 举报
回复
发错版了,.Net有自己的专区。

1,066

社区成员

发帖
与我相关
我的任务
社区描述
VB 资源
社区管理员
  • 资源
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧