Visual Basic 获取CPU信息

最新推荐文章于 2022-09-02 18:24:07 发布

Dark-Source

最新推荐文章于 2022-09-02 18:24:07 发布

阅读量739

点赞数

分类专栏： Visual Basic 文章标签： visual basic 注册表 CPU信息

本文为博主原创文章，未经博主允许不得转载。

本文链接：https://blog.csdn.net/qq_15724883/article/details/41443109

版权

Visual Basic 专栏收录该内容

18 篇文章 0 订阅

订阅专栏

Option Explicit

  '获得cpu信息
    Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
    Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
    Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    Const REG_SZ = 1
    Const REG_DWORD = 4
    Const HKEY_CURRENT_USER = &H80000001
    Const HKEY_LOCAL_MACHINE = &H80000002
    
    Public Function CPUInfo() As String
        Dim sInfo As String * 100
        Dim lKey As Long
        Dim lReturn As Long
        lReturn = RegOpenKey(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", lKey)
        RegQueryValueEx lKey, "ProcessorNameString", 0, REG_SZ, ByVal sInfo, Len(sInfo)
        CPUInfo = sInfo
    End Function