ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¨ú±o CPU §Ç¸¹?

[µo°Ý] ¦p¦ó¨ú±o CPU §Ç¸¹?

Å¥»¡ CPU §Ç¸¹¤w¤£¦A¶}©ñ¡A¤£ª¾¬O¯u°²
¦³½Ð¤j¤j¦N¤j®v­Ì¨ó§U¸Ñ´b¡A·P®¦

¦^´_ 1# Scott090
  1. Sub §ìCPU§Ç¸¹()

  2. Dim CPUSet

  3. ' §Q¥ÎWMI(WindowsºÞ²z³W½d)¨ú±oCPU¸ê°T
  4. Set CPUSet = GetObject("winmgmts:").ExecQuery _
  5.    ("Select * from Win32_Processor")

  6. For Each CPU In CPUSet
  7.     MsgBox "Caption: " & CPU.Caption & vbCrLf & "CPU ID: " & CPU.ProcessorId
  8. Next

  9. End Sub
½Æ»s¥N½X
diabo

TOP

¦^´_ 2# diabo

«D±`·P®¦´£¨Ñ¨ó§U

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD