VBA进程查找程序路径与命令参数

Function 进程路径(Optional exen) 'Debug.Print 进程路径("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE" Set p = GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p If Pj.Description = exen Then 进程路径 = Pj.ExecutablePath Next End Function

Function 进程命令(Optional exen) 'Debug.Print 进程路径("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE" Set p = GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p If Pj.Description = exen Then 进程命令 = Pj.Commandline Next End Function

Function 进程路径列表(Optional exen) 'Debug.Print 进程路径列表("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE" Set p = GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p If Pj.Description = exen Then 进程路径列表 = 进程路径列表 + Chr(13) + Pj.ExecutablePath Next End Function

Function 进程命令列表(Optional exen) 'Debug.Print 进程命令列表("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE" Set p = GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p If Pj.Description = exen Then 进程命令列表 = 进程命令列表 & Chr(13) & Pj.Commandline Next End Function

Function 进程列表(Optional d) 'Debug.Print 进程列表() 'd=1仅进程,2进程+路径,3进程+路径参数 If IsMissing(d) Then d = 3 Set p = GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p i = i + 1 If d = 1 Then tmp = tmp & i & vbTab + Pj.Description + Chr(13) If d = 2 Then tmp = tmp & i & vbTab + Pj.Description + Chr(13) + vbTab + Pj.ExecutablePath + Chr(13) If d = 3 Then tmp = tmp & i & vbTab + Pj.Description + Chr(13) + vbTab + Pj.Commandline + Chr(13) Next 进程列表 = tmp End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏逸鹏说道

C# 窗体常用API函数 应用程序窗体查找

常用的处理窗体的API函数如下(注意:API函数必须放在窗体中...): 使用C#语言,要引用DllImport,必须要添加using System.Runti...

4016
来自专栏从零开始的linux

安装express

安装express [root@alex ~]#yum -y install npm [root@alex example]# yum install node...

4008
来自专栏开发与安全

VS2008 + Opencv2.1 读取图片像素输出至Excel文件

系统环境: win 7 + VS2008 + Opencv2.1 + Excel 2010 思路:先通过Opencv库函数读取图片存储至IplImage结构体中...

2628
来自专栏落花落雨不落叶

杭电2016 数据的交换输出

34212
来自专栏数据结构与算法

9273:PKU2506Tiling

9273:PKU2506Tiling 查看 提交 统计 提问 总时间限制: 2000ms 单个测试点时间限制: 1000ms 内存限制: 131072kB描述 ...

2737
来自专栏pangguoming

IIS 安装 pydio

Introduction In this how-to, we’ll see the installation of Pydio (Put Your Data ...

37711
来自专栏我是业余自学C/C++的

sprintf_s的使用

1182
来自专栏Danny的专栏

机房收费系统——将MSHFlexGrid控件中的数据导出到Excel

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/huyuyang6688/article/...

742
来自专栏刘望舒

Android解析WindowManagerService(二)WMS的重要成员和Window的添加过程

前言 在本系列的上一篇文章中,我们学习了WMS的诞生,WMS被创建后,它的重要的成员有哪些?Window添加过程的WMS部分做了什么呢?这篇文章会给你解答。 1...

1999
来自专栏xingoo, 一个梦想做发明家的程序员

完成端口IO模型

IOCP(IO完成端口)是一种伸缩性的IO模型,广泛应用于各种类型的高性能服务器,如Apache等。 IO完成端口,应用程序使用线程池处理异步IO请求的一种机制...

1918

扫码关注云+社区