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

相关文章

来自专栏yukong的小专栏

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

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

1053
来自专栏Felix的技术分享

在AndroidStudio编译过程中遇到Error:duplicate files during packaging of APK问题的解决方法

2013
来自专栏架构之路

不用synchronized块的话如何实现一个原子的i++?

上周被问到这个问题,没想出来,后来提示说concurrent包里的原子类。回来学习一下。 一、何谓Atomic?  Atomic一词跟原子有点关系,后者曾被人认...

3035
来自专栏Java Edge

Java8 原子弹类之LongAdder源码分析add使用场景 LongAdder是否能够替换AtomicLong

4136
来自专栏james大数据架构

Android实现TCP断点上传,后台C#服务实现接收

终端实现大文件上传一直都是比较难的技术,其中涉及到后端与前端的交互,稳定性和流量大小,而且实现原理每个人都有自己的想法,后端主流用的比较多的是Http来实现,因...

2539
来自专栏恰同学骚年

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

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

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

爬取菜鸟裹裹的数据

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

782
来自专栏林德熙的博客

win10 uwp 读取文本GBK错误

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

771
来自专栏逸鹏说道

C#进阶系列——WebApi 接口参数不再困惑:传参详解 下

(1)基础类型数组 var arr = ["1", "2", "3", "4"]; $.ajax({ type: "post", ...

2806
来自专栏前端说吧

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

2714

扫码关注云+社区