TA的每日心情 | 开心 2016-8-25 11:11 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
With Dialog("Windows Task").WinListView("SysListView32")
For i = 0 To 5
sSub = "Image Name"
sReport = sReport + .GetSubItem(i, "Image Name") & vbTab
sReport = sReport + .GetSubItem(i, "PID") & vbTab
sReport = sReport + .GetSubItem(i, "CPU") & vbTab
sReport = sReport + .GetSubItem(i, "CPU Time") & vbTab
sReport = sReport + .GetSubItem(i, "Mem Usage")
sReport = sReport + vbCr
Next
sReport = sReport + .GetSubItem("QTPro.exe", 0) & vbTab
sReport = sReport + .GetSubItem("QTPro.exe", 1) & vbTab
sReport = sReport + .GetSubItem("QTPro.exe", 2) & vbTab
sReport = sReport + .GetSubItem("QTPro.exe", 3) & vbTab
sReport = sReport + .GetSubItem("QTPro.exe", 4)
sReport = sReport + vbCr
End With
Reporter.ReportEvent micDone, "Task Manager", sReport
End Sub |
|