|
本帖最后由 Snowy_Iris 于 2020-1-30 15:25 编辑
丢人了,解决如下
Dim ProcessSet As Object, Process As Object
Dim wmiServices As Object
Set wmiServices = CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
Set ProcessSet = wmiServices.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessID='" & PID & "'")
WQL真香 |
|