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运行此指令数据取得数据。
帮
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
