Just nu i M3-nätverket
Gå till innehåll

Läsa från Registry


Kranis-97

Rekommendera Poster

Hej!

Jag skulle vilja visa datorns processor, tillverkare, med mer. Har inte hittat något annat sätt än att läsa från Registry. Här är koden som jag använt:

 

Dim CPUName As String

CPUName = My.Computer.Registry.GetValue _

("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\1", "ProcessorNameString", Nothing)

Label1.Text = CPUName

 

Vet inte varför den inte fukar, någon som vet?

Har letat på Internet utan att hitta så mycket och är tacksam för hjälp!

 

Länk till kommentar
Dela på andra webbplatser

Du vill inte läsa från Registry egentligen. Du vill istället använda något som heter WMI som står för Windows Management Instrumentation eller liknande. Glömt exakt vad det heter. Här kommer exempelkod! Notera att du nog egentligen vill ha x-antal try catch och liknande. Jag har bara testat detta på en dator och det finns absolut ingen garanti för att det kommer fungera för dig.

 

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Management

Public Class Program
Public Shared Sub Main()
	Console.Out.WriteLine("VB.NET CPU")
	Console.Out.WriteLine("")

	PrintCpuInfo()
End Sub

Private Shared Sub PrintCpuInfo()
	Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Processor")
	Dim obj as ManagementObject
	For Each obj in searcher.Get()
		Console.Out.WriteLine("Caption: {0}", obj("Caption").ToString())
		Console.Out.WriteLine("Current voltage: {0}", obj("CurrentVoltage").ToString())
		Console.Out.WriteLine("Number of cores: {0}", obj("NumberOfCores").ToString())
		Console.Out.WriteLine("ID: {0}", obj("ProcessorId").ToString())	
		Console.Out.WriteLine("Socket: {0}", obj("SocketDesignation").ToString())	
		Console.Out.WriteLine("Manufacturer: {0}", obj("Manufacturer").ToString())	
		Console.Out.WriteLine("Current clock speed: {0}", obj("CurrentClockSpeed").ToString())	
		Return
	Next
End Sub
End Class

Länk till kommentar
Dela på andra webbplatser

  • 3 veckor senare...

Får det inte att fungera för mig. Behöver man skaffa sig högre behörigheter för att läsa från Regsistry kanske?

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...