VB 5/6-Tipp 0615: Prozessorauslastung per WMI auslesen
von Konrad Doblander
Beschreibung
Das WMI Objekt bietet unter Windows 2000 und XP zahlreiche Informationen über die Hardware und das System. Wie man mit dessen Hilfe die Prozessorauslastung auslesen kann, wird hier erklärt.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Projekt1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Timersteuerelement "Timer1" ' Steuerelement: Beschriftungsfeld "Label2" ' Steuerelement: Beschriftungsfeld "Label1" Option Explicit Private Function GetCPUDutyNT() As Integer Dim objCPUset As Object Dim objCPU As Object Dim hCLoad As Integer On Error Goto Fehler Err.Clear 'per WMI - CPU-Last = Durchschnittswert d. ltzt. Minute in Prozent Set objCPUset = GetObject("winmgmts:").InstancesOf("Win32_Processor") For Each objCPU In objCPUset If objCPUset.Count > 1 Then 'Multi-CPU hCLoad = hCLoad + objCPU.LoadPercentage Else 'Single-CPU hCLoad = objCPU.LoadPercentage End If Next 'bei mehreren CPUs If objCPUset.Count > 1 Then 'Durchschnittswert berechnen hCLoad = hCLoad \ objCPUset.Count Set objCPUset = Nothing Set objCPU = Nothing End If GetCPUDutyNT = hCLoad Exit Function Fehler: Debug.Print Err.Number & " " & Err.Description Err.Clear GetCPUDutyNT = -1 End Function Private Sub Timer1_Timer() Label1 = GetCPUDutyNT & " %" End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Projekt1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 8 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von sintswvul am 10.12.2011 um 21:19
e5rbfj <a href="http://zdkuqzmueqxl.com/">zdkuqzmueqxl</a>, [url=http://ucybqfyovynd.com/]ucybqfyovynd[/url], [link=http://rjzwkerjcncb.com/]rjzwkerjcncb[/link], http://teebbaxaktyl.com/
Kommentar von Andre Hartwig am 21.06.2008 um 22:52
Hey... Funktioniert auch mit VB .NET.
Einwandfrei!
Kommentar von Movergan am 19.02.2006 um 01:34
Das WMI ist furchtbar langsam. Wenn ich regelmäßig die CPU-Last abfragen will, schaffe ich es nicht öfter als ca. 1 Mal pro Sekunde, da die Funktion zur Ermittlung der CPU-Last 1 Sekunde für den Durchlauf benötigt. Für mich daher ungeeignet.
Kommentar von _Fire_Dragon am 30.03.2005 um 23:27
Schade nur das wenn man die Form bewegt ständig hängen bleibt.
Kann man das net hinbekommen das alles normal im Projekt läuft? sprich gibts nix besseres als das WMI?
Kommentar von imagodespira am 16.08.2004 um 22:01
Bei mir zeigt er immer 100% an, nix passiert :(
WinXP + VB6 Einsteiger
Kommentar von pashé am 16.07.2004 um 11:08
@Maverik944: ... oder "Option Explicit" löschen...
Kommentar von Outi am 27.02.2004 um 23:44
Funzt prima.
schad nur das das WMI selbst ne Auslastung von knapp 1-2% reinbringt.
Kommentar von Maverik944 am 06.02.2004 um 16:28
Bei mir XP VB6 muss ich nur noch
Label1.Caption = getCPUDutyNT & " %"
setzen und dann funktioniert es