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 条评论
登录 后参与评论

相关文章

来自专栏光变

Gradle Unable to blame file

1011
来自专栏MasiMaro 的技术博文

Vista 及后续版本的新线程池

在上一篇的博文中,说了下老版本的线程池,在Vista之后,微软重新设计了一套线程池机制,并引入一组新的线程池API,新版线程池相对于老版本的来说,它的可控性更高...

1433
来自专栏前端说吧

运算符整理合集+优先级排序

2794
来自专栏老付的网络博客

爬取菜鸟裹裹的数据

菜鸟裹裹是阿里旗下的一个物流数据的整合平台,数据准确、及时.前几天在关注菜鸟和顺丰的争端,因为在前一天我刚刚爬到菜鸟上面的快递数据,第二天看到二者出现了摩擦,在...

1432
来自专栏yukong的小专栏

【java并发编程实战2】无锁编程CAS与atomic包1、无锁编程CAS2、 atomic族类

如果V值等于E值,则将V的值设为N。若V值和E值不同,则说明已经有其他线程做了更新,则当前线程什么都不做。通俗的理解就是CAS操作需要我们提供一个期望值,当期望...

1133
来自专栏恰同学骚年

《你必须知道的.NET》读书笔记:方法表初窥

  执行Main方法调用时,Three实例的创建与相应类型的加载也随之发生。然而,类型加载是在实例创建之前完成的,也就是我们常常说到的方法表创建。当程序执行到t...

1051
来自专栏技术记录

nafos:使用netty同端口监听tcpSocket和websocket

首先我们先添加好SocketChooseHandle(),这是我们的handle判断处理器。如果判断协议是以GET /开头的话,那么必定是websocket的连...

2983
来自专栏码匠的流水账

聊聊directory traversal attack

又称Path Traversal attack,即目录遍历攻击,旨在访问web服务器根目录外的文件/目录。通过是通过url或变量里头传递”../“来进行目录遍历...

1341
来自专栏武培轩的专栏

迅雷面经汇总

实现多态的技术称为 :动态绑定,是指在执行期间判断所引用对象的实际类型,根据其实际的类型调用其相应的方法。

1151
来自专栏林德熙的博客

win10 uwp 读取文本GBK错误

本文讲的是解决UWP文本GBK打开乱码错误,如何去读取GBK,包括网页GBK。最后本文给出一个方法追加文本。

1041

扫码关注云+社区