PureBoard

Code: Alles auswählen

Prototype.l ProtoOpenQuery		(Para1.l, Para2.l, Para3.l)
Prototype.l ProtoCloseQuery		(Para1.l)
Prototype.l ProtoCollectData	(Para1.l)
Prototype.d ProtoAuslastung		(Para1.l, Para2.l)       ;hier wegen Double wirklich notwendig
Prototype.l ProtoAddCounter		(Para1.l, Para2.l, Para3.l)

#CPU_CORES = 64

Dim CPU_Last.d(#CPU_CORES)


Procedure CPU_Auslastung (*Delay)
	
	
	Shared CPU_Last()
	
	
	If OpenLibrary(0, "PDH.DLL")         ; MS-File in \System32
		Global SI.SYSTEM_INFO
		#PDH_CSTATUS_NEW_DATA = $1
		
		Core = AllocateMemory(64)        ; für max. 4 Cores, 0-15=Counter, 16-31=PdhStatus, 32-63=dblValue    oder Structure
		
	
		OpenQuery.ProtoOpenQuery 		= GetFunction(0, "PdhOpenQuery")
		CloseQuery.ProtoCloseQuery 		= GetFunction(0, "PdhCloseQuery")
		CollectData.ProtoCollectData 	= GetFunction(0, "PdhCollectQueryData")
		AddCounter.ProtoAddCounter 		= GetFunction(0, "PdhVbAddCounter")
		Auslastung.ProtoAuslastung 		= GetFunction(0, "PdhVbGetDoubleCounterValue")
		
		RetVal = OpenQuery(0, 1, @hQuery)
		If RetVal
			MessageRequester("Fehler !", "Aufruf von PdhOpenQuery fehlgeschlagen!") 
			End
		EndIf
		
		
		GetSystemInfo_(@SI)     				; Anzahl der Cores ermitteln
		CPU_Last(0) = SI\dwNumberOfProcessors	; ins Array speichern

		
		For i = 1 To SI\dwNumberOfProcessors
			Proz$ = "\Prozessor(" + Str(i-1) + ")\Prozessorzeit (%)"
			
			; konvertiert Proz$ in das ASCII-Format 
			ASCII_String = AllocateMemory(Len(Proz$) + 1)
			PokeS(ASCII_String, Proz$, -1, #PB_Ascii)
			
			RetVal = AddCounter(hQuery, ASCII_String, Core + ((i-1) << 2))
			If RetVal
				MessageRequester("Fehler !", "Aufruf von PdhVbAddCounter für Core"+ Str(i-1) + " fehlgeschlagen!") 
			EndIf
		Next 
		
		
		Repeat
			
			CollectData(hQuery) 

			For i = 1 To SI\dwNumberOfProcessors
				CoreLast.d = Auslastung(PeekL(Core + 4 * (i-1)), Core + 16 + ((i-1) << 2))
				If PeekL(Core + 16 + ((i-1) << 2)) > #PDH_CSTATUS_NEW_DATA
					Break
				Else
					CPU_Last(i) = CoreLast
				EndIf     
			Next
	
			Delay (*Delay)
			
		ForEver
	
		CloseQuery(@hQuery)
		CloseLibrary(0)
		
	EndIf	
	
EndProcedure


CreateThread(@CPU_Auslastung(), 500)


Repeat
	
	Ausgabe$ = ""
	For i = 1 To CPU_Last(0)
		Ausgabe$ + "Kern " + Str(i) + ": " + StrD(CPU_Last(i),2) + "%" + #TAB$
	Next
	
	Debug Ausgabe$
	Delay (500)
	
ForEver