سئوال در مورد یک آدرس در رجیستری

[Shahab.]

سلام دوستان
چند وقته یه آدرسی در رجیستری پیدا کردم که میگن شماره ای یکتا برای هر کامپیوتر توش داره که مربوط به سریال پردازنده هست ( نه خود سریال پردازنده )
توی این کلید قرار داره
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0\FeatureSet

میخواستم ببینم این اصلا چی هست و آیا با تعویض ویندوز این عدد تغییر میکنه یا نه؟
اونقدر اطمینانی هست که بشه ازش در برنامه استفاده کرد یا خیر؟

[Mr'Jamshidy]

سلام دوستان
چند وقته یه آدرسی در رجیستری پیدا کردم که میگن شماره ای یکتا برای هر کامپیوتر توش داره که مربوط به سریال پردازنده هست ( نه خود سریال پردازنده )
توی این کلید قرار داره
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0\FeatureSet

میخواستم ببینم این اصلا چی هست و آیا با تعویض ویندوز این عدد تغییر میکنه یا نه؟
اونقدر اطمینانی هست که بشه ازش در برنامه استفاده کرد یا خیر؟

این قسمت که شما بهش اشاره میکنی معلوم نیست چیه اما فکر میکنم هرچی که هست شماره سریال پردازنده نیست

تو سیستم به هیچ چیز نمیشه اطمینان کرد
ممکنه هر چیزی باعث تغییر اون چیزی که ما میخوایم بشه

[mehran901]

خب شما میتونین از آیدی سی پی یو استفاده کنین ، مطمئنا میتونه مبنای خوبی برای برنامه های لایسنسی قرار بگیره

Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String

computer = "."
Set wmi = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Set processors = wmi.ExecQuery("Select * from Win32_Processor")

For Each cpu In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)

CpuId = cpu_ids
End Function

[vbhamed]

سلام
البته كدهاي مربوط به Windows Managment Instrument اين مشكل رو دارن كه اگر اين برنامه روي ويندوز نصب نباشه يا حذف بشه ديگه چيزي بر نمي‌گردونن و اين براي برنامه هاي لايسنسي خوب نيست