+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس کد بدست اوردن سریال سی پی یو (ویزوال بیسیک ) (/showthread.php?tid=2189)
سورس کد بدست اوردن سریال سی پی یو (ویزوال بیسیک ) - Amin_Mansouri - 04-27-2012
با سورس زیر میتونید سریال سی پی یو رو بدست بیارید بصورت تابع امادش کردم
کد:
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 FunctionRE: سورس کد بدست اوردن سریال سی پی یو (ویزوال بیسیک ) - Ghoghnus - 04-27-2012
ممنون امین جان ولی من که هیچ وقت از شماره سریال سی پیو خیری ندیدم
