VB5中确定CPU类型我们可以使用API函数 GetSystemInfo 来确定CPU的类型。代码如下:Option Explicit
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Sub Form_Activate()
Dim Sys As SYSTEM_INFO
GetSystemInfo Sys
Print "处理器类型:"; Sys.dwProcessorType
Print "处理器序号:"; Sys.dwNumberOfProcessors
End Sub

解决方案 »

  1.   


    请问:625:3d503d03 是不是CPU ID呢?
      

  2.   


    f9:8e632dc7 我有一个VB编的源程序,可以读到以上2个代码,我不知道是不是CPU ID因为有一个DLL文件,所以不能贴上来。有兴趣可以留下EMAIL。
      

  3.   

    嘿嘿,可以用硬盘的SerialNumber么?
    看看GetVolumeInformation函数吧,第四个参数就是该卷的SerialNumber.:)
      

  4.   

    <<< 关于读  CPU  ID  和主板  BIOS  等信息加密软件 >>>
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    Do{
    读主板信息(Delphi代码,不知用C代码怎么写?):
    主板名称:  String(PChar(Ptr($FE061)));
    版权:      String(PChar(Ptr($FE091)));
    日期:      String(PChar(Ptr($FFFF5)));
    序列号:    String(PChar(Ptr($FEC71)));
    * 不过,这些语句在同一批主板上读出的信息是相同的!
    * 并且,在 Win2000 以上版本下运行(编译)无法通过!
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    * 读 CPU ID:不是所有的 CPU 都有序列号,而且同一型号的 CPU ID 相同!
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    *读硬盘序列号:有些硬盘没有序列号,或无法正确读取(人为或系统等因素造成)。
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    读网卡序列号:局限性太大,且序列号可以用一种很简单的办法修改(改注册表)。
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    读用户名或计算机名:局限性太大,在大型网吧等场合不适用(改名后注册码不可用)!
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    读其它能在注册表能找到的数据:太不保险,极不安全!
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    使用注册名+用户名:注册太灵活,只要注册一套即可通用。
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    再就是注册后的信息保存在何处??????很不简单,问题多多!!!!!
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    }Loop
    呵呵:)请继续讨论此技术问题。限入死循环!!!!!!!!!!!!!
    ******************************************************************************
        据我测试发现,美萍软件(V8.45以上)在同型号机器(网吧),特别是主板牌子型号相
    同、硬盘相同(不论是否有无序列号)、CPU 相同,系统为克隆的,且能在Windows的任何
    版本(98/2K)等情况下正常运行,每台机器都能读取到唯一且固定的序列号!!!实现了
    真正的一机一码~~~~~~*请大家好好研究、学习美萍软件(它自称读主板信息加密的)!OK.......Windows 95/98/SE/ME/NT/2K/XP...启动中>>>>>>>>>>>>>>>>>>>>>>>>>>>