查看: 578  |  回复: 0
  VB6 测定系统的cpu类型,和机器里cpu的个数
楼主
发表于 2023年5月6日 19:10

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
    dwOemID As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOrfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type

Private Sub Command1_Click()
    Dim InfoResult As SYSTEM_INFO
    GetSystemInfo InfoResult
    MsgBox "Your CPU type is " & InfoResult.dwProcessorType
    MsgBox "You have " & InfoResult.dwNumberOrfProcessors & " processor(s)"
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com