Sub 所有进程()
Set objs = GetObject('WinMgmts:').InstancesOf('Win32_Process')
For Each obj In objs
tmp = tmp & WorksheetFunction.Text(a + 1, '[DBNum2][$-804]0: ') + vbTab + obj.Description + Chr(13)
a = a + 1
Next
MsgBox tmp, 65, '提示你哦'
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。