2020年6月11日 星期四

vb.net 取得CPU序號 [Get CPU Serie] 


1
2
3
Imports System.Management

//參數裡加入 System.Management







 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
        Dim objMOS As ManagementObjectSearcher
        Dim objMOC As Management.ManagementObjectCollection
        Dim objMO As Management.ManagementObject
        objMOS = New ManagementObjectSearcher("Select * From Win32_Processor")
        objMOC = objMOS.Get
        For Each objMO In objMOC
            MessageBox.Show("CPU ID = " & objMO("ProcessorID"))
            Exit Sub
        Next
        objMOS.Dispose()
        objMOS = Nothing
        objMO.Dispose()
        objMO = Nothing
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)