vb获取cpu序列信息

你是不是要写一个验证但你是不是发现从文件中读出来的和写进去的不同了？

呵呵，如果是我知道问题出在哪里,这里有个获取序列号的 >

楼主这个程序不完整，另对J压根没有交待，这里应该是个双循环。另外，如果数组里值要有0的话，这个程序会运行long long time，所以随机数我选取了1—17，VB6环境下测试成功

Private Sub Form_click()

Dim i As Integer, j As Integer,x as integer, f As Boolean,

Dim a(16) As Integer

Randomize ‘初始化随机数种子

For i = 0 To 16

x = Int(Rnd 17) + 1 '首先让X这个临时变量随机得到1~17中的一个数值

f = False '判断前初始判断标志f为false

For j = 0 To i－1 '这个for循环让x与数组中已经存在的数值进行逐一比对

If x = a(j) Then ‘如果x的值已经在数组中存在，那么就跳出for循环，并置f的值为true

f = True

Exit For

End If

Next j

变量是定义WMI对象，上面一种是不指明类型，直接是Object对象方式访问，下面一种是指定类型为WMI对象，以指针方式，两种都可以，上面一种以Object对象的话，不需要在工程菜单中引用WMI的对象库，第二种要运行必须要在工程菜单中WMI对象库

用这个 GetDriveType("盘符"), 如果返回是2，则表明是U盘

取到盘符后可以用

private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

if GetDriveType("c:")=2 then

msgbox "是U盘"

end if

简单的

要想重装系统或者重新分区以后都不会变的标识

估计只有硬盘的硬序列号了 不是普通的可以使用API获得哪种软序列号

软序列号只要重新格式化后 就会发生改变

直接在VB里输入下面这行代码 就可以获得硬序列号了

Shell "cmd /c WMIC DiskDrive GET Signature>C:\aaatxt", vbHide

然后去看看C盘根目录下 打开这个新建的aaatxt 里面就是你想要的东西

你自己再对这个文件进行进一步处理就好了

以上就是关于vb获取cpu序列信息全部的内容，包括:vb获取cpu序列信息、50分求用vb获得cpu型号，主频，外频等具体参数的方法（答案满意的再加分哦）、VB怎么让软件第一次使用就绑定电脑硬件ID等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！