1187
社区成员
- 全部
如何用VB程序取得CPU序列号？
我想用VB程序从机内取得CPU序列号，请知道的朋友解释一下好吗？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
weill 2003-04-26
注意，以上代码只是给了你一个得到CPU序列号的函数，在win2K，赛扬III1.7G下测试通过。
weill 2003-04-26
将以下代码放在一个模块中，然后在任何窗口可用 AA = CPUInof_ME() 的方法调用，注意，其中AA应为String类型。
'得到CPU序列号。********函数引用方法：AA = CPUInof_ME() (其中AA应为String类型)********
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 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
Public Function CPUInfo_ME() As String
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
CPUInfo_ME = mycpu.ProcessorId
Next
End Function
'得到CPU序列号。********函数引用方法：AA = CPUInof_ME() (其中AA应为String类型)********
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 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
Public Function CPUInfo_ME() As String
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
CPUInfo_ME = mycpu.ProcessorId
Next
End Function
快速取得CPU序列号,网卡Mac地址,硬盘序列号，注册码示例源程序 网卡也容易更换，因此作者建议使用CPU序列号。在同一个压缩包里，还有一个注册码例子程序，演示如何用注册码对软件进行保护！(含delphi源程序）在这里，作者提供了获得CPU序列号和网卡Mac地址的方法。1.Delphi中可这...
CPU序列号VB源代码下载 取得cpu、网卡等硬件信息的序列号，便于生成加密注册程序 相关下载链接：//download.csdn.net/download/yqxyrx/690470?utm_source=bbsseo
计算机的cpu能不能直接运行vb,如何用VB读取计算机主板或CPU的机器码？ 推荐回答仅仅几行代码实现取得本机CPU序列号，可以使用此序列号实现程序的注册功能。个人感觉使用CPU序列号注册比使用硬盘序列号更为适合。引用MicrosoftWMIScriptingv1.1Library''添加Command1PrivateSubCommand1_...
asp.net vb语言，如何取得电脑的cpu序列号 如何取得啊，我想让软件绑定cpu序列号，限制其他电脑使用，谢谢 ，代码 如何写啊 ，是不是的带序列号后，保存到数据库，每次启动软件都对比一下序列号啊，是这个原理吗
请问如何取得AMD CPU的 唯一序列号？ 我想用此代码来加密我的程序可是AMD不可以，，， 我知道用VB 可以获取INTEL P4 唯一序列号，，， 但VB 中 AMD CPU的唯一序列号怎么知道呢？ 请写个详细代码和说明，，， 谢谢！
基于硬件指纹的软件加密和注册技术--获取硬盘物理序列号、CPU序列号、网卡MAC地址、BIOS序列号、主板序列号 在软件加密保护技术中，一种常用的保护方法就是基于硬件指纹进行许可授权，本文将详细介绍硬件指纹的具体获取技术，并提供一段演示源代码程序。<!--google_ad_client = "pub-4382955739270299";/* 468x15, 创建于 08...
VB获取winmgmts打开的程序个数获取系统信息代码 VB获取打开的程序个数经典源码 Private Sub Form_Load() MsgBox getInstanceCount("notepad.exe") End Sub '得到所有进程名为proName的个数 Private Function getInstanceCount(ByVal proName As String) As ...
Delphi共享软件试用限制注册码生成程序源代码 网卡也容易更换，因此作者建议使用CPU序列号。在这里，作者提供了获得CPU序列号和网卡Mac地址的方法。 使用了ComputerId.dll动态库文件，此动态连接库提供的两个函数为GetCPUSerialNumber和GetMacAddress，分别以...
读硬盘序列号 直接用下列函数吧function GetIdeDiskSerialNumber(ScsiID:integer): string; //硬盘ID号type TSrbIoControl = packed record HeaderLength: ULONG; Signature: array[0..7] of Char; Time
VB编程资源大全(源码 文件) 1,storage.ZIP
结构化存储文件(40KB)
2,wininet_connection.ZIP
CWinInetConnection示例工程(12KB)
3,drvscan.ZIP
快速的全盘文件查找程序(7KB)
4,vbfileop.ZIP
使用WriteFile 块读/写数据...
关于一个用VB编写的PING工具的问题 我在互联网上找到一个用VB编写的程序，是PING一个计算机的IP是否能通的工具，我改了改，使用ADO重数据库中循环读取IP地址，并将测试后的状态写入到数据库，作完后运行是可以测试，但是速度太慢了，每循环测试一个IP...
vb.net获取系统信息 一、Environment类轻松获取系统信息.NET Framework中的System.Environment类提供了丰富而简单的方法取得有关当前环境和平台的系统信息，如计算机名称、系统目录等：l 获取计算机的 NetBIOS 名称： Environment类的...
易语言利用WMI取磁盘CPU内存显卡信息源码 通过 WMI ，用 VB 可以管理的信息包括：计算机系统、磁盘、外围设备、事件日志、文件、文件夹、文件系统、网络组件、操作系统子系统、打印机、进程、注册表设置、安全性、服务、共享、SAM 用户和组、等，下面我们...
Delphi共享软件试用限制注册码生成程序源代码 下载 网卡也容易更换，因此作者建议使用CPU序列号。在这里，作者提供了获得CPU序列号和网卡Mac地址的方法。 使用了ComputerId.dll动态库文件，此动态连接库提供的两个函数为GetCPUSerialNumber和GetMacAddress，分别以...
Winform中实现根据CPU和硬盘获取机器码 首先获取设备硬盘的卷标号，然后获取CPU的序列号，将这两个拼接成机器码。 实现 新建一个Winform程序，然后添加Management引用 然后进入Form1页面的代码中 首先获取设备硬盘的卷标号代码 public string ...
用VB写控件dll的问题 我用VB写了一个activex dll控件，在asp中调用，主要用途是取得本机的硬盘序列号，源程序如下： Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ...
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part2 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
不错VB代码，收藏！！！ 实现毫秒精度的延时Module Code:Option ExplicitDeclare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As LongDeclare Function QueryPerformanceCounter Lib "kernel32" _ ...
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
[转]vb高效编程（优化） 本文适合任何水平的vb编程人员。 一、减少加载窗体数目 每一个加载的窗体，无论可视与否，都要占据一定数量的内存（其数量随窗体上控件的类型和数量，以及窗体上位图的大小等的不同而变化）。只在需要显示时才加 ...
编写高质量的VB代码 在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度，减少代码消耗的系统资源。在编译优化技术中介绍了如何正确地利用VB提供的编译选项对在编译时最后生成的可执行文件进行...
易语言利用WMI获取磁盘信息源码 通过 WMI ，用 VB 可以管理的信息包括：计算机系统、磁盘、外围设备、事件日志、文件、文件夹、文件系统、网络组件、操作系统子系统、打印机、进程、注册表设置、安全性、服务、共享、SAM 用户和组、等，下面我们...
dNet图像处理组件学习总结 关于.NET下开源及商业图像处理(PSD)组件 ...【原创】.NET开源压缩组件介绍与入门 【原创翻译】C#开源轻量级对象数据库NDatabase介绍 【转载总结】关于泛型基类的相关知识 NewLife.Xcode组件资源目录 ...
读取本机硬件信息的VBA代码 今天被朋友问到，如何在VB或者VBA代码中读取诸如硬盘或者CPU等硬件设备的序列号这一类信息。我写了一个范例如下 1. 在我的机器上运行的效果。我这个例子读取了四部分信息（CPU,物理硬盘，逻辑磁盘，网卡） 2.代码...
Java考试题 抽象方法的body部分必须用一对大括号{ }包住C． 声明抽象方法，大括号可有可无D．声明抽象方法不可写出大括号 2.如下代码public class Test {public int aMethod() {static int i = 0;i++;return i;}pu...
