已有23人关注
获取CPU序列号的错误
发表在VB答疑区 2010-10-23
是否精华
版块置顶:
Dim mySerial As Long
Dim mylong As Long
Dim a As SWbemServices
Dim b As SWbemObjectSet
Dim C As SWbemObject
Dim d As SWbemPropertySet
Dim e As SWbemProperty
Set a = GetObject("winmgmts:")
Set b = a.InstancesOf("Win32_Processor")
For Each C In b
   With C
    If .Properties_.Count > 0 Then
     Set d = .Properties_
      For Each e In d
      If e.Name = "ProcessorId" Then
           mycpuid = e.Value
      End If
     Next
    End If
   End With
Next
VB范例宝典有获取CPU序列号的程序代码,为什么同样的代码在自己的电脑上运行不出错,在另外一台机上出现Invalid value of Null的错误,老师帮忙看一下呀,则可是你们书上原封不动的代码呀,郁闷中。
分享到:
精彩评论 7
vb_music
学分:0 LV1
2010-10-25
沙发
这是哪章哪节的例子?
Dvid
学分:0 LV1
2010-10-26
板凳
不会吧,你们编的书,自己都不知道是哪章哪节!!!
Lemon
学分:0 LV1
2010-10-26
地板
您好!

我们出的图书比较多,你不说哪章哪节我们很难找到。《范例宝典》我们就出了2版了。所以请您说明是哪章哪节的例子
Dvid
学分:0 LV1
2010-10-26
4L
老师好:
    这本书的名字为“VISUAL BASIC 程序开发范例宝典”,章节为“第17章 加密、安全与软件注册 第17.3 软件注册与加密”实例486根据CPU序列号、磁盘序列号设计软件注册程序。
vbsoldier
学分:0 LV1
2010-10-27
5L
您好,请问出问题的计算机安装的操作系统是什么的,是WINDOW7吗?如果是,可以将代码编译为EXE,将EXE文件设置为“以管理员身份运行”,执行后看看。

另外,出错的代码是哪一行?是mycpuid = e.Value吗?
Dvid
学分:0 LV1
2010-10-30
6L
老师:
    您好,那台电脑的操作系统是XP的,我是用我的软件安装程序安装到他的电脑,然后让他点注册窗体时,出现这个错误的,因为不能在客户的机器上运行原代码,所以我不知道错误是不是出在mycpuid = e.Value,另外我在网上也搜过相关信息,有人说有的电脑可能获取不到该电脑的CPU序列号,导致出错,如果是这样那用CPU序列号作为注册码来验证就不是能对所有电脑通用了,请老师指教,谢谢。
vbsoldier
学分:0 LV1
2010-11-01
7L
您好,如果使用WMI无法获取,那么可以搜集“VB进行ASM编程的示例,本例获得CPU   ID”的资料,然后尝试一下。
首页上一页 1 下一页尾页 7 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照