VB怎么得到机器码啊！
怎么得到硬盘和CPU的物理ID
VB code:
Private Sub Command1_Click()
Dim strComputerName As String
Dim HardInfos As Object
Dim HardInfo As Object
Dim CPUInfos As Object
Dim CPUInfo As Object
Dim CPUS As Object
Dim myCpu As Object
strComputerName = Environ$("ComputerName")
Set HardInfos = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\cimv2").ExecQuery("select * from Win32_DiskDrive")
'硬盘ID
For Each HardInfo In HardInfos
MsgBox HardInfo.signature
Next
Set HardInfo = Nothing
Set HardInfos = Nothing
Set CPUInfos = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\cimv2").ExecQuery("SELECT * from Win32_Processor")
'CPUID
For Each CPUInfo In CPUInfos
MsgBox CPUInfo.ProcessorId
Next
Set CPUInfo = Nothing
Set CPUInfos = Nothing
End Sub
参考：http://http://msdn.microsoft.com/en-us/library/aa394373(VS.85).aspx
哈哈，不错，收藏了
参考的网址多了一个http://
汇编指令有个CPUID可取得CPU的序列号，是否这个东西啊。如果是，自己写个汇编指令段存入一个数组，然后使用CallWindowProc运行此指令数据取得数据。
帮
相关问答：
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
