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等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
