04-27-2012، 12:13 AM
با سورس زیر میتونید سریال سی پی یو رو بدست بیارید بصورت تابع امادش کردم
کد:
Private Sub Form_Load()
'public by : parsicoders.com
MsgBox GeTCpuSerialNumber
End Sub
Public Function GeTCpuSerialNumber() As String
Dim oWMI, oCpu
Set oWMI = GetObject("winmgmts:")
For Each oCpu In oWMI.InstancesOf("Win32_Processor")
GeTCpuSerialNumber = "CPU: " & oCpu.ProcessorID
Next
End Function