VB.NET,部分机器获取不了CPU号(高分急用)

发布网友发布时间：2022-11-02 09:39

我来回答

共2个回答

热心网友时间：2023-10-23 06:09

VB 我不熟，下面是用汇编写的，我运行过可以的。

//--------------------------------

.model small

.586

.stack

.code

idstring db 49 p('$')

start:

mov ax,@code

mov ds,ax

lea di,idstring

mov eax,80000002h

cpuid

mov dword ptr [di],eax

mov dword ptr [di+4],ebx

mov dword ptr [di+8],ecx

mov dword ptr [di+12],edx

mov eax,80000003h

cpuid

mov dword ptr [di+16],eax

mov dword ptr [di+20],ebx

mov dword ptr [di+24],ecx

mov dword ptr [di+28],edx

mov eax,80000004h

cpuid

mov dword ptr [di+32],eax

mov dword ptr [di+36],ebx

mov dword ptr [di+40],ecx

mov dword ptr [di+44],edx

mov ah,09h

lea dx,idstring

int 21h

mov ah,4ch

int 21h

end start

//-------------------------------------------------------

程序确实可以执行，输出CPU的ID等信息。

注意：DOS下或MS-DOS下使用。

热心网友时间：2023-10-23 06:10

Function GetCpuID() As String
Try
Dim cpuInfo As String = ""
Dim cimobject As ManagementClass = New ManagementClass("Win32_Processor")
Dim moc As ManagementObjectCollection = cimobject.GetInstances()

For Each mo As ManagementObject In moc
cpuInfo = mo.Properties("ProcessorId").Value.ToString()
Exit For
Next

moc = Nothing
cimobject = Nothing
Return cpuInfo
Catch
Return "unknow"
End Try
End Function