Hi zusammen,
ich habe mich vorhin mit diesem Tutorial beschäftigt. Den Code habe ich erstmal (fast) so übernommen und dann begonnen, ihn zu verändern. Das ist meine Weise die Syntax zu verstehen. Klappt bisher auch immer ganz gut.
Jetzt sitze ich aber vor einem Problem: Ich möchte den Namen der CPU und den des Lüfters (es wird nur 1 geben, da dieser PC steinalt ist) auslesen. Ich habe eine Form mit 4 Labels, 2 davon sollen die Ausgelesenen Daten ausgeben. Tatsächlich ausgegeben wird aber nur der CPU Name.
Hier der Code dazu:
Das Label für den Lüfter (lbl_fan_name) gibt mir ganz konsequent nichts aus... Wieso?
EDIT: Hab grad mal Die KeyboardID anstelle des Fan Names auslesen lassen, da kam was bei raus ...
ich habe mich vorhin mit diesem Tutorial beschäftigt. Den Code habe ich erstmal (fast) so übernommen und dann begonnen, ihn zu verändern. Das ist meine Weise die Syntax zu verstehen. Klappt bisher auch immer ganz gut.
Jetzt sitze ich aber vor einem Problem: Ich möchte den Namen der CPU und den des Lüfters (es wird nur 1 geben, da dieser PC steinalt ist) auslesen. Ich habe eine Form mit 4 Labels, 2 davon sollen die Ausgelesenen Daten ausgeben. Tatsächlich ausgegeben wird aber nur der CPU Name.
Hier der Code dazu:
VB.NET-Quellcode
- Imports System
- Imports System.Management
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Fan()
- CPU()
- End Sub
- Private Sub Fan()
- Dim Fan As String = "Win32_Fan"
- Dim FanSpeed As String = "Name"
- Dim Fansearcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM " & Fan)
- For Each queryObj As ManagementObject In Fansearcher.Get()
- Try
- lbl_fan_speed.Text = "" & CStr(queryObj(FanSpeed))
- Catch
- End Try
- Next
- End Sub
- Private Sub CPU()
- Dim CPU As String = "Win32_Processor" ' wo soll gesucht werden?
- Dim CPUName As String = "Name" 'was suche ich?
- Dim Cpusearcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM " & CPU)
- For Each queryObj As ManagementObject In Cpusearcher.Get()
- Try
- lbl_Cpu_name.Text = "" & CStr(queryObj(CPUName))
- Catch
- End Try
- Next
- End Sub
- End Class
Das Label für den Lüfter (lbl_fan_name) gibt mir ganz konsequent nichts aus... Wieso?
EDIT: Hab grad mal Die KeyboardID anstelle des Fan Names auslesen lassen, da kam was bei raus ...
Eine Pizza auf einer Pizza sind 2 Pizzen
Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne
Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ryke“ ()