Cpu id

[Asso79]

I need to know the cpu number in vbnet.

thanks

[AndreRyan]

I found this API

Private Declare Sub GetSystemInfo Lib "kernel32.dll" (ByRef lpSystemInfo As SYSTEM_INFO)
   Private Structure SYSTEM_INFO
       Public dwOemID As Int32
       Public dwPageSize As Int32
       Public lpMinimumApplicationAddress As Int32
       Public lpMaximumApplicationAddress As Int32
       Public dwActiveProcessorMask As Int32
       Public dwNumberOrfProcessors As Int32
       Public dwProcessorType As Int32
       Public dwAllocationGranularity As Int32
       Public dwReserved As Int32
   End Structure

Edited June 11, 2003 by AndreRyan

[Asso79]

Is it for vbnet?

[aewarnick]

Api calls can be used in almost if not any programming language.

[Asso79]

After that i write the code how can i use for dwProcessorType ?

 

Thanks

[aewarnick]

I don't know. Try some things:

IntPtr ptr = GetSystemInfo.SYSTEM_INFO.dwProcessorType;

That is C# syntax.

Fool around a little and you will probably get it.

By the way, you need to copy and paste AndreRyan's code into your app first.

[a_jam_sandwich]

http://www.csharphelp.com/archives/archive79.html has a article on this API

 

Andy

[Asso79]

It's ok for c but for vbasic net is different

[dynamic_sysop]

   Private Declare Sub GetSystemInfo Lib "kernel32.dll" (ByRef lpSystemInfo As SYSTEM_INFO)
   Private Structure SYSTEM_INFO
       Public dwOemID As Int32
       Public dwPageSize As Int32
       Public lpMinimumApplicationAddress As Int32
       Public lpMaximumApplicationAddress As Int32
       Public dwActiveProcessorMask As Int32
       Public dwNumberOrfProcessors As Int32
       Public dwProcessorType As Int32
       Public dwAllocationGranularity As Int32
       Public dwReserved As Int32
   End Structure

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim s As SYSTEM_INFO
       GetSystemInfo(s)
       MsgBox(s.dwProcessorType & Chr(10) & s.dwNumberOrfProcessors & Chr(10) & s.dwPageSize)
   End Sub