如何取得CPU的序列号?

zansan 2003-01-05 04:46:02
我想用CPU的序列号来发行软件,但我找不到取得CPU的序列号的方法,还望各位前辈指教一二。
...全文
45 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Sean918 2003-04-28
http://expert.csdn.net/Expert/topic/1712/1712593.xml?temp=.9032862
回复
lihonggen0 2003-04-28
http://www.applevb.com/sourcecode/cpuinfo.zip
回复
超级大笨狼 2003-04-28
谁要我做的英汉三万单词词库?还有我做的排除法背单词程序附原代码,词库mdb格式,分大学,托福,GRE,GMAT等,请开贴!
1,开贴告诉你的Email,至少100分,先开贴,然后发,绝不食言!压缩包共1.07兆,我发email费时间的,所以跟贴的人不发,请谅解。
2,欢迎交流用此库做的学英语相关程序!商业用途请著名:
3,注意在csdn留言给我,告诉我你新开帖子的位置,否则我不知道!!

此词库来源于csdn网友superdullwolf(超级大笨狼)
qq:28963147上班时间在线
email:panyuguang962@sohu.com
为感谢www.csdn.net,免费使用!
以下地址已经发放注意查收!
wangjingjing390@vip.sina.com
newhack@etang.com
spring414@163.com

我需要分数!
我计划做发声音朗读呢,不难以前做过好几种TTS朗读,中英文的,但是现在没时间,但是如果发声音就不是绿色的了,要做安装文件!
大家继续开发别的功能吧,我们搞个接力活动怎么样?让csdn,vb版的人都来参与,做一个好的背单词软件,原代码公开!
做程序员象夸父追日
但是天上太阳那么多,追一个还没追上又出来好多!!
回复
超级大笨狼 2003-04-28
'取得CPU序列号

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0


Private Sub Command1_Click()
Dim len5 As Long, aa As Long
Dim cmprName As String
Dim osver As OSVERSIONINFO
'取得Computer Name
cmprName = String(255, 0)
len5 = 256
aa = GetComputerName(cmprName, len5)
cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)
Computer = cmprName '取得CPU端口号
Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")
For Each mycpu In CPUs
Text1.Text = mycpu.ProcessorId
Next
End Sub
0383FBFF0000068A就是我的cpu号码共4X4=16个字符
窗体上放一个按钮一个text就可以,大家收藏吧,这个程序对保护自己知识产权很有用的!
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告