چگونه مقدار یک کلید رو از رجیستری توی لیبل نشون بدم؟

[Amir83.hazrati]

سلام.
من میخوام کلیدی رو که در این آدرس قرار داره
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0
و اسمش ~MHz هست رو بخونم و مقدارش رو توی لیبل نشون بدم

توی برنامه نیاز به 3چیز دارم:
1-فرکانس پردازنده که از این کلید میگیرمش
2-تعداد هسته های پردازنده که نمیدونم از کجا به دستش بیارم
3-ذخیره کردن یه مقدار توی برنامه داخل رجیستری

لطفا کد خوندن این کلید رو بگید و بگید از کجا تعداد هسته رو بخونم و چطور یه مقدار روی توی رجیستری برنامه ذخیره کنم
ممنون

[Amir83.hazrati]

یک هفته گذشت...
واقعا کسی نیست جواب بده؟

[vbhamed]

سلام
تو گروه بپرسید
https://t.me/joinchat/B09fd0MB7JqiPJA7yGGpkw

[hamidreza777]

سلام.
من میخوام کلیدی رو که در این آدرس قرار داره
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0
و اسمش ~MHz هست رو بخونم و مقدارش رو توی لیبل نشون بدم

توی برنامه نیاز به 3چیز دارم:
1-فرکانس پردازنده که از این کلید میگیرمش
2-تعداد هسته های پردازنده که نمیدونم از کجا به دستش بیارم
3-ذخیره کردن یه مقدار توی برنامه داخل رجیستری

لطفا کد خوندن این کلید رو بگید و بگید از کجا تعداد هسته رو بخونم و چطور یه مقدار روی توی رجیستری برنامه ذخیره کنم
ممنون

Public Const SC_CLOSE = &HF060

Public Const MF_BYCOMMAND = &H0

Public Declare Function GetSystemMenu Lib "USER32" _

(ByVal hWnd As Long, ByVal bRevert As Long) As Long

Public Declare Function DeleteMenu Lib "USER32" _

(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Declare Function DrawMenuBar Lib "USER32" (ByVal hWnd As Long) As Long













Public Sub WriteReg(Folder As String, value As String)

    Dim B As Object

    On Error Resume Next

    Set B = CreateObject("wscript.shell")

    B.RegWrite Folder, value



End Sub



Public Function ReadReg(value As String) As String

    Dim B As Object, r As String

    r = ""

    On Error GoTo 1

    Set B = CreateObject("wscript.shell")

    r = B.RegRead(value)

1

    ReadReg = r

End Function





label1.caption = ReadReg("HKLM\HARDWARE\DESCRIPTION\System\" & "\" & "CentralProcessor")

این تابع را فراخوانی کنید و آدرس ریجیستری رو بهش بدین مقدارشو بر میگردونه