[Amin_Mansouri]

با سورس زیر میتونید سریال سی پی یو رو بدست بیارید بصورت تابع امادش کردم

کد:

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

[Ghoghnus]

ممنون امین جان ولی من که هیچ وقت از شماره سریال سی پیو خیری ندیدم