1 #Region "Microsoft.VisualBasic::6dac82a5a59fa93194bba41263b84e65, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\TaskManager.vb"
2
3     ' Author:
4     
5     '       asuka (amethyst.asuka@gcmodeller.org)
6     '       xie (genetics@smrucc.org)
7     '       xieguigang (xie.guigang@live.com)
8     
9     ' Copyright (c) 2018 GPL3 Licensed
10     
11     
12     ' GNU GENERAL PUBLIC LICENSE (GPL3)
13     
14     
15     ' This program is free software: you can redistribute it and/or modify
16     ' it under the terms of the GNU General Public License as published by
17     ' the Free Software Foundation, either version 3 of the License, or
18     ' (at your option) any later version.
19     
20     ' This program is distributed in the hope that it will be useful,
21     ' but WITHOUT ANY WARRANTY; without even the implied warranty of
22     ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23     ' GNU General Public License for more details.
24     
25     ' You should have received a copy of the GNU General Public License
26     ' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30     ' /********************************************************************************/
31
32     ' Summaries:
33
34     '     Module TaskManager
35     
36     '         Properties: CPU_Usages
37     
38     '         Function: ProcessUsage, ProcessUsageDetails
39     '         Structure TaskInfo
40     
41     '             Properties: CommandLine, CPU, Memory, PID, ProcessName
42     
43     '             FunctionToString
44     
45     
46     
47     
48     ' /********************************************************************************/
49
50 #End Region
51
52 Imports System.Xml.Serialization
53 Imports Microsoft.VisualBasic.Language
54 Imports Microsoft.VisualBasic.Serialization.JSON
55 Imports sys = System.Math
56
57 Namespace Win32
58
59     ''' <summary>
60     ''' Windows的任务管理器的接口
61     ''' </summary>
62     Public Module TaskManager
63
64         ''' <summary>
65         ''' Using this property you can display the CPU usage (over all CPU usage like you would find on the task manager)
66         ''' </summary>
67         ''' <returns></returns>
68         Public ReadOnly Property CPU_Usages As New PerformanceCounter("Processor""% Processor Time""_Total")
69
70         ''' <summary>
71         ''' 类似于任务管理器的函数:Memory, CPU, ProcessName, PID, CommandLine
72         ''' </summary>
73         ''' <returns>Memory, CPU</returns>
74         ''' <remarks></remarks>
75         Public Function ProcessUsageDetails() As List(Of TaskInfo)
76             Dim counterList As New List(Of TaskInfo)
77
78             Try
79                 Dim proc As Process() = Process.GetProcesses
80
81                 For Each P As Process In proc
82                     Dim pCounter As New PerformanceCounter("Process""% Processor Time", P.ProcessName)
83
84                     counterList += New TaskInfo With {
85                         .Memory = P.WorkingSet64,
86                         .CPU = sys.Round(pCounter.NextValue, 2),
87                         .ProcessName = P.ProcessName,
88                         .PID = P.Id,
89                         .CommandLine = P.StartInfo.FileName & " " & P.StartInfo.Arguments
90                     }
91                 Next
92             Catch ex As Exception
93                 Call App.LogException(ex)
94                 Call ex.PrintException
95             End Try
96
97             Return counterList
98         End Function
99
100         Public Structure TaskInfo
101
102             <XmlAttribute> Public Property PID As Integer
103             <XmlAttribute> Public Property CommandLine As String
104             <XmlAttribute> Public Property ProcessName As String
105             <XmlAttribute> Public Property CPU As Double
106             <XmlAttribute> Public Property Memory As Long
107
108             Default Public ReadOnly Property GetValue(name$) As Object
109                 Get
110                     Select Case name
111                         Case NameOf(PID)
112                             Return PID
113
114                         Case NameOf(CommandLine)
115                             Return CommandLine
116
117                         Case NameOf(ProcessName)
118                             Return ProcessName
119
120                         Case NameOf(CPU)
121                             Return CPU
122
123                         Case NameOf(Memory)
124                             Return Memory
125
126                         Case Else
127                             Throw New Exception($"Unable found key '{name}' in: " & GetJson)
128                     End Select
129                 End Get
130             End Property
131
132             Public Overrides Function ToString() As String
133                 Return Me.GetJson
134             End Function
135         End Structure
136
137         ''' <summary>
138         ''' 获取CPU的使用率
139         ''' </summary>
140         ''' <returns></returns>
141         ''' <remarks></remarks>
142         Public Function ProcessUsage() As Double
143             Dim tasks As List(Of TaskInfo) = ProcessUsageDetails()
144             Dim usage As Double = tasks _
145                 .Sum(Function(proc) CType(proc("CPU"), Double))
146             Return usage
147         End Function
148     End Module
149 End Namespace